qm-dsp: ext/clapack/include/clapack.h annotate

annotate ext/clapack/include/clapack.h @ 466:46375e6d1b54

Apply fix from daschuer/mixxx:b9c6bde3 Extend the number of Q bins always to a full octave

author	Chris Cannam <cannam@all-day-breakfast.com>
date	Wed, 29 May 2019 14:08:43 +0100
parents	905e45637745
children

rev	line source
c@427	1 /* header file for clapack 3.2.1 */
c@427	2
c@427	3 #ifndef __CLAPACK_H
c@427	4 #define __CLAPACK_H
c@427	5
c@427	6 #include "f2c.h"
c@427	7
c@427	8 #ifdef __cplusplus
c@427	9 extern "C" {
c@427	10 #endif
c@427	11
c@427	12 /* Subroutine / int caxpy_(integer n, complex ca, complex cx, integer *
c@427	13 incx, complex cy, integer incy);
c@427	14
c@427	15 /* Subroutine / int ccopy_(integer n, complex cx, integer incx, complex *
c@427	16 cy, integer *incy);
c@427	17
c@427	18 /* Complex / VOID cdotc_(complex ret_val, integer n, complex cx, integer
c@427	19 incx, complex cy, integer *incy);
c@427	20
c@427	21 /* Complex / VOID cdotu_(complex ret_val, integer n, complex cx, integer
c@427	22 incx, complex cy, integer *incy);
c@427	23
c@427	24 /* Subroutine / int cgbmv_(char trans, integer m, integer n, integer *kl,
c@427	25 integer ku, complex alpha, complex a, integer lda, complex *x,
c@427	26 integer incx, complex beta, complex y, integer incy);
c@427	27
c@427	28 /* Subroutine / int cgemm_(char transa, char transb, integer m, integer *
c@427	29 n, integer k, complex alpha, complex a, integer lda, complex *b,
c@427	30 integer ldb, complex beta, complex c__, integer ldc);
c@427	31
c@427	32 /* Subroutine / int cgemv_(char trans, integer m, integer n, complex *
c@427	33 alpha, complex a, integer lda, complex x, integer incx, complex *
c@427	34 beta, complex y, integer incy);
c@427	35
c@427	36 /* Subroutine / int cgerc_(integer m, integer n, complex alpha, complex *
c@427	37 x, integer incx, complex y, integer incy, complex a, integer *lda);
c@427	38
c@427	39 /* Subroutine / int cgeru_(integer m, integer n, complex alpha, complex *
c@427	40 x, integer incx, complex y, integer incy, complex a, integer *lda);
c@427	41
c@427	42 /* Subroutine / int chbmv_(char uplo, integer n, integer k, complex *
c@427	43 alpha, complex a, integer lda, complex x, integer incx, complex *
c@427	44 beta, complex y, integer incy);
c@427	45
c@427	46 /* Subroutine / int chemm_(char side, char uplo, integer m, integer *n,
c@427	47 complex alpha, complex a, integer lda, complex b, integer *ldb,
c@427	48 complex beta, complex c__, integer *ldc);
c@427	49
c@427	50 /* Subroutine / int chemv_(char uplo, integer n, complex alpha, complex *
c@427	51 a, integer lda, complex x, integer incx, complex beta, complex *y,
c@427	52 integer *incy);
c@427	53
c@427	54 /* Subroutine / int cher_(char uplo, integer n, real alpha, complex *x,
c@427	55 integer incx, complex a, integer *lda);
c@427	56
c@427	57 /* Subroutine / int cher2_(char uplo, integer n, complex alpha, complex *
c@427	58 x, integer incx, complex y, integer incy, complex a, integer *lda);
c@427	59
c@427	60 /* Subroutine / int cher2k_(char uplo, char trans, integer n, integer *k,
c@427	61 complex alpha, complex a, integer lda, complex b, integer *ldb,
c@427	62 real beta, complex c__, integer *ldc);
c@427	63
c@427	64 /* Subroutine / int cherk_(char uplo, char trans, integer n, integer *k,
c@427	65 real alpha, complex a, integer lda, real beta, complex *c__,
c@427	66 integer *ldc);
c@427	67
c@427	68 /* Subroutine / int chpmv_(char uplo, integer n, complex alpha, complex *
c@427	69 ap, complex x, integer incx, complex beta, complex y, integer *
c@427	70 incy);
c@427	71
c@427	72 /* Subroutine / int chpr_(char uplo, integer n, real alpha, complex *x,
c@427	73 integer incx, complex ap);
c@427	74
c@427	75 /* Subroutine / int chpr2_(char uplo, integer n, complex alpha, complex *
c@427	76 x, integer incx, complex y, integer incy, complex ap);
c@427	77
c@427	78 /* Subroutine / int crotg_(complex ca, complex cb, real c__, complex *s);
c@427	79
c@427	80 /* Subroutine / int cscal_(integer n, complex ca, complex cx, integer *
c@427	81 incx);
c@427	82
c@427	83 /* Subroutine / int csrot_(integer n, complex cx, integer incx, complex *
c@427	84 cy, integer incy, real c__, real *s);
c@427	85
c@427	86 /* Subroutine / int csscal_(integer n, real sa, complex cx, integer *incx);
c@427	87
c@427	88 /* Subroutine / int cswap_(integer n, complex cx, integer incx, complex *
c@427	89 cy, integer *incy);
c@427	90
c@427	91 /* Subroutine / int csymm_(char side, char uplo, integer m, integer *n,
c@427	92 complex alpha, complex a, integer lda, complex b, integer *ldb,
c@427	93 complex beta, complex c__, integer *ldc);
c@427	94
c@427	95 /* Subroutine / int csyr2k_(char uplo, char trans, integer n, integer *k,
c@427	96 complex alpha, complex a, integer lda, complex b, integer *ldb,
c@427	97 complex beta, complex c__, integer *ldc);
c@427	98
c@427	99 /* Subroutine / int csyrk_(char uplo, char trans, integer n, integer *k,
c@427	100 complex alpha, complex a, integer lda, complex beta, complex *c__,
c@427	101 integer *ldc);
c@427	102
c@427	103 /* Subroutine / int ctbmv_(char uplo, char trans, char diag, integer *n,
c@427	104 integer k, complex a, integer lda, complex x, integer *incx);
c@427	105
c@427	106 /* Subroutine / int ctbsv_(char uplo, char trans, char diag, integer *n,
c@427	107 integer k, complex a, integer lda, complex x, integer *incx);
c@427	108
c@427	109 /* Subroutine / int ctpmv_(char uplo, char trans, char diag, integer *n,
c@427	110 complex ap, complex x, integer *incx);
c@427	111
c@427	112 /* Subroutine / int ctpsv_(char uplo, char trans, char diag, integer *n,
c@427	113 complex ap, complex x, integer *incx);
c@427	114
c@427	115 /* Subroutine / int ctrmm_(char side, char uplo, char transa, char *diag,
c@427	116 integer m, integer n, complex alpha, complex a, integer *lda,
c@427	117 complex b, integer ldb);
c@427	118
c@427	119 /* Subroutine / int ctrmv_(char uplo, char trans, char diag, integer *n,
c@427	120 complex a, integer lda, complex x, integer incx);
c@427	121
c@427	122 /* Subroutine / int ctrsm_(char side, char uplo, char transa, char *diag,
c@427	123 integer m, integer n, complex alpha, complex a, integer *lda,
c@427	124 complex b, integer ldb);
c@427	125
c@427	126 /* Subroutine / int ctrsv_(char uplo, char trans, char diag, integer *n,
c@427	127 complex a, integer lda, complex x, integer incx);
c@427	128
c@427	129 doublereal dasum_(integer n, doublereal dx, integer *incx);
c@427	130
c@427	131 /* Subroutine / int daxpy_(integer n, doublereal da, doublereal dx,
c@427	132 integer incx, doublereal dy, integer *incy);
c@427	133
c@427	134 doublereal dcabs1_(doublecomplex *z__);
c@427	135
c@427	136 /* Subroutine / int dcopy_(integer n, doublereal dx, integer incx,
c@427	137 doublereal dy, integer incy);
c@427	138
c@427	139 doublereal ddot_(integer n, doublereal dx, integer incx, doublereal dy,
c@427	140 integer *incy);
c@427	141
c@427	142 /* Subroutine / int dgbmv_(char trans, integer m, integer n, integer *kl,
c@427	143 integer ku, doublereal alpha, doublereal a, integer lda,
c@427	144 doublereal x, integer incx, doublereal beta, doublereal y,
c@427	145 integer *incy);
c@427	146
c@427	147 /* Subroutine / int dgemm_(char transa, char transb, integer m, integer *
c@427	148 n, integer k, doublereal alpha, doublereal a, integer lda,
c@427	149 doublereal b, integer ldb, doublereal beta, doublereal c__,
c@427	150 integer *ldc);
c@427	151
c@427	152 /* Subroutine / int dgemv_(char trans, integer m, integer n, doublereal *
c@427	153 alpha, doublereal a, integer lda, doublereal x, integer incx,
c@427	154 doublereal beta, doublereal y, integer *incy);
c@427	155
c@427	156 /* Subroutine / int dger_(integer m, integer n, doublereal alpha,
c@427	157 doublereal x, integer incx, doublereal y, integer incy,
c@427	158 doublereal a, integer lda);
c@427	159
c@427	160 doublereal dnrm2_(integer n, doublereal x, integer *incx);
c@427	161
c@427	162 /* Subroutine / int drot_(integer n, doublereal dx, integer incx,
c@427	163 doublereal dy, integer incy, doublereal c__, doublereal s);
c@427	164
c@427	165 /* Subroutine / int drotg_(doublereal da, doublereal db, doublereal c__,
c@427	166 doublereal *s);
c@427	167
c@427	168 /* Subroutine / int drotm_(integer n, doublereal dx, integer incx,
c@427	169 doublereal dy, integer incy, doublereal *dparam);
c@427	170
c@427	171 /* Subroutine / int drotmg_(doublereal dd1, doublereal dd2, doublereal
c@427	172 dx1, doublereal dy1, doublereal dparam);
c@427	173
c@427	174 /* Subroutine / int dsbmv_(char uplo, integer n, integer k, doublereal *
c@427	175 alpha, doublereal a, integer lda, doublereal x, integer incx,
c@427	176 doublereal beta, doublereal y, integer *incy);
c@427	177
c@427	178 /* Subroutine / int dscal_(integer n, doublereal da, doublereal dx,
c@427	179 integer *incx);
c@427	180
c@427	181 doublereal dsdot_(integer n, real sx, integer incx, real sy, integer *
c@427	182 incy);
c@427	183
c@427	184 /* Subroutine / int dspmv_(char uplo, integer n, doublereal alpha,
c@427	185 doublereal ap, doublereal x, integer incx, doublereal beta,
c@427	186 doublereal y, integer incy);
c@427	187
c@427	188 /* Subroutine / int dspr_(char uplo, integer n, doublereal alpha,
c@427	189 doublereal x, integer incx, doublereal *ap);
c@427	190
c@427	191 /* Subroutine / int dspr2_(char uplo, integer n, doublereal alpha,
c@427	192 doublereal x, integer incx, doublereal y, integer incy,
c@427	193 doublereal *ap);
c@427	194
c@427	195 /* Subroutine / int dswap_(integer n, doublereal dx, integer incx,
c@427	196 doublereal dy, integer incy);
c@427	197
c@427	198 /* Subroutine / int dsymm_(char side, char uplo, integer m, integer *n,
c@427	199 doublereal alpha, doublereal a, integer lda, doublereal b,
c@427	200 integer ldb, doublereal beta, doublereal c__, integer ldc);
c@427	201
c@427	202 /* Subroutine / int dsymv_(char uplo, integer n, doublereal alpha,
c@427	203 doublereal a, integer lda, doublereal x, integer incx, doublereal
c@427	204 beta, doublereal y, integer *incy);
c@427	205
c@427	206 /* Subroutine / int dsyr_(char uplo, integer n, doublereal alpha,
c@427	207 doublereal x, integer incx, doublereal a, integer lda);
c@427	208
c@427	209 /* Subroutine / int dsyr2_(char uplo, integer n, doublereal alpha,
c@427	210 doublereal x, integer incx, doublereal y, integer incy,
c@427	211 doublereal a, integer lda);
c@427	212
c@427	213 /* Subroutine / int dsyr2k_(char uplo, char trans, integer n, integer *k,
c@427	214 doublereal alpha, doublereal a, integer lda, doublereal b,
c@427	215 integer ldb, doublereal beta, doublereal c__, integer ldc);
c@427	216
c@427	217 /* Subroutine / int dsyrk_(char uplo, char trans, integer n, integer *k,
c@427	218 doublereal alpha, doublereal a, integer lda, doublereal beta,
c@427	219 doublereal c__, integer ldc);
c@427	220
c@427	221 /* Subroutine / int dtbmv_(char uplo, char trans, char diag, integer *n,
c@427	222 integer k, doublereal a, integer lda, doublereal x, integer *incx);
c@427	223
c@427	224 /* Subroutine / int dtbsv_(char uplo, char trans, char diag, integer *n,
c@427	225 integer k, doublereal a, integer lda, doublereal x, integer *incx);
c@427	226
c@427	227 /* Subroutine / int dtpmv_(char uplo, char trans, char diag, integer *n,
c@427	228 doublereal ap, doublereal x, integer *incx);
c@427	229
c@427	230 /* Subroutine / int dtpsv_(char uplo, char trans, char diag, integer *n,
c@427	231 doublereal ap, doublereal x, integer *incx);
c@427	232
c@427	233 /* Subroutine / int dtrmm_(char side, char uplo, char transa, char *diag,
c@427	234 integer m, integer n, doublereal alpha, doublereal a, integer *
c@427	235 lda, doublereal b, integer ldb);
c@427	236
c@427	237 /* Subroutine / int dtrmv_(char uplo, char trans, char diag, integer *n,
c@427	238 doublereal a, integer lda, doublereal x, integer incx);
c@427	239
c@427	240 /* Subroutine / int dtrsm_(char side, char uplo, char transa, char *diag,
c@427	241 integer m, integer n, doublereal alpha, doublereal a, integer *
c@427	242 lda, doublereal b, integer ldb);
c@427	243
c@427	244 /* Subroutine / int dtrsv_(char uplo, char trans, char diag, integer *n,
c@427	245 doublereal a, integer lda, doublereal x, integer incx);
c@427	246
c@427	247 doublereal dzasum_(integer n, doublecomplex zx, integer *incx);
c@427	248
c@427	249 doublereal dznrm2_(integer n, doublecomplex x, integer *incx);
c@427	250
c@427	251 integer icamax_(integer n, complex cx, integer *incx);
c@427	252
c@427	253 integer idamax_(integer n, doublereal dx, integer *incx);
c@427	254
c@427	255 integer isamax_(integer n, real sx, integer *incx);
c@427	256
c@427	257 integer izamax_(integer n, doublecomplex zx, integer *incx);
c@427	258
c@427	259 logical lsame_(char ca, char cb);
c@427	260
c@427	261 doublereal sasum_(integer n, real sx, integer *incx);
c@427	262
c@427	263 /* Subroutine / int saxpy_(integer n, real sa, real sx, integer *incx,
c@427	264 real sy, integer incy);
c@427	265
c@427	266 doublereal scabs1_(complex *z__);
c@427	267
c@427	268 doublereal scasum_(integer n, complex cx, integer *incx);
c@427	269
c@427	270 doublereal scnrm2_(integer n, complex x, integer *incx);
c@427	271
c@427	272 /* Subroutine / int scopy_(integer n, real sx, integer incx, real *sy,
c@427	273 integer *incy);
c@427	274
c@427	275 doublereal sdot_(integer n, real sx, integer incx, real sy, integer *incy);
c@427	276
c@427	277 doublereal sdsdot_(integer n, real sb, real sx, integer incx, real *sy,
c@427	278 integer *incy);
c@427	279
c@427	280 /* Subroutine / int sgbmv_(char trans, integer m, integer n, integer *kl,
c@427	281 integer ku, real alpha, real a, integer lda, real x, integer
c@427	282 incx, real beta, real y, integer *incy);
c@427	283
c@427	284 /* Subroutine / int sgemm_(char transa, char transb, integer m, integer *
c@427	285 n, integer k, real alpha, real a, integer lda, real b, integer
c@427	286 ldb, real beta, real c__, integer *ldc);
c@427	287
c@427	288 /* Subroutine / int sgemv_(char trans, integer m, integer n, real *alpha,
c@427	289 real a, integer lda, real x, integer incx, real beta, real y,
c@427	290 integer *incy);
c@427	291
c@427	292 /* Subroutine / int sger_(integer m, integer n, real alpha, real *x,
c@427	293 integer incx, real y, integer incy, real a, integer *lda);
c@427	294
c@427	295 doublereal snrm2_(integer n, real x, integer *incx);
c@427	296
c@427	297 /* Subroutine / int srot_(integer n, real sx, integer incx, real *sy,
c@427	298 integer incy, real c__, real *s);
c@427	299
c@427	300 /* Subroutine / int srotg_(real sa, real sb, real c__, real *s);
c@427	301
c@427	302 /* Subroutine / int srotm_(integer n, real sx, integer incx, real *sy,
c@427	303 integer incy, real sparam);
c@427	304
c@427	305 /* Subroutine / int srotmg_(real sd1, real sd2, real sx1, real *sy1, real
c@427	306 *sparam);
c@427	307
c@427	308 /* Subroutine / int ssbmv_(char uplo, integer n, integer k, real *alpha,
c@427	309 real a, integer lda, real x, integer incx, real beta, real y,
c@427	310 integer *incy);
c@427	311
c@427	312 /* Subroutine / int sscal_(integer n, real sa, real sx, integer *incx);
c@427	313
c@427	314 /* Subroutine / int sspmv_(char uplo, integer n, real alpha, real *ap,
c@427	315 real x, integer incx, real beta, real y, integer *incy);
c@427	316
c@427	317 /* Subroutine / int sspr_(char uplo, integer n, real alpha, real *x,
c@427	318 integer incx, real ap);
c@427	319
c@427	320 /* Subroutine / int sspr2_(char uplo, integer n, real alpha, real *x,
c@427	321 integer incx, real y, integer incy, real ap);
c@427	322
c@427	323 /* Subroutine / int sswap_(integer n, real sx, integer incx, real *sy,
c@427	324 integer *incy);
c@427	325
c@427	326 /* Subroutine / int ssymm_(char side, char uplo, integer m, integer *n,
c@427	327 real alpha, real a, integer lda, real b, integer ldb, real beta,
c@427	328 real c__, integer ldc);
c@427	329
c@427	330 /* Subroutine / int ssymv_(char uplo, integer n, real alpha, real *a,
c@427	331 integer lda, real x, integer incx, real beta, real y, integer
c@427	332 incy);
c@427	333
c@427	334 /* Subroutine / int ssyr_(char uplo, integer n, real alpha, real *x,
c@427	335 integer incx, real a, integer *lda);
c@427	336
c@427	337 /* Subroutine / int ssyr2_(char uplo, integer n, real alpha, real *x,
c@427	338 integer incx, real y, integer incy, real a, integer *lda);
c@427	339
c@427	340 /* Subroutine / int ssyr2k_(char uplo, char trans, integer n, integer *k,
c@427	341 real alpha, real a, integer lda, real b, integer ldb, real beta,
c@427	342 real c__, integer ldc);
c@427	343
c@427	344 /* Subroutine / int ssyrk_(char uplo, char trans, integer n, integer *k,
c@427	345 real alpha, real a, integer lda, real beta, real c__, integer
c@427	346 ldc);
c@427	347
c@427	348 /* Subroutine / int stbmv_(char uplo, char trans, char diag, integer *n,
c@427	349 integer k, real a, integer lda, real x, integer *incx);
c@427	350
c@427	351 /* Subroutine / int stbsv_(char uplo, char trans, char diag, integer *n,
c@427	352 integer k, real a, integer lda, real x, integer *incx);
c@427	353
c@427	354 /* Subroutine / int stpmv_(char uplo, char trans, char diag, integer *n,
c@427	355 real ap, real x, integer *incx);
c@427	356
c@427	357 /* Subroutine / int stpsv_(char uplo, char trans, char diag, integer *n,
c@427	358 real ap, real x, integer *incx);
c@427	359
c@427	360 /* Subroutine / int strmm_(char side, char uplo, char transa, char *diag,
c@427	361 integer m, integer n, real alpha, real a, integer lda, real b,
c@427	362 integer *ldb);
c@427	363
c@427	364 /* Subroutine / int strmv_(char uplo, char trans, char diag, integer *n,
c@427	365 real a, integer lda, real x, integer incx);
c@427	366
c@427	367 /* Subroutine / int strsm_(char side, char uplo, char transa, char *diag,
c@427	368 integer m, integer n, real alpha, real a, integer lda, real b,
c@427	369 integer *ldb);
c@427	370
c@427	371 /* Subroutine / int strsv_(char uplo, char trans, char diag, integer *n,
c@427	372 real a, integer lda, real x, integer incx);
c@427	373
c@427	374 /* Subroutine / int xerbla_(char srname, integer *info);
c@427	375
c@427	376 /* Subroutine / int xerbla_array__(char srname_array__, integer *
c@427	377 srname_len__, integer *info, ftnlen srname_array_len);
c@427	378
c@427	379 /* Subroutine / int zaxpy_(integer n, doublecomplex za, doublecomplex zx,
c@427	380 integer incx, doublecomplex zy, integer *incy);
c@427	381
c@427	382 /* Subroutine / int zcopy_(integer n, doublecomplex zx, integer incx,
c@427	383 doublecomplex zy, integer incy);
c@427	384
c@427	385 /* Double Complex / VOID zdotc_(doublecomplex ret_val, integer *n,
c@427	386 doublecomplex zx, integer incx, doublecomplex zy, integer incy);
c@427	387
c@427	388 /* Double Complex / VOID zdotu_(doublecomplex ret_val, integer *n,
c@427	389 doublecomplex zx, integer incx, doublecomplex zy, integer incy);
c@427	390
c@427	391 /* Subroutine / int zdrot_(integer n, doublecomplex cx, integer incx,
c@427	392 doublecomplex cy, integer incy, doublereal c__, doublereal s);
c@427	393
c@427	394 /* Subroutine / int zdscal_(integer n, doublereal da, doublecomplex zx,
c@427	395 integer *incx);
c@427	396
c@427	397 /* Subroutine / int zgbmv_(char trans, integer m, integer n, integer *kl,
c@427	398 integer ku, doublecomplex alpha, doublecomplex a, integer lda,
c@427	399 doublecomplex x, integer incx, doublecomplex beta, doublecomplex
c@427	400 y, integer *incy);
c@427	401
c@427	402 /* Subroutine / int zgemm_(char transa, char transb, integer m, integer *
c@427	403 n, integer k, doublecomplex alpha, doublecomplex a, integer lda,
c@427	404 doublecomplex b, integer ldb, doublecomplex beta, doublecomplex
c@427	405 c__, integer *ldc);
c@427	406
c@427	407 /* Subroutine / int zgemv_(char trans, integer m, integer n,
c@427	408 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	409 x, integer incx, doublecomplex beta, doublecomplex y, integer
c@427	410 incy);
c@427	411
c@427	412 /* Subroutine / int zgerc_(integer m, integer n, doublecomplex alpha,
c@427	413 doublecomplex x, integer incx, doublecomplex y, integer incy,
c@427	414 doublecomplex a, integer lda);
c@427	415
c@427	416 /* Subroutine / int zgeru_(integer m, integer n, doublecomplex alpha,
c@427	417 doublecomplex x, integer incx, doublecomplex y, integer incy,
c@427	418 doublecomplex a, integer lda);
c@427	419
c@427	420 /* Subroutine / int zhbmv_(char uplo, integer n, integer k, doublecomplex
c@427	421 alpha, doublecomplex a, integer lda, doublecomplex x, integer *
c@427	422 incx, doublecomplex beta, doublecomplex y, integer *incy);
c@427	423
c@427	424 /* Subroutine / int zhemm_(char side, char uplo, integer m, integer *n,
c@427	425 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	426 b, integer ldb, doublecomplex beta, doublecomplex c__, integer
c@427	427 ldc);
c@427	428
c@427	429 /* Subroutine / int zhemv_(char uplo, integer n, doublecomplex alpha,
c@427	430 doublecomplex a, integer lda, doublecomplex x, integer incx,
c@427	431 doublecomplex beta, doublecomplex y, integer *incy);
c@427	432
c@427	433 /* Subroutine / int zher_(char uplo, integer n, doublereal alpha,
c@427	434 doublecomplex x, integer incx, doublecomplex a, integer lda);
c@427	435
c@427	436 /* Subroutine / int zher2_(char uplo, integer n, doublecomplex alpha,
c@427	437 doublecomplex x, integer incx, doublecomplex y, integer incy,
c@427	438 doublecomplex a, integer lda);
c@427	439
c@427	440 /* Subroutine / int zher2k_(char uplo, char trans, integer n, integer *k,
c@427	441 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	442 b, integer ldb, doublereal beta, doublecomplex c__, integer ldc);
c@427	443
c@427	444 /* Subroutine / int zherk_(char uplo, char trans, integer n, integer *k,
c@427	445 doublereal alpha, doublecomplex a, integer lda, doublereal beta,
c@427	446 doublecomplex c__, integer ldc);
c@427	447
c@427	448 /* Subroutine / int zhpmv_(char uplo, integer n, doublecomplex alpha,
c@427	449 doublecomplex ap, doublecomplex x, integer incx, doublecomplex
c@427	450 beta, doublecomplex y, integer incy);
c@427	451
c@427	452 /* Subroutine / int zhpr_(char uplo, integer n, doublereal alpha,
c@427	453 doublecomplex x, integer incx, doublecomplex *ap);
c@427	454
c@427	455 /* Subroutine / int zhpr2_(char uplo, integer n, doublecomplex alpha,
c@427	456 doublecomplex x, integer incx, doublecomplex y, integer incy,
c@427	457 doublecomplex *ap);
c@427	458
c@427	459 /* Subroutine / int zrotg_(doublecomplex ca, doublecomplex cb, doublereal
c@427	460 c__, doublecomplex *s);
c@427	461
c@427	462 /* Subroutine / int zscal_(integer n, doublecomplex za, doublecomplex zx,
c@427	463 integer *incx);
c@427	464
c@427	465 /* Subroutine / int zswap_(integer n, doublecomplex zx, integer incx,
c@427	466 doublecomplex zy, integer incy);
c@427	467
c@427	468 /* Subroutine / int zsymm_(char side, char uplo, integer m, integer *n,
c@427	469 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	470 b, integer ldb, doublecomplex beta, doublecomplex c__, integer
c@427	471 ldc);
c@427	472
c@427	473 /* Subroutine / int zsyr2k_(char uplo, char trans, integer n, integer *k,
c@427	474 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	475 b, integer ldb, doublecomplex beta, doublecomplex c__, integer
c@427	476 ldc);
c@427	477
c@427	478 /* Subroutine / int zsyrk_(char uplo, char trans, integer n, integer *k,
c@427	479 doublecomplex alpha, doublecomplex a, integer lda, doublecomplex
c@427	480 beta, doublecomplex c__, integer ldc);
c@427	481
c@427	482 /* Subroutine / int ztbmv_(char uplo, char trans, char diag, integer *n,
c@427	483 integer k, doublecomplex a, integer lda, doublecomplex x, integer
c@427	484 *incx);
c@427	485
c@427	486 /* Subroutine / int ztbsv_(char uplo, char trans, char diag, integer *n,
c@427	487 integer k, doublecomplex a, integer lda, doublecomplex x, integer
c@427	488 *incx);
c@427	489
c@427	490 /* Subroutine / int ztpmv_(char uplo, char trans, char diag, integer *n,
c@427	491 doublecomplex ap, doublecomplex x, integer *incx);
c@427	492
c@427	493 /* Subroutine / int ztpsv_(char uplo, char trans, char diag, integer *n,
c@427	494 doublecomplex ap, doublecomplex x, integer *incx);
c@427	495
c@427	496 /* Subroutine / int ztrmm_(char side, char uplo, char transa, char *diag,
c@427	497 integer m, integer n, doublecomplex alpha, doublecomplex a,
c@427	498 integer lda, doublecomplex b, integer *ldb);
c@427	499
c@427	500 /* Subroutine / int ztrmv_(char uplo, char trans, char diag, integer *n,
c@427	501 doublecomplex a, integer lda, doublecomplex x, integer incx);
c@427	502
c@427	503 /* Subroutine / int ztrsm_(char side, char uplo, char transa, char *diag,
c@427	504 integer m, integer n, doublecomplex alpha, doublecomplex a,
c@427	505 integer lda, doublecomplex b, integer *ldb);
c@427	506
c@427	507 /* Subroutine / int ztrsv_(char uplo, char trans, char diag, integer *n,
c@427	508 doublecomplex a, integer lda, doublecomplex x, integer incx);
c@427	509
c@427	510 /* Subroutine / int cbdsqr_(char uplo, integer n, integer ncvt, integer *
c@427	511 nru, integer ncc, real d__, real e, complex vt, integer *ldvt,
c@427	512 complex u, integer ldu, complex c__, integer ldc, real *rwork,
c@427	513 integer *info);
c@427	514
c@427	515 /* Subroutine / int cgbbrd_(char vect, integer m, integer n, integer *ncc,
c@427	516 integer kl, integer ku, complex ab, integer ldab, real *d__,
c@427	517 real e, complex q, integer ldq, complex pt, integer *ldpt,
c@427	518 complex c__, integer ldc, complex work, real rwork, integer *info);
c@427	519
c@427	520 /* Subroutine / int cgbcon_(char norm, integer n, integer kl, integer *ku,
c@427	521 complex ab, integer ldab, integer ipiv, real anorm, real *rcond,
c@427	522 complex work, real rwork, integer *info);
c@427	523
c@427	524 /* Subroutine / int cgbequ_(integer m, integer n, integer kl, integer *ku,
c@427	525 complex ab, integer ldab, real r__, real c__, real *rowcnd, real
c@427	526 colcnd, real amax, integer *info);
c@427	527
c@427	528 /* Subroutine / int cgbequb_(integer m, integer n, integer kl, integer *
c@427	529 ku, complex ab, integer ldab, real r__, real c__, real *rowcnd,
c@427	530 real colcnd, real amax, integer *info);
c@427	531
c@427	532 /* Subroutine / int cgbrfs_(char trans, integer n, integer kl, integer *
c@427	533 ku, integer nrhs, complex ab, integer ldab, complex afb, integer *
c@427	534 ldafb, integer ipiv, complex b, integer ldb, complex x, integer *
c@427	535 ldx, real ferr, real berr, complex work, real rwork, integer *
c@427	536 info);
c@427	537
c@427	538 /* Subroutine / int cgbrfsx_(char trans, char equed, integer n, integer *
c@427	539 kl, integer ku, integer nrhs, complex ab, integer ldab, complex *
c@427	540 afb, integer ldafb, integer ipiv, real r__, real c__, complex *b,
c@427	541 integer ldb, complex x, integer ldx, real rcond, real *berr,
c@427	542 integer n_err_bnds__, real err_bnds_norm__, real *err_bnds_comp__,
c@427	543 integer nparams, real params, complex work, real rwork, integer *
c@427	544 info);
c@427	545
c@427	546 /* Subroutine / int cgbsv_(integer n, integer kl, integer ku, integer *
c@427	547 nrhs, complex ab, integer ldab, integer ipiv, complex b, integer *
c@427	548 ldb, integer *info);
c@427	549
c@427	550 /* Subroutine / int cgbsvx_(char fact, char trans, integer n, integer *kl,
c@427	551 integer ku, integer nrhs, complex ab, integer ldab, complex *afb,
c@427	552 integer ldafb, integer ipiv, char equed, real r__, real *c__,
c@427	553 complex b, integer ldb, complex x, integer ldx, real *rcond, real
c@427	554 ferr, real berr, complex work, real rwork, integer *info);
c@427	555
c@427	556 /* Subroutine / int cgbsvxx_(char fact, char trans, integer n, integer *
c@427	557 kl, integer ku, integer nrhs, complex ab, integer ldab, complex *
c@427	558 afb, integer ldafb, integer ipiv, char equed, real r__, real *c__,
c@427	559 complex b, integer ldb, complex x, integer ldx, real *rcond,
c@427	560 real rpvgrw, real berr, integer n_err_bnds__, real
c@427	561 err_bnds_norm__, real err_bnds_comp__, integer nparams, real *
c@427	562 params, complex work, real rwork, integer *info);
c@427	563
c@427	564 /* Subroutine / int cgbtf2_(integer m, integer n, integer kl, integer *ku,
c@427	565 complex ab, integer ldab, integer ipiv, integer info);
c@427	566
c@427	567 /* Subroutine / int cgbtrf_(integer m, integer n, integer kl, integer *ku,
c@427	568 complex ab, integer ldab, integer ipiv, integer info);
c@427	569
c@427	570 /* Subroutine / int cgbtrs_(char trans, integer n, integer kl, integer *
c@427	571 ku, integer nrhs, complex ab, integer ldab, integer ipiv, complex
c@427	572 b, integer ldb, integer *info);
c@427	573
c@427	574 /* Subroutine / int cgebak_(char job, char side, integer n, integer *ilo,
c@427	575 integer ihi, real scale, integer m, complex v, integer *ldv,
c@427	576 integer *info);
c@427	577
c@427	578 /* Subroutine / int cgebal_(char job, integer n, complex a, integer *lda,
c@427	579 integer ilo, integer ihi, real scale, integer info);
c@427	580
c@427	581 /* Subroutine / int cgebd2_(integer m, integer n, complex a, integer *lda,
c@427	582 real d__, real e, complex tauq, complex taup, complex *work,
c@427	583 integer *info);
c@427	584
c@427	585 /* Subroutine / int cgebrd_(integer m, integer n, complex a, integer *lda,
c@427	586 real d__, real e, complex tauq, complex taup, complex *work,
c@427	587 integer lwork, integer info);
c@427	588
c@427	589 /* Subroutine / int cgecon_(char norm, integer n, complex a, integer *lda,
c@427	590 real anorm, real rcond, complex work, real rwork, integer *info);
c@427	591
c@427	592 /* Subroutine / int cgeequ_(integer m, integer n, complex a, integer *lda,
c@427	593 real r__, real c__, real rowcnd, real colcnd, real *amax,
c@427	594 integer *info);
c@427	595
c@427	596 /* Subroutine / int cgeequb_(integer m, integer n, complex a, integer *
c@427	597 lda, real r__, real c__, real rowcnd, real colcnd, real *amax,
c@427	598 integer *info);
c@427	599
c@427	600 /* Subroutine / int cgees_(char jobvs, char sort, L_fp select, integer n,
c@427	601 complex a, integer lda, integer sdim, complex w, complex *vs,
c@427	602 integer ldvs, complex work, integer lwork, real rwork, logical *
c@427	603 bwork, integer *info);
c@427	604
c@427	605 /* Subroutine / int cgeesx_(char jobvs, char sort, L_fp select, char
c@427	606 sense, integer n, complex a, integer lda, integer sdim, complex *
c@427	607 w, complex vs, integer ldvs, real rconde, real rcondv, complex *
c@427	608 work, integer lwork, real rwork, logical bwork, integer info);
c@427	609
c@427	610 /* Subroutine / int cgeev_(char jobvl, char jobvr, integer n, complex *a,
c@427	611 integer lda, complex w, complex vl, integer ldvl, complex *vr,
c@427	612 integer ldvr, complex work, integer lwork, real rwork, integer *
c@427	613 info);
c@427	614
c@427	615 /* Subroutine / int cgeevx_(char balanc, char jobvl, char jobvr, char *
c@427	616 sense, integer n, complex a, integer lda, complex w, complex *vl,
c@427	617 integer ldvl, complex vr, integer ldvr, integer ilo, integer *ihi,
c@427	618 real scale, real abnrm, real rconde, real rcondv, complex *work,
c@427	619 integer lwork, real rwork, integer *info);
c@427	620
c@427	621 /* Subroutine / int cgegs_(char jobvsl, char jobvsr, integer n, complex *
c@427	622 a, integer lda, complex b, integer ldb, complex alpha, complex *
c@427	623 beta, complex vsl, integer ldvsl, complex vsr, integer ldvsr,
c@427	624 complex work, integer lwork, real rwork, integer info);
c@427	625
c@427	626 /* Subroutine / int cgegv_(char jobvl, char jobvr, integer n, complex *a,
c@427	627 integer lda, complex b, integer ldb, complex alpha, complex *beta,
c@427	628 complex vl, integer ldvl, complex vr, integer ldvr, complex *
c@427	629 work, integer lwork, real rwork, integer *info);
c@427	630
c@427	631 /* Subroutine / int cgehd2_(integer n, integer ilo, integer ihi, complex *
c@427	632 a, integer lda, complex tau, complex work, integer info);
c@427	633
c@427	634 /* Subroutine / int cgehrd_(integer n, integer ilo, integer ihi, complex *
c@427	635 a, integer lda, complex tau, complex work, integer lwork, integer
c@427	636 *info);
c@427	637
c@427	638 /* Subroutine / int cgelq2_(integer m, integer n, complex a, integer *lda,
c@427	639 complex tau, complex work, integer *info);
c@427	640
c@427	641 /* Subroutine / int cgelqf_(integer m, integer n, complex a, integer *lda,
c@427	642 complex tau, complex work, integer lwork, integer info);
c@427	643
c@427	644 /* Subroutine / int cgels_(char trans, integer m, integer n, integer *
c@427	645 nrhs, complex a, integer lda, complex b, integer ldb, complex *
c@427	646 work, integer lwork, integer info);
c@427	647
c@427	648 /* Subroutine / int cgelsd_(integer m, integer n, integer nrhs, complex *
c@427	649 a, integer lda, complex b, integer ldb, real s, real *rcond,
c@427	650 integer rank, complex work, integer lwork, real rwork, integer *
c@427	651 iwork, integer *info);
c@427	652
c@427	653 /* Subroutine / int cgelss_(integer m, integer n, integer nrhs, complex *
c@427	654 a, integer lda, complex b, integer ldb, real s, real *rcond,
c@427	655 integer rank, complex work, integer lwork, real rwork, integer *
c@427	656 info);
c@427	657
c@427	658 /* Subroutine / int cgelsx_(integer m, integer n, integer nrhs, complex *
c@427	659 a, integer lda, complex b, integer ldb, integer jpvt, real *rcond,
c@427	660 integer rank, complex work, real rwork, integer info);
c@427	661
c@427	662 /* Subroutine / int cgelsy_(integer m, integer n, integer nrhs, complex *
c@427	663 a, integer lda, complex b, integer ldb, integer jpvt, real *rcond,
c@427	664 integer rank, complex work, integer lwork, real rwork, integer *
c@427	665 info);
c@427	666
c@427	667 /* Subroutine / int cgeql2_(integer m, integer n, complex a, integer *lda,
c@427	668 complex tau, complex work, integer *info);
c@427	669
c@427	670 /* Subroutine / int cgeqlf_(integer m, integer n, complex a, integer *lda,
c@427	671 complex tau, complex work, integer lwork, integer info);
c@427	672
c@427	673 /* Subroutine / int cgeqp3_(integer m, integer n, complex a, integer *lda,
c@427	674 integer jpvt, complex tau, complex work, integer lwork, real *
c@427	675 rwork, integer *info);
c@427	676
c@427	677 /* Subroutine / int cgeqpf_(integer m, integer n, complex a, integer *lda,
c@427	678 integer jpvt, complex tau, complex work, real rwork, integer *
c@427	679 info);
c@427	680
c@427	681 /* Subroutine / int cgeqr2_(integer m, integer n, complex a, integer *lda,
c@427	682 complex tau, complex work, integer *info);
c@427	683
c@427	684 /* Subroutine / int cgeqrf_(integer m, integer n, complex a, integer *lda,
c@427	685 complex tau, complex work, integer lwork, integer info);
c@427	686
c@427	687 /* Subroutine / int cgerfs_(char trans, integer n, integer nrhs, complex *
c@427	688 a, integer lda, complex af, integer ldaf, integer ipiv, complex *
c@427	689 b, integer ldb, complex x, integer ldx, real ferr, real *berr,
c@427	690 complex work, real rwork, integer *info);
c@427	691
c@427	692 /* Subroutine / int cgerfsx_(char trans, char equed, integer n, integer *
c@427	693 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	694 ipiv, real r__, real c__, complex b, integer ldb, complex *x,
c@427	695 integer ldx, real rcond, real berr, integer n_err_bnds__, real *
c@427	696 err_bnds_norm__, real err_bnds_comp__, integer nparams, real *
c@427	697 params, complex work, real rwork, integer *info);
c@427	698
c@427	699 /* Subroutine / int cgerq2_(integer m, integer n, complex a, integer *lda,
c@427	700 complex tau, complex work, integer *info);
c@427	701
c@427	702 /* Subroutine / int cgerqf_(integer m, integer n, complex a, integer *lda,
c@427	703 complex tau, complex work, integer lwork, integer info);
c@427	704
c@427	705 /* Subroutine / int cgesc2_(integer n, complex a, integer lda, complex *
c@427	706 rhs, integer ipiv, integer jpiv, real *scale);
c@427	707
c@427	708 /* Subroutine / int cgesdd_(char jobz, integer m, integer n, complex *a,
c@427	709 integer lda, real s, complex u, integer ldu, complex *vt, integer
c@427	710 ldvt, complex work, integer lwork, real rwork, integer *iwork,
c@427	711 integer *info);
c@427	712
c@427	713 /* Subroutine / int cgesv_(integer n, integer nrhs, complex a, integer *
c@427	714 lda, integer ipiv, complex b, integer ldb, integer info);
c@427	715
c@427	716 /* Subroutine / int cgesvd_(char jobu, char jobvt, integer m, integer *n,
c@427	717 complex a, integer lda, real s, complex u, integer ldu, complex
c@427	718 vt, integer ldvt, complex work, integer lwork, real rwork,
c@427	719 integer *info);
c@427	720
c@427	721 /* Subroutine / int cgesvx_(char fact, char trans, integer n, integer *
c@427	722 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	723 ipiv, char equed, real r__, real c__, complex b, integer *ldb,
c@427	724 complex x, integer ldx, real rcond, real ferr, real *berr,
c@427	725 complex work, real rwork, integer *info);
c@427	726
c@427	727 /* Subroutine / int cgesvxx_(char fact, char trans, integer n, integer *
c@427	728 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	729 ipiv, char equed, real r__, real c__, complex b, integer *ldb,
c@427	730 complex x, integer ldx, real rcond, real rpvgrw, real *berr,
c@427	731 integer n_err_bnds__, real err_bnds_norm__, real *err_bnds_comp__,
c@427	732 integer nparams, real params, complex work, real rwork, integer *
c@427	733 info);
c@427	734
c@427	735 /* Subroutine / int cgetc2_(integer n, complex a, integer lda, integer *
c@427	736 ipiv, integer jpiv, integer info);
c@427	737
c@427	738 /* Subroutine / int cgetf2_(integer m, integer n, complex a, integer *lda,
c@427	739 integer ipiv, integer info);
c@427	740
c@427	741 /* Subroutine / int cgetrf_(integer m, integer n, complex a, integer *lda,
c@427	742 integer ipiv, integer info);
c@427	743
c@427	744 /* Subroutine / int cgetri_(integer n, complex a, integer lda, integer *
c@427	745 ipiv, complex work, integer lwork, integer *info);
c@427	746
c@427	747 /* Subroutine / int cgetrs_(char trans, integer n, integer nrhs, complex *
c@427	748 a, integer lda, integer ipiv, complex b, integer ldb, integer *
c@427	749 info);
c@427	750
c@427	751 /* Subroutine / int cggbak_(char job, char side, integer n, integer *ilo,
c@427	752 integer ihi, real lscale, real rscale, integer m, complex *v,
c@427	753 integer ldv, integer info);
c@427	754
c@427	755 /* Subroutine / int cggbal_(char job, integer n, complex a, integer *lda,
c@427	756 complex b, integer ldb, integer ilo, integer ihi, real *lscale,
c@427	757 real rscale, real work, integer *info);
c@427	758
c@427	759 /* Subroutine / int cgges_(char jobvsl, char jobvsr, char sort, L_fp
c@427	760 selctg, integer n, complex a, integer lda, complex b, integer *
c@427	761 ldb, integer sdim, complex alpha, complex beta, complex vsl,
c@427	762 integer ldvsl, complex vsr, integer ldvsr, complex work, integer *
c@427	763 lwork, real rwork, logical bwork, integer *info);
c@427	764
c@427	765 /* Subroutine / int cggesx_(char jobvsl, char jobvsr, char sort, L_fp
c@427	766 selctg, char sense, integer n, complex a, integer lda, complex *b,
c@427	767 integer ldb, integer sdim, complex alpha, complex beta, complex *
c@427	768 vsl, integer ldvsl, complex vsr, integer ldvsr, real rconde, real
c@427	769 rcondv, complex work, integer lwork, real rwork, integer *iwork,
c@427	770 integer liwork, logical bwork, integer *info);
c@427	771
c@427	772 /* Subroutine / int cggev_(char jobvl, char jobvr, integer n, complex *a,
c@427	773 integer lda, complex b, integer ldb, complex alpha, complex *beta,
c@427	774 complex vl, integer ldvl, complex vr, integer ldvr, complex *
c@427	775 work, integer lwork, real rwork, integer *info);
c@427	776
c@427	777 /* Subroutine / int cggevx_(char balanc, char jobvl, char jobvr, char *
c@427	778 sense, integer n, complex a, integer lda, complex b, integer *ldb,
c@427	779 complex alpha, complex beta, complex vl, integer ldvl, complex *
c@427	780 vr, integer ldvr, integer ilo, integer ihi, real lscale, real *
c@427	781 rscale, real abnrm, real bbnrm, real rconde, real rcondv, complex
c@427	782 work, integer lwork, real rwork, integer iwork, logical *bwork,
c@427	783 integer *info);
c@427	784
c@427	785 /* Subroutine / int cggglm_(integer n, integer m, integer p, complex *a,
c@427	786 integer lda, complex b, integer ldb, complex d__, complex *x,
c@427	787 complex y, complex work, integer lwork, integer info);
c@427	788
c@427	789 /* Subroutine / int cgghrd_(char compq, char compz, integer n, integer *
c@427	790 ilo, integer ihi, complex a, integer lda, complex b, integer *ldb,
c@427	791 complex q, integer ldq, complex z__, integer ldz, integer *info);
c@427	792
c@427	793 /* Subroutine / int cgglse_(integer m, integer n, integer p, complex *a,
c@427	794 integer lda, complex b, integer ldb, complex c__, complex *d__,
c@427	795 complex x, complex work, integer lwork, integer info);
c@427	796
c@427	797 /* Subroutine / int cggqrf_(integer n, integer m, integer p, complex *a,
c@427	798 integer lda, complex taua, complex b, integer ldb, complex *taub,
c@427	799 complex work, integer lwork, integer *info);
c@427	800
c@427	801 /* Subroutine / int cggrqf_(integer m, integer p, integer n, complex *a,
c@427	802 integer lda, complex taua, complex b, integer ldb, complex *taub,
c@427	803 complex work, integer lwork, integer *info);
c@427	804
c@427	805 /* Subroutine / int cggsvd_(char jobu, char jobv, char jobq, integer *m,
c@427	806 integer n, integer p, integer k, integer l, complex a, integer
c@427	807 lda, complex b, integer ldb, real alpha, real beta, complex *u,
c@427	808 integer ldu, complex v, integer ldv, complex q, integer *ldq,
c@427	809 complex work, real rwork, integer iwork, integer info);
c@427	810
c@427	811 /* Subroutine / int cggsvp_(char jobu, char jobv, char jobq, integer *m,
c@427	812 integer p, integer n, complex a, integer lda, complex *b, integer
c@427	813 ldb, real tola, real tolb, integer k, integer l, complex u,
c@427	814 integer ldu, complex v, integer ldv, complex q, integer *ldq,
c@427	815 integer iwork, real rwork, complex tau, complex work, integer *
c@427	816 info);
c@427	817
c@427	818 /* Subroutine / int cgtcon_(char norm, integer n, complex dl, complex *
c@427	819 d__, complex du, complex du2, integer ipiv, real anorm, real *
c@427	820 rcond, complex work, integer info);
c@427	821
c@427	822 /* Subroutine / int cgtrfs_(char trans, integer n, integer nrhs, complex *
c@427	823 dl, complex d__, complex du, complex dlf, complex df, complex *
c@427	824 duf, complex du2, integer ipiv, complex b, integer ldb, complex *
c@427	825 x, integer ldx, real ferr, real berr, complex work, real *rwork,
c@427	826 integer *info);
c@427	827
c@427	828 /* Subroutine / int cgtsv_(integer n, integer nrhs, complex dl, complex *
c@427	829 d__, complex du, complex b, integer ldb, integer info);
c@427	830
c@427	831 /* Subroutine / int cgtsvx_(char fact, char trans, integer n, integer *
c@427	832 nrhs, complex dl, complex d__, complex du, complex dlf, complex *
c@427	833 df, complex duf, complex du2, integer ipiv, complex b, integer *
c@427	834 ldb, complex x, integer ldx, real rcond, real ferr, real *berr,
c@427	835 complex work, real rwork, integer *info);
c@427	836
c@427	837 /* Subroutine / int cgttrf_(integer n, complex dl, complex d__, complex *
c@427	838 du, complex du2, integer ipiv, integer *info);
c@427	839
c@427	840 /* Subroutine / int cgttrs_(char trans, integer n, integer nrhs, complex *
c@427	841 dl, complex d__, complex du, complex du2, integer ipiv, complex *
c@427	842 b, integer ldb, integer info);
c@427	843
c@427	844 /* Subroutine / int cgtts2_(integer itrans, integer n, integer nrhs,
c@427	845 complex dl, complex d__, complex du, complex du2, integer *ipiv,
c@427	846 complex b, integer ldb);
c@427	847
c@427	848 /* Subroutine / int chbev_(char jobz, char uplo, integer n, integer *kd,
c@427	849 complex ab, integer ldab, real w, complex z__, integer *ldz,
c@427	850 complex work, real rwork, integer *info);
c@427	851
c@427	852 /* Subroutine / int chbevd_(char jobz, char uplo, integer n, integer *kd,
c@427	853 complex ab, integer ldab, real w, complex z__, integer *ldz,
c@427	854 complex work, integer lwork, real rwork, integer lrwork, integer *
c@427	855 iwork, integer liwork, integer info);
c@427	856
c@427	857 /* Subroutine / int chbevx_(char jobz, char range, char uplo, integer *n,
c@427	858 integer kd, complex ab, integer ldab, complex q, integer *ldq,
c@427	859 real vl, real vu, integer il, integer iu, real abstol, integer
c@427	860 m, real w, complex z__, integer ldz, complex work, real *rwork,
c@427	861 integer iwork, integer ifail, integer *info);
c@427	862
c@427	863 /* Subroutine / int chbgst_(char vect, char uplo, integer n, integer *ka,
c@427	864 integer kb, complex ab, integer ldab, complex bb, integer *ldbb,
c@427	865 complex x, integer ldx, complex work, real rwork, integer *info);
c@427	866
c@427	867 /* Subroutine / int chbgv_(char jobz, char uplo, integer n, integer *ka,
c@427	868 integer kb, complex ab, integer ldab, complex bb, integer *ldbb,
c@427	869 real w, complex z__, integer ldz, complex work, real *rwork,
c@427	870 integer *info);
c@427	871
c@427	872 /* Subroutine / int chbgvd_(char jobz, char uplo, integer n, integer *ka,
c@427	873 integer kb, complex ab, integer ldab, complex bb, integer *ldbb,
c@427	874 real w, complex z__, integer ldz, complex work, integer *lwork,
c@427	875 real rwork, integer lrwork, integer iwork, integer liwork,
c@427	876 integer *info);
c@427	877
c@427	878 /* Subroutine / int chbgvx_(char jobz, char range, char uplo, integer *n,
c@427	879 integer ka, integer kb, complex ab, integer ldab, complex *bb,
c@427	880 integer ldbb, complex q, integer ldq, real vl, real vu, integer
c@427	881 il, integer iu, real abstol, integer m, real w, complex *z__,
c@427	882 integer ldz, complex work, real rwork, integer iwork, integer *
c@427	883 ifail, integer *info);
c@427	884
c@427	885 /* Subroutine / int chbtrd_(char vect, char uplo, integer n, integer *kd,
c@427	886 complex ab, integer ldab, real d__, real e, complex q, integer
c@427	887 ldq, complex work, integer info);
c@427	888
c@427	889 /* Subroutine / int checon_(char uplo, integer n, complex a, integer *lda,
c@427	890 integer ipiv, real anorm, real rcond, complex work, integer *
c@427	891 info);
c@427	892
c@427	893 /* Subroutine / int cheequb_(char uplo, integer n, complex a, integer *
c@427	894 lda, real s, real scond, real amax, complex work, integer *info);
c@427	895
c@427	896 /* Subroutine / int cheev_(char jobz, char uplo, integer n, complex *a,
c@427	897 integer lda, real w, complex work, integer lwork, real *rwork,
c@427	898 integer *info);
c@427	899
c@427	900 /* Subroutine / int cheevd_(char jobz, char uplo, integer n, complex *a,
c@427	901 integer lda, real w, complex work, integer lwork, real *rwork,
c@427	902 integer lrwork, integer iwork, integer liwork, integer info);
c@427	903
c@427	904 /* Subroutine / int cheevr_(char jobz, char range, char uplo, integer *n,
c@427	905 complex a, integer lda, real vl, real vu, integer il, integer
c@427	906 iu, real abstol, integer m, real w, complex z__, integer *ldz,
c@427	907 integer isuppz, complex work, integer lwork, real rwork, integer *
c@427	908 lrwork, integer iwork, integer liwork, integer *info);
c@427	909
c@427	910 /* Subroutine / int cheevx_(char jobz, char range, char uplo, integer *n,
c@427	911 complex a, integer lda, real vl, real vu, integer il, integer
c@427	912 iu, real abstol, integer m, real w, complex z__, integer *ldz,
c@427	913 complex work, integer lwork, real rwork, integer iwork, integer *
c@427	914 ifail, integer *info);
c@427	915
c@427	916 /* Subroutine / int chegs2_(integer itype, char uplo, integer n, complex *
c@427	917 a, integer lda, complex b, integer ldb, integer info);
c@427	918
c@427	919 /* Subroutine / int chegst_(integer itype, char uplo, integer n, complex *
c@427	920 a, integer lda, complex b, integer ldb, integer info);
c@427	921
c@427	922 /* Subroutine / int chegv_(integer itype, char jobz, char uplo, integer *
c@427	923 n, complex a, integer lda, complex b, integer ldb, real *w,
c@427	924 complex work, integer lwork, real rwork, integer info);
c@427	925
c@427	926 /* Subroutine / int chegvd_(integer itype, char jobz, char uplo, integer *
c@427	927 n, complex a, integer lda, complex b, integer ldb, real *w,
c@427	928 complex work, integer lwork, real rwork, integer lrwork, integer *
c@427	929 iwork, integer liwork, integer info);
c@427	930
c@427	931 /* Subroutine / int chegvx_(integer itype, char jobz, char range, char *
c@427	932 uplo, integer n, complex a, integer lda, complex b, integer *ldb,
c@427	933 real vl, real vu, integer il, integer iu, real abstol, integer
c@427	934 m, real w, complex z__, integer ldz, complex work, integer *lwork,
c@427	935 real rwork, integer iwork, integer ifail, integer info);
c@427	936
c@427	937 /* Subroutine / int cherfs_(char uplo, integer n, integer nrhs, complex *
c@427	938 a, integer lda, complex af, integer ldaf, integer ipiv, complex *
c@427	939 b, integer ldb, complex x, integer ldx, real ferr, real *berr,
c@427	940 complex work, real rwork, integer *info);
c@427	941
c@427	942 /* Subroutine / int cherfsx_(char uplo, char equed, integer n, integer *
c@427	943 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	944 ipiv, real s, complex b, integer ldb, complex x, integer *ldx,
c@427	945 real rcond, real berr, integer n_err_bnds__, real err_bnds_norm__,
c@427	946 real err_bnds_comp__, integer nparams, real params, complex work,
c@427	947 real rwork, integer info);
c@427	948
c@427	949 /* Subroutine / int chesv_(char uplo, integer n, integer nrhs, complex *a,
c@427	950 integer lda, integer ipiv, complex b, integer ldb, complex *work,
c@427	951 integer lwork, integer info);
c@427	952
c@427	953 /* Subroutine / int chesvx_(char fact, char uplo, integer n, integer *
c@427	954 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	955 ipiv, complex b, integer ldb, complex x, integer ldx, real *rcond,
c@427	956 real ferr, real berr, complex work, integer lwork, real *rwork,
c@427	957 integer *info);
c@427	958
c@427	959 /* Subroutine / int chesvxx_(char fact, char uplo, integer n, integer *
c@427	960 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	961 ipiv, char equed, real s, complex b, integer ldb, complex *x,
c@427	962 integer ldx, real rcond, real rpvgrw, real berr, integer *
c@427	963 n_err_bnds__, real err_bnds_norm__, real err_bnds_comp__, integer *
c@427	964 nparams, real params, complex work, real rwork, integer info);
c@427	965
c@427	966 /* Subroutine / int chetd2_(char uplo, integer n, complex a, integer *lda,
c@427	967 real d__, real e, complex tau, integer info);
c@427	968
c@427	969 /* Subroutine / int chetf2_(char uplo, integer n, complex a, integer *lda,
c@427	970 integer ipiv, integer info);
c@427	971
c@427	972 /* Subroutine / int chetrd_(char uplo, integer n, complex a, integer *lda,
c@427	973 real d__, real e, complex tau, complex work, integer *lwork,
c@427	974 integer *info);
c@427	975
c@427	976 /* Subroutine / int chetrf_(char uplo, integer n, complex a, integer *lda,
c@427	977 integer ipiv, complex work, integer lwork, integer info);
c@427	978
c@427	979 /* Subroutine / int chetri_(char uplo, integer n, complex a, integer *lda,
c@427	980 integer ipiv, complex work, integer *info);
c@427	981
c@427	982 /* Subroutine / int chetrs_(char uplo, integer n, integer nrhs, complex *
c@427	983 a, integer lda, integer ipiv, complex b, integer ldb, integer *
c@427	984 info);
c@427	985
c@427	986 /* Subroutine / int chfrk_(char transr, char uplo, char trans, integer *n,
c@427	987 integer k, real alpha, complex a, integer lda, real *beta,
c@427	988 complex *c__);
c@427	989
c@427	990 /* Subroutine / int chgeqz_(char job, char compq, char compz, integer *n,
c@427	991 integer ilo, integer ihi, complex h__, integer ldh, complex *t,
c@427	992 integer ldt, complex alpha, complex beta, complex q, integer *ldq,
c@427	993 complex z__, integer ldz, complex work, integer lwork, real *
c@427	994 rwork, integer *info);
c@427	995
c@427	996 /* Character / VOID chla_transtype__(char ret_val, ftnlen ret_val_len,
c@427	997 integer *trans);
c@427	998
c@427	999 /* Subroutine / int chpcon_(char uplo, integer n, complex ap, integer *
c@427	1000 ipiv, real anorm, real rcond, complex work, integer info);
c@427	1001
c@427	1002 /* Subroutine / int chpev_(char jobz, char uplo, integer n, complex *ap,
c@427	1003 real w, complex z__, integer ldz, complex work, real *rwork,
c@427	1004 integer *info);
c@427	1005
c@427	1006 /* Subroutine / int chpevd_(char jobz, char uplo, integer n, complex *ap,
c@427	1007 real w, complex z__, integer ldz, complex work, integer *lwork,
c@427	1008 real rwork, integer lrwork, integer iwork, integer liwork,
c@427	1009 integer *info);
c@427	1010
c@427	1011 /* Subroutine / int chpevx_(char jobz, char range, char uplo, integer *n,
c@427	1012 complex ap, real vl, real vu, integer il, integer iu, real
c@427	1013 abstol, integer m, real w, complex z__, integer ldz, complex *
c@427	1014 work, real rwork, integer iwork, integer ifail, integer info);
c@427	1015
c@427	1016 /* Subroutine / int chpgst_(integer itype, char uplo, integer n, complex *
c@427	1017 ap, complex bp, integer info);
c@427	1018
c@427	1019 /* Subroutine / int chpgv_(integer itype, char jobz, char uplo, integer *
c@427	1020 n, complex ap, complex bp, real w, complex z__, integer *ldz,
c@427	1021 complex work, real rwork, integer *info);
c@427	1022
c@427	1023 /* Subroutine / int chpgvd_(integer itype, char jobz, char uplo, integer *
c@427	1024 n, complex ap, complex bp, real w, complex z__, integer *ldz,
c@427	1025 complex work, integer lwork, real rwork, integer lrwork, integer *
c@427	1026 iwork, integer liwork, integer info);
c@427	1027
c@427	1028 /* Subroutine / int chpgvx_(integer itype, char jobz, char range, char *
c@427	1029 uplo, integer n, complex ap, complex bp, real vl, real *vu,
c@427	1030 integer il, integer iu, real abstol, integer m, real w, complex
c@427	1031 z__, integer ldz, complex work, real rwork, integer iwork,
c@427	1032 integer ifail, integer info);
c@427	1033
c@427	1034 /* Subroutine / int chprfs_(char uplo, integer n, integer nrhs, complex *
c@427	1035 ap, complex afp, integer ipiv, complex b, integer ldb, complex *x,
c@427	1036 integer ldx, real ferr, real berr, complex work, real *rwork,
c@427	1037 integer *info);
c@427	1038
c@427	1039 /* Subroutine / int chpsv_(char uplo, integer n, integer nrhs, complex *
c@427	1040 ap, integer ipiv, complex b, integer ldb, integer info);
c@427	1041
c@427	1042 /* Subroutine / int chpsvx_(char fact, char uplo, integer n, integer *
c@427	1043 nrhs, complex ap, complex afp, integer ipiv, complex b, integer *
c@427	1044 ldb, complex x, integer ldx, real rcond, real ferr, real *berr,
c@427	1045 complex work, real rwork, integer *info);
c@427	1046
c@427	1047 /* Subroutine / int chptrd_(char uplo, integer n, complex ap, real *d__,
c@427	1048 real e, complex tau, integer *info);
c@427	1049
c@427	1050 /* Subroutine / int chptrf_(char uplo, integer n, complex ap, integer *
c@427	1051 ipiv, integer *info);
c@427	1052
c@427	1053 /* Subroutine / int chptri_(char uplo, integer n, complex ap, integer *
c@427	1054 ipiv, complex work, integer info);
c@427	1055
c@427	1056 /* Subroutine / int chptrs_(char uplo, integer n, integer nrhs, complex *
c@427	1057 ap, integer ipiv, complex b, integer ldb, integer info);
c@427	1058
c@427	1059 /* Subroutine / int chsein_(char side, char eigsrc, char initv, logical *
c@427	1060 select, integer n, complex h__, integer ldh, complex w, complex *
c@427	1061 vl, integer ldvl, complex vr, integer ldvr, integer mm, integer *
c@427	1062 m, complex work, real rwork, integer ifaill, integer ifailr,
c@427	1063 integer *info);
c@427	1064
c@427	1065 /* Subroutine / int chseqr_(char job, char compz, integer n, integer *ilo,
c@427	1066 integer ihi, complex h__, integer ldh, complex w, complex *z__,
c@427	1067 integer ldz, complex work, integer lwork, integer info);
c@427	1068
c@427	1069 /* Subroutine / int cla_gbamv__(integer trans, integer m, integer n,
c@427	1070 integer kl, integer ku, real alpha, complex ab, integer *ldab,
c@427	1071 complex x, integer incx, real beta, real y, integer *incy);
c@427	1072
c@427	1073 doublereal cla_gbrcond_c__(char trans, integer n, integer kl, integer ku,
c@427	1074 complex ab, integer ldab, complex afb, integer ldafb, integer *
c@427	1075 ipiv, real c__, logical capply, integer info, complex work, real *
c@427	1076 rwork, ftnlen trans_len);
c@427	1077
c@427	1078 doublereal cla_gbrcond_x__(char trans, integer n, integer kl, integer ku,
c@427	1079 complex ab, integer ldab, complex afb, integer ldafb, integer *
c@427	1080 ipiv, complex x, integer info, complex work, real rwork, ftnlen
c@427	1081 trans_len);
c@427	1082
c@427	1083 /* Subroutine / int cla_gbrfsx_extended__(integer prec_type__, integer *
c@427	1084 trans_type__, integer n, integer kl, integer ku, integer nrhs,
c@427	1085 complex ab, integer ldab, complex afb, integer ldafb, integer *
c@427	1086 ipiv, logical colequ, real c__, complex b, integer ldb, complex *
c@427	1087 y, integer ldy, real berr_out__, integer n_norms__, real errs_n__,
c@427	1088 real errs_c__, complex res, real ayb, complex dy, complex *
c@427	1089 y_tail__, real rcond, integer ithresh, real rthresh, real dz_ub__,
c@427	1090 logical ignore_cwise__, integer info);
c@427	1091
c@427	1092 doublereal cla_gbrpvgrw__(integer n, integer kl, integer ku, integer
c@427	1093 ncols, complex ab, integer ldab, complex afb, integer ldafb);
c@427	1094
c@427	1095 /* Subroutine / int cla_geamv__(integer trans, integer m, integer n, real
c@427	1096 alpha, complex a, integer lda, complex x, integer incx, real
c@427	1097 beta, real y, integer incy);
c@427	1098
c@427	1099 doublereal cla_gercond_c__(char trans, integer n, complex a, integer lda,
c@427	1100 complex af, integer ldaf, integer ipiv, real c__, logical *capply,
c@427	1101 integer info, complex work, real *rwork, ftnlen trans_len);
c@427	1102
c@427	1103 doublereal cla_gercond_x__(char trans, integer n, complex a, integer lda,
c@427	1104 complex af, integer ldaf, integer ipiv, complex x, integer *info,
c@427	1105 complex work, real rwork, ftnlen trans_len);
c@427	1106
c@427	1107 /* Subroutine / int cla_gerfsx_extended__(integer prec_type__, integer *
c@427	1108 trans_type__, integer n, integer nrhs, complex a, integer lda,
c@427	1109 complex af, integer ldaf, integer ipiv, logical colequ, real *c__,
c@427	1110 complex b, integer ldb, complex y, integer ldy, real *berr_out__,
c@427	1111 integer n_norms__, real errs_n__, real errs_c__, complex res,
c@427	1112 real ayb, complex dy, complex y_tail__, real rcond, integer *
c@427	1113 ithresh, real rthresh, real dz_ub__, logical *ignore_cwise__,
c@427	1114 integer *info);
c@427	1115
c@427	1116 /* Subroutine / int cla_heamv__(integer uplo, integer n, real alpha,
c@427	1117 complex a, integer lda, complex x, integer incx, real *beta, real
c@427	1118 y, integer incy);
c@427	1119
c@427	1120 doublereal cla_hercond_c__(char uplo, integer n, complex a, integer lda,
c@427	1121 complex af, integer ldaf, integer ipiv, real c__, logical *capply,
c@427	1122 integer info, complex work, real *rwork, ftnlen uplo_len);
c@427	1123
c@427	1124 doublereal cla_hercond_x__(char uplo, integer n, complex a, integer lda,
c@427	1125 complex af, integer ldaf, integer ipiv, complex x, integer *info,
c@427	1126 complex work, real rwork, ftnlen uplo_len);
c@427	1127
c@427	1128 /* Subroutine / int cla_herfsx_extended__(integer prec_type__, char *uplo,
c@427	1129 integer n, integer nrhs, complex a, integer lda, complex *af,
c@427	1130 integer ldaf, integer ipiv, logical colequ, real c__, complex *b,
c@427	1131 integer ldb, complex y, integer ldy, real berr_out__, integer *
c@427	1132 n_norms__, real errs_n__, real errs_c__, complex res, real ayb,
c@427	1133 complex dy, complex y_tail__, real rcond, integer ithresh, real *
c@427	1134 rthresh, real dz_ub__, logical ignore_cwise__, integer *info,
c@427	1135 ftnlen uplo_len);
c@427	1136
c@427	1137 doublereal cla_herpvgrw__(char uplo, integer n, integer info, complex a,
c@427	1138 integer lda, complex af, integer ldaf, integer ipiv, real *work,
c@427	1139 ftnlen uplo_len);
c@427	1140
c@427	1141 /* Subroutine / int cla_lin_berr__(integer n, integer nz, integer nrhs,
c@427	1142 complex res, real ayb, real *berr);
c@427	1143
c@427	1144 doublereal cla_porcond_c__(char uplo, integer n, complex a, integer lda,
c@427	1145 complex af, integer ldaf, real c__, logical capply, integer *info,
c@427	1146 complex work, real rwork, ftnlen uplo_len);
c@427	1147
c@427	1148 doublereal cla_porcond_x__(char uplo, integer n, complex a, integer lda,
c@427	1149 complex af, integer ldaf, complex x, integer info, complex *work,
c@427	1150 real *rwork, ftnlen uplo_len);
c@427	1151
c@427	1152 /* Subroutine / int cla_porfsx_extended__(integer prec_type__, char *uplo,
c@427	1153 integer n, integer nrhs, complex a, integer lda, complex *af,
c@427	1154 integer ldaf, logical colequ, real c__, complex b, integer *ldb,
c@427	1155 complex y, integer ldy, real berr_out__, integer n_norms__, real *
c@427	1156 errs_n__, real errs_c__, complex res, real ayb, complex dy,
c@427	1157 complex y_tail__, real rcond, integer ithresh, real rthresh, real
c@427	1158 dz_ub__, logical ignore_cwise__, integer *info, ftnlen uplo_len);
c@427	1159
c@427	1160 doublereal cla_porpvgrw__(char uplo, integer ncols, complex a, integer
c@427	1161 lda, complex af, integer ldaf, real *work, ftnlen uplo_len);
c@427	1162
c@427	1163 doublereal cla_rpvgrw__(integer n, integer ncols, complex a, integer lda,
c@427	1164 complex af, integer ldaf);
c@427	1165
c@427	1166 /* Subroutine / int cla_syamv__(integer uplo, integer n, real alpha,
c@427	1167 complex a, integer lda, complex x, integer incx, real *beta, real
c@427	1168 y, integer incy);
c@427	1169
c@427	1170 doublereal cla_syrcond_c__(char uplo, integer n, complex a, integer lda,
c@427	1171 complex af, integer ldaf, integer ipiv, real c__, logical *capply,
c@427	1172 integer info, complex work, real *rwork, ftnlen uplo_len);
c@427	1173
c@427	1174 doublereal cla_syrcond_x__(char uplo, integer n, complex a, integer lda,
c@427	1175 complex af, integer ldaf, integer ipiv, complex x, integer *info,
c@427	1176 complex work, real rwork, ftnlen uplo_len);
c@427	1177
c@427	1178 /* Subroutine / int cla_syrfsx_extended__(integer prec_type__, char *uplo,
c@427	1179 integer n, integer nrhs, complex a, integer lda, complex *af,
c@427	1180 integer ldaf, integer ipiv, logical colequ, real c__, complex *b,
c@427	1181 integer ldb, complex y, integer ldy, real berr_out__, integer *
c@427	1182 n_norms__, real errs_n__, real errs_c__, complex res, real ayb,
c@427	1183 complex dy, complex y_tail__, real rcond, integer ithresh, real *
c@427	1184 rthresh, real dz_ub__, logical ignore_cwise__, integer *info,
c@427	1185 ftnlen uplo_len);
c@427	1186
c@427	1187 doublereal cla_syrpvgrw__(char uplo, integer n, integer info, complex a,
c@427	1188 integer lda, complex af, integer ldaf, integer ipiv, real *work,
c@427	1189 ftnlen uplo_len);
c@427	1190
c@427	1191 /* Subroutine / int cla_wwaddw__(integer n, complex x, complex y, complex
c@427	1192 *w);
c@427	1193
c@427	1194 /* Subroutine / int clabrd_(integer m, integer n, integer nb, complex *a,
c@427	1195 integer lda, real d__, real e, complex tauq, complex *taup,
c@427	1196 complex x, integer ldx, complex y, integer ldy);
c@427	1197
c@427	1198 /* Subroutine / int clacgv_(integer n, complex x, integer incx);
c@427	1199
c@427	1200 /* Subroutine / int clacn2_(integer n, complex v, complex x, real *est,
c@427	1201 integer kase, integer isave);
c@427	1202
c@427	1203 /* Subroutine / int clacon_(integer n, complex v, complex x, real *est,
c@427	1204 integer *kase);
c@427	1205
c@427	1206 /* Subroutine / int clacp2_(char uplo, integer m, integer n, real *a,
c@427	1207 integer lda, complex b, integer *ldb);
c@427	1208
c@427	1209 /* Subroutine / int clacpy_(char uplo, integer m, integer n, complex *a,
c@427	1210 integer lda, complex b, integer *ldb);
c@427	1211
c@427	1212 /* Subroutine / int clacrm_(integer m, integer n, complex a, integer *lda,
c@427	1213 real b, integer ldb, complex c__, integer ldc, real *rwork);
c@427	1214
c@427	1215 /* Subroutine / int clacrt_(integer n, complex cx, integer incx, complex *
c@427	1216 cy, integer incy, complex c__, complex *s);
c@427	1217
c@427	1218 /* Complex / VOID cladiv_(complex ret_val, complex x, complex y);
c@427	1219
c@427	1220 /* Subroutine / int claed0_(integer qsiz, integer n, real d__, real *e,
c@427	1221 complex q, integer ldq, complex qstore, integer ldqs, real *rwork,
c@427	1222 integer iwork, integer info);
c@427	1223
c@427	1224 /* Subroutine / int claed7_(integer n, integer cutpnt, integer qsiz,
c@427	1225 integer tlvls, integer curlvl, integer curpbm, real d__, complex *
c@427	1226 q, integer ldq, real rho, integer indxq, real qstore, integer *
c@427	1227 qptr, integer prmptr, integer perm, integer givptr, integer
c@427	1228 givcol, real givnum, complex work, real rwork, integer iwork,
c@427	1229 integer *info);
c@427	1230
c@427	1231 /* Subroutine / int claed8_(integer k, integer n, integer qsiz, complex *
c@427	1232 q, integer ldq, real d__, real rho, integer cutpnt, real *z__,
c@427	1233 real dlamda, complex q2, integer ldq2, real w, integer *indxp,
c@427	1234 integer indx, integer indxq, integer perm, integer givptr,
c@427	1235 integer givcol, real givnum, integer *info);
c@427	1236
c@427	1237 /* Subroutine / int claein_(logical rightv, logical noinit, integer n,
c@427	1238 complex h__, integer ldh, complex w, complex v, complex *b,
c@427	1239 integer ldb, real rwork, real eps3, real smlnum, integer *info);
c@427	1240
c@427	1241 /* Subroutine / int claesy_(complex a, complex b, complex c__, complex *
c@427	1242 rt1, complex rt2, complex evscal, complex cs1, complex sn1);
c@427	1243
c@427	1244 /* Subroutine / int claev2_(complex a, complex b, complex c__, real *rt1,
c@427	1245 real rt2, real cs1, complex *sn1);
c@427	1246
c@427	1247 /* Subroutine / int clag2z_(integer m, integer n, complex sa, integer *
c@427	1248 ldsa, doublecomplex a, integer lda, integer *info);
c@427	1249
c@427	1250 /* Subroutine / int clags2_(logical upper, real a1, complex a2, real *a3,
c@427	1251 real b1, complex b2, real b3, real csu, complex snu, real csv,
c@427	1252 complex snv, real csq, complex *snq);
c@427	1253
c@427	1254 /* Subroutine / int clagtm_(char trans, integer n, integer nrhs, real *
c@427	1255 alpha, complex dl, complex d__, complex du, complex x, integer *
c@427	1256 ldx, real beta, complex b, integer *ldb);
c@427	1257
c@427	1258 /* Subroutine / int clahef_(char uplo, integer n, integer nb, integer *kb,
c@427	1259 complex a, integer lda, integer ipiv, complex w, integer *ldw,
c@427	1260 integer *info);
c@427	1261
c@427	1262 /* Subroutine / int clahqr_(logical wantt, logical wantz, integer n,
c@427	1263 integer ilo, integer ihi, complex h__, integer ldh, complex *w,
c@427	1264 integer iloz, integer ihiz, complex z__, integer ldz, integer *
c@427	1265 info);
c@427	1266
c@427	1267 /* Subroutine / int clahr2_(integer n, integer k, integer nb, complex *a,
c@427	1268 integer lda, complex tau, complex t, integer ldt, complex *y,
c@427	1269 integer *ldy);
c@427	1270
c@427	1271 /* Subroutine / int clahrd_(integer n, integer k, integer nb, complex *a,
c@427	1272 integer lda, complex tau, complex t, integer ldt, complex *y,
c@427	1273 integer *ldy);
c@427	1274
c@427	1275 /* Subroutine / int claic1_(integer job, integer j, complex x, real *sest,
c@427	1276 complex w, complex gamma, real sestpr, complex s, complex *c__);
c@427	1277
c@427	1278 /* Subroutine / int clals0_(integer icompq, integer nl, integer nr,
c@427	1279 integer sqre, integer nrhs, complex b, integer ldb, complex *bx,
c@427	1280 integer ldbx, integer perm, integer givptr, integer givcol,
c@427	1281 integer ldgcol, real givnum, integer ldgnum, real poles, real *
c@427	1282 difl, real difr, real z__, integer k, real c__, real s, real
c@427	1283 rwork, integer *info);
c@427	1284
c@427	1285 /* Subroutine / int clalsa_(integer icompq, integer smlsiz, integer n,
c@427	1286 integer nrhs, complex b, integer ldb, complex bx, integer *ldbx,
c@427	1287 real u, integer ldu, real vt, integer k, real difl, real difr,
c@427	1288 real z__, real poles, integer givptr, integer givcol, integer *
c@427	1289 ldgcol, integer perm, real givnum, real c__, real s, real *rwork,
c@427	1290 integer iwork, integer info);
c@427	1291
c@427	1292 /* Subroutine / int clalsd_(char uplo, integer smlsiz, integer n, integer
c@427	1293 nrhs, real d__, real e, complex b, integer ldb, real rcond,
c@427	1294 integer rank, complex work, real rwork, integer iwork, integer *
c@427	1295 info);
c@427	1296
c@427	1297 doublereal clangb_(char norm, integer n, integer kl, integer ku, complex *
c@427	1298 ab, integer ldab, real work);
c@427	1299
c@427	1300 doublereal clange_(char norm, integer m, integer n, complex a, integer *
c@427	1301 lda, real *work);
c@427	1302
c@427	1303 doublereal clangt_(char norm, integer n, complex dl, complex d__, complex
c@427	1304 *du);
c@427	1305
c@427	1306 doublereal clanhb_(char norm, char uplo, integer n, integer k, complex *
c@427	1307 ab, integer ldab, real work);
c@427	1308
c@427	1309 doublereal clanhe_(char norm, char uplo, integer n, complex a, integer *
c@427	1310 lda, real *work);
c@427	1311
c@427	1312 doublereal clanhf_(char norm, char transr, char uplo, integer n, complex *
c@427	1313 a, real *work);
c@427	1314
c@427	1315 doublereal clanhp_(char norm, char uplo, integer n, complex ap, real *
c@427	1316 work);
c@427	1317
c@427	1318 doublereal clanhs_(char norm, integer n, complex a, integer lda, real *
c@427	1319 work);
c@427	1320
c@427	1321 doublereal clanht_(char norm, integer n, real d__, complex e);
c@427	1322
c@427	1323 doublereal clansb_(char norm, char uplo, integer n, integer k, complex *
c@427	1324 ab, integer ldab, real work);
c@427	1325
c@427	1326 doublereal clansp_(char norm, char uplo, integer n, complex ap, real *
c@427	1327 work);
c@427	1328
c@427	1329 doublereal clansy_(char norm, char uplo, integer n, complex a, integer *
c@427	1330 lda, real *work);
c@427	1331
c@427	1332 doublereal clantb_(char norm, char uplo, char diag, integer n, integer *k,
c@427	1333 complex ab, integer ldab, real *work);
c@427	1334
c@427	1335 doublereal clantp_(char norm, char uplo, char diag, integer n, complex *
c@427	1336 ap, real *work);
c@427	1337
c@427	1338 doublereal clantr_(char norm, char uplo, char diag, integer m, integer *n,
c@427	1339 complex a, integer lda, real *work);
c@427	1340
c@427	1341 /* Subroutine / int clapll_(integer n, complex x, integer incx, complex *
c@427	1342 y, integer incy, real ssmin);
c@427	1343
c@427	1344 /* Subroutine / int clapmt_(logical forwrd, integer m, integer n, complex
c@427	1345 x, integer ldx, integer *k);
c@427	1346
c@427	1347 /* Subroutine / int claqgb_(integer m, integer n, integer kl, integer *ku,
c@427	1348 complex ab, integer ldab, real r__, real c__, real *rowcnd, real
c@427	1349 colcnd, real amax, char *equed);
c@427	1350
c@427	1351 /* Subroutine / int claqge_(integer m, integer n, complex a, integer *lda,
c@427	1352 real r__, real c__, real rowcnd, real colcnd, real amax, char
c@427	1353 equed);
c@427	1354
c@427	1355 /* Subroutine / int claqhb_(char uplo, integer n, integer kd, complex *ab,
c@427	1356 integer ldab, real s, real scond, real amax, char *equed);
c@427	1357
c@427	1358 /* Subroutine / int claqhe_(char uplo, integer n, complex a, integer *lda,
c@427	1359 real s, real scond, real amax, char equed);
c@427	1360
c@427	1361 /* Subroutine / int claqhp_(char uplo, integer n, complex ap, real *s,
c@427	1362 real scond, real amax, char *equed);
c@427	1363
c@427	1364 /* Subroutine / int claqp2_(integer m, integer n, integer offset, complex
c@427	1365 a, integer lda, integer jpvt, complex tau, real vn1, real vn2,
c@427	1366 complex *work);
c@427	1367
c@427	1368 /* Subroutine / int claqps_(integer m, integer n, integer offset, integer
c@427	1369 nb, integer kb, complex a, integer lda, integer jpvt, complex
c@427	1370 tau, real vn1, real vn2, complex auxv, complex f, integer *ldf);
c@427	1371
c@427	1372 /* Subroutine / int claqr0_(logical wantt, logical wantz, integer n,
c@427	1373 integer ilo, integer ihi, complex h__, integer ldh, complex *w,
c@427	1374 integer iloz, integer ihiz, complex z__, integer ldz, complex *
c@427	1375 work, integer lwork, integer info);
c@427	1376
c@427	1377 /* Subroutine / int claqr1_(integer n, complex h__, integer ldh, complex *
c@427	1378 s1, complex s2, complex v);
c@427	1379
c@427	1380 /* Subroutine / int claqr2_(logical wantt, logical wantz, integer n,
c@427	1381 integer ktop, integer kbot, integer nw, complex h__, integer *ldh,
c@427	1382 integer iloz, integer ihiz, complex z__, integer ldz, integer *
c@427	1383 ns, integer nd, complex sh, complex v, integer ldv, integer *nh,
c@427	1384 complex t, integer ldt, integer nv, complex wv, integer *ldwv,
c@427	1385 complex work, integer lwork);
c@427	1386
c@427	1387 /* Subroutine / int claqr3_(logical wantt, logical wantz, integer n,
c@427	1388 integer ktop, integer kbot, integer nw, complex h__, integer *ldh,
c@427	1389 integer iloz, integer ihiz, complex z__, integer ldz, integer *
c@427	1390 ns, integer nd, complex sh, complex v, integer ldv, integer *nh,
c@427	1391 complex t, integer ldt, integer nv, complex wv, integer *ldwv,
c@427	1392 complex work, integer lwork);
c@427	1393
c@427	1394 /* Subroutine / int claqr4_(logical wantt, logical wantz, integer n,
c@427	1395 integer ilo, integer ihi, complex h__, integer ldh, complex *w,
c@427	1396 integer iloz, integer ihiz, complex z__, integer ldz, complex *
c@427	1397 work, integer lwork, integer info);
c@427	1398
c@427	1399 /* Subroutine / int claqr5_(logical wantt, logical wantz, integer kacc22,
c@427	1400 integer n, integer ktop, integer kbot, integer nshfts, complex *s,
c@427	1401 complex h__, integer ldh, integer iloz, integer ihiz, complex *
c@427	1402 z__, integer ldz, complex v, integer ldv, complex u, integer *ldu,
c@427	1403 integer nv, complex wv, integer ldwv, integer nh, complex *wh,
c@427	1404 integer *ldwh);
c@427	1405
c@427	1406 /* Subroutine / int claqsb_(char uplo, integer n, integer kd, complex *ab,
c@427	1407 integer ldab, real s, real scond, real amax, char *equed);
c@427	1408
c@427	1409 /* Subroutine / int claqsp_(char uplo, integer n, complex ap, real *s,
c@427	1410 real scond, real amax, char *equed);
c@427	1411
c@427	1412 /* Subroutine / int claqsy_(char uplo, integer n, complex a, integer *lda,
c@427	1413 real s, real scond, real amax, char equed);
c@427	1414
c@427	1415 /* Subroutine / int clar1v_(integer n, integer b1, integer bn, real *
c@427	1416 lambda, real d__, real l, real ld, real lld, real pivmin, real
c@427	1417 gaptol, complex z__, logical wantnc, integer negcnt, real ztz,
c@427	1418 real mingma, integer r__, integer isuppz, real nrminv, real *
c@427	1419 resid, real rqcorr, real work);
c@427	1420
c@427	1421 /* Subroutine / int clar2v_(integer n, complex x, complex y, complex *z__,
c@427	1422 integer incx, real c__, complex s, integer incc);
c@427	1423
c@427	1424 /* Subroutine / int clarcm_(integer m, integer n, real a, integer *lda,
c@427	1425 complex b, integer ldb, complex c__, integer ldc, real *rwork);
c@427	1426
c@427	1427 /* Subroutine / int clarf_(char side, integer m, integer n, complex *v,
c@427	1428 integer incv, complex tau, complex c__, integer ldc, complex *
c@427	1429 work);
c@427	1430
c@427	1431 /* Subroutine / int clarfb_(char side, char trans, char direct, char *
c@427	1432 storev, integer m, integer n, integer k, complex v, integer *ldv,
c@427	1433 complex t, integer ldt, complex c__, integer ldc, complex *work,
c@427	1434 integer *ldwork);
c@427	1435
c@427	1436 /* Subroutine / int clarfg_(integer n, complex alpha, complex x, integer *
c@427	1437 incx, complex *tau);
c@427	1438
c@427	1439 /* Subroutine / int clarfp_(integer n, complex alpha, complex x, integer *
c@427	1440 incx, complex *tau);
c@427	1441
c@427	1442 /* Subroutine / int clarft_(char direct, char storev, integer n, integer *
c@427	1443 k, complex v, integer ldv, complex tau, complex t, integer *ldt);
c@427	1444
c@427	1445 /* Subroutine / int clarfx_(char side, integer m, integer n, complex *v,
c@427	1446 complex tau, complex c__, integer ldc, complex work);
c@427	1447
c@427	1448 /* Subroutine / int clargv_(integer n, complex x, integer incx, complex *
c@427	1449 y, integer incy, real c__, integer *incc);
c@427	1450
c@427	1451 /* Subroutine / int clarnv_(integer idist, integer iseed, integer n,
c@427	1452 complex *x);
c@427	1453
c@427	1454 /* Subroutine / int clarrv_(integer n, real vl, real vu, real d__, real
c@427	1455 l, real pivmin, integer isplit, integer m, integer dol, integer *
c@427	1456 dou, real minrgp, real rtol1, real rtol2, real w, real *werr,
c@427	1457 real wgap, integer iblock, integer indexw, real gers, complex *
c@427	1458 z__, integer ldz, integer isuppz, real work, integer iwork,
c@427	1459 integer *info);
c@427	1460
c@427	1461 /* Subroutine / int clarscl2_(integer m, integer n, real d__, complex *x,
c@427	1462 integer *ldx);
c@427	1463
c@427	1464 /* Subroutine / int clartg_(complex f, complex g, real cs, complex *sn,
c@427	1465 complex *r__);
c@427	1466
c@427	1467 /* Subroutine / int clartv_(integer n, complex x, integer incx, complex *
c@427	1468 y, integer incy, real c__, complex s, integer incc);
c@427	1469
c@427	1470 /* Subroutine / int clarz_(char side, integer m, integer n, integer *l,
c@427	1471 complex v, integer incv, complex tau, complex c__, integer *ldc,
c@427	1472 complex *work);
c@427	1473
c@427	1474 /* Subroutine / int clarzb_(char side, char trans, char direct, char *
c@427	1475 storev, integer m, integer n, integer k, integer l, complex *v,
c@427	1476 integer ldv, complex t, integer ldt, complex c__, integer *ldc,
c@427	1477 complex work, integer ldwork);
c@427	1478
c@427	1479 /* Subroutine / int clarzt_(char direct, char storev, integer n, integer *
c@427	1480 k, complex v, integer ldv, complex tau, complex t, integer *ldt);
c@427	1481
c@427	1482 /* Subroutine / int clascl_(char type__, integer kl, integer ku, real *
c@427	1483 cfrom, real cto, integer m, integer n, complex a, integer *lda,
c@427	1484 integer *info);
c@427	1485
c@427	1486 /* Subroutine / int clascl2_(integer m, integer n, real d__, complex *x,
c@427	1487 integer *ldx);
c@427	1488
c@427	1489 /* Subroutine / int claset_(char uplo, integer m, integer n, complex *
c@427	1490 alpha, complex beta, complex a, integer *lda);
c@427	1491
c@427	1492 /* Subroutine / int clasr_(char side, char pivot, char direct, integer *m,
c@427	1493 integer n, real c__, real s, complex a, integer *lda);
c@427	1494
c@427	1495 /* Subroutine / int classq_(integer n, complex x, integer incx, real *
c@427	1496 scale, real *sumsq);
c@427	1497
c@427	1498 /* Subroutine / int claswp_(integer n, complex a, integer lda, integer *
c@427	1499 k1, integer k2, integer ipiv, integer *incx);
c@427	1500
c@427	1501 /* Subroutine / int clasyf_(char uplo, integer n, integer nb, integer *kb,
c@427	1502 complex a, integer lda, integer ipiv, complex w, integer *ldw,
c@427	1503 integer *info);
c@427	1504
c@427	1505 /* Subroutine / int clatbs_(char uplo, char trans, char diag, char *
c@427	1506 normin, integer n, integer kd, complex ab, integer ldab, complex *
c@427	1507 x, real scale, real cnorm, integer *info);
c@427	1508
c@427	1509 /* Subroutine / int clatdf_(integer ijob, integer n, complex z__, integer
c@427	1510 ldz, complex rhs, real rdsum, real rdscal, integer *ipiv, integer
c@427	1511 *jpiv);
c@427	1512
c@427	1513 /* Subroutine / int clatps_(char uplo, char trans, char diag, char *
c@427	1514 normin, integer n, complex ap, complex x, real scale, real *cnorm,
c@427	1515 integer *info);
c@427	1516
c@427	1517 /* Subroutine / int clatrd_(char uplo, integer n, integer nb, complex *a,
c@427	1518 integer lda, real e, complex tau, complex w, integer *ldw);
c@427	1519
c@427	1520 /* Subroutine / int clatrs_(char uplo, char trans, char diag, char *
c@427	1521 normin, integer n, complex a, integer lda, complex x, real *scale,
c@427	1522 real cnorm, integer info);
c@427	1523
c@427	1524 /* Subroutine / int clatrz_(integer m, integer n, integer l, complex *a,
c@427	1525 integer lda, complex tau, complex *work);
c@427	1526
c@427	1527 /* Subroutine / int clatzm_(char side, integer m, integer n, complex *v,
c@427	1528 integer incv, complex tau, complex c1, complex c2, integer *ldc,
c@427	1529 complex *work);
c@427	1530
c@427	1531 /* Subroutine / int clauu2_(char uplo, integer n, complex a, integer *lda,
c@427	1532 integer *info);
c@427	1533
c@427	1534 /* Subroutine / int clauum_(char uplo, integer n, complex a, integer *lda,
c@427	1535 integer *info);
c@427	1536
c@427	1537 /* Subroutine / int cpbcon_(char uplo, integer n, integer kd, complex *ab,
c@427	1538 integer ldab, real anorm, real rcond, complex work, real *rwork,
c@427	1539 integer *info);
c@427	1540
c@427	1541 /* Subroutine / int cpbequ_(char uplo, integer n, integer kd, complex *ab,
c@427	1542 integer ldab, real s, real scond, real amax, integer *info);
c@427	1543
c@427	1544 /* Subroutine / int cpbrfs_(char uplo, integer n, integer kd, integer *
c@427	1545 nrhs, complex ab, integer ldab, complex afb, integer ldafb,
c@427	1546 complex b, integer ldb, complex x, integer ldx, real ferr, real
c@427	1547 berr, complex work, real rwork, integer *info);
c@427	1548
c@427	1549 /* Subroutine / int cpbstf_(char uplo, integer n, integer kd, complex *ab,
c@427	1550 integer ldab, integer info);
c@427	1551
c@427	1552 /* Subroutine / int cpbsv_(char uplo, integer n, integer kd, integer *
c@427	1553 nrhs, complex ab, integer ldab, complex b, integer ldb, integer *
c@427	1554 info);
c@427	1555
c@427	1556 /* Subroutine / int cpbsvx_(char fact, char uplo, integer n, integer *kd,
c@427	1557 integer nrhs, complex ab, integer ldab, complex afb, integer *
c@427	1558 ldafb, char equed, real s, complex b, integer ldb, complex *x,
c@427	1559 integer ldx, real rcond, real ferr, real berr, complex *work,
c@427	1560 real rwork, integer info);
c@427	1561
c@427	1562 /* Subroutine / int cpbtf2_(char uplo, integer n, integer kd, complex *ab,
c@427	1563 integer ldab, integer info);
c@427	1564
c@427	1565 /* Subroutine / int cpbtrf_(char uplo, integer n, integer kd, complex *ab,
c@427	1566 integer ldab, integer info);
c@427	1567
c@427	1568 /* Subroutine / int cpbtrs_(char uplo, integer n, integer kd, integer *
c@427	1569 nrhs, complex ab, integer ldab, complex b, integer ldb, integer *
c@427	1570 info);
c@427	1571
c@427	1572 /* Subroutine / int cpftrf_(char transr, char uplo, integer n, complex *a,
c@427	1573 integer *info);
c@427	1574
c@427	1575 /* Subroutine / int cpftri_(char transr, char uplo, integer n, complex *a,
c@427	1576 integer *info);
c@427	1577
c@427	1578 /* Subroutine / int cpftrs_(char transr, char uplo, integer n, integer *
c@427	1579 nrhs, complex a, complex b, integer ldb, integer info);
c@427	1580
c@427	1581 /* Subroutine / int cpocon_(char uplo, integer n, complex a, integer *lda,
c@427	1582 real anorm, real rcond, complex work, real rwork, integer *info);
c@427	1583
c@427	1584 /* Subroutine / int cpoequ_(integer n, complex a, integer lda, real *s,
c@427	1585 real scond, real amax, integer *info);
c@427	1586
c@427	1587 /* Subroutine / int cpoequb_(integer n, complex a, integer lda, real *s,
c@427	1588 real scond, real amax, integer *info);
c@427	1589
c@427	1590 /* Subroutine / int cporfs_(char uplo, integer n, integer nrhs, complex *
c@427	1591 a, integer lda, complex af, integer ldaf, complex b, integer *ldb,
c@427	1592 complex x, integer ldx, real ferr, real berr, complex *work,
c@427	1593 real rwork, integer info);
c@427	1594
c@427	1595 /* Subroutine / int cporfsx_(char uplo, char equed, integer n, integer *
c@427	1596 nrhs, complex a, integer lda, complex af, integer ldaf, real *s,
c@427	1597 complex b, integer ldb, complex x, integer ldx, real *rcond, real
c@427	1598 berr, integer n_err_bnds__, real err_bnds_norm__, real
c@427	1599 err_bnds_comp__, integer nparams, real params, complex work, real
c@427	1600 rwork, integer *info);
c@427	1601
c@427	1602 /* Subroutine / int cposv_(char uplo, integer n, integer nrhs, complex *a,
c@427	1603 integer lda, complex b, integer ldb, integer info);
c@427	1604
c@427	1605 /* Subroutine / int cposvx_(char fact, char uplo, integer n, integer *
c@427	1606 nrhs, complex a, integer lda, complex af, integer ldaf, char *
c@427	1607 equed, real s, complex b, integer ldb, complex x, integer *ldx,
c@427	1608 real rcond, real ferr, real berr, complex work, real *rwork,
c@427	1609 integer *info);
c@427	1610
c@427	1611 /* Subroutine / int cposvxx_(char fact, char uplo, integer n, integer *
c@427	1612 nrhs, complex a, integer lda, complex af, integer ldaf, char *
c@427	1613 equed, real s, complex b, integer ldb, complex x, integer *ldx,
c@427	1614 real rcond, real rpvgrw, real berr, integer n_err_bnds__, real *
c@427	1615 err_bnds_norm__, real err_bnds_comp__, integer nparams, real *
c@427	1616 params, complex work, real rwork, integer *info);
c@427	1617
c@427	1618 /* Subroutine / int cpotf2_(char uplo, integer n, complex a, integer *lda,
c@427	1619 integer *info);
c@427	1620
c@427	1621 /* Subroutine / int cpotrf_(char uplo, integer n, complex a, integer *lda,
c@427	1622 integer *info);
c@427	1623
c@427	1624 /* Subroutine / int cpotri_(char uplo, integer n, complex a, integer *lda,
c@427	1625 integer *info);
c@427	1626
c@427	1627 /* Subroutine / int cpotrs_(char uplo, integer n, integer nrhs, complex *
c@427	1628 a, integer lda, complex b, integer ldb, integer info);
c@427	1629
c@427	1630 /* Subroutine / int cppcon_(char uplo, integer n, complex ap, real *anorm,
c@427	1631 real rcond, complex work, real rwork, integer info);
c@427	1632
c@427	1633 /* Subroutine / int cppequ_(char uplo, integer n, complex ap, real *s,
c@427	1634 real scond, real amax, integer *info);
c@427	1635
c@427	1636 /* Subroutine / int cpprfs_(char uplo, integer n, integer nrhs, complex *
c@427	1637 ap, complex afp, complex b, integer ldb, complex x, integer *ldx,
c@427	1638 real ferr, real berr, complex work, real rwork, integer *info);
c@427	1639
c@427	1640 /* Subroutine / int cppsv_(char uplo, integer n, integer nrhs, complex *
c@427	1641 ap, complex b, integer ldb, integer *info);
c@427	1642
c@427	1643 /* Subroutine / int cppsvx_(char fact, char uplo, integer n, integer *
c@427	1644 nrhs, complex ap, complex afp, char equed, real s, complex *b,
c@427	1645 integer ldb, complex x, integer ldx, real rcond, real *ferr, real
c@427	1646 berr, complex work, real rwork, integer info);
c@427	1647
c@427	1648 /* Subroutine / int cpptrf_(char uplo, integer n, complex ap, integer *
c@427	1649 info);
c@427	1650
c@427	1651 /* Subroutine / int cpptri_(char uplo, integer n, complex ap, integer *
c@427	1652 info);
c@427	1653
c@427	1654 /* Subroutine / int cpptrs_(char uplo, integer n, integer nrhs, complex *
c@427	1655 ap, complex b, integer ldb, integer *info);
c@427	1656
c@427	1657 /* Subroutine / int cpstf2_(char uplo, integer n, complex a, integer *lda,
c@427	1658 integer piv, integer rank, real tol, real work, integer *info);
c@427	1659
c@427	1660 /* Subroutine / int cpstrf_(char uplo, integer n, complex a, integer *lda,
c@427	1661 integer piv, integer rank, real tol, real work, integer *info);
c@427	1662
c@427	1663 /* Subroutine / int cptcon_(integer n, real d__, complex e, real *anorm,
c@427	1664 real rcond, real rwork, integer *info);
c@427	1665
c@427	1666 /* Subroutine / int cpteqr_(char compz, integer n, real d__, real *e,
c@427	1667 complex z__, integer ldz, real work, integer info);
c@427	1668
c@427	1669 /* Subroutine / int cptrfs_(char uplo, integer n, integer nrhs, real *d__,
c@427	1670 complex e, real df, complex ef, complex b, integer *ldb, complex
c@427	1671 x, integer ldx, real ferr, real berr, complex work, real rwork,
c@427	1672 integer *info);
c@427	1673
c@427	1674 /* Subroutine / int cptsv_(integer n, integer nrhs, real d__, complex *e,
c@427	1675 complex b, integer ldb, integer *info);
c@427	1676
c@427	1677 /* Subroutine / int cptsvx_(char fact, integer n, integer nrhs, real *d__,
c@427	1678 complex e, real df, complex ef, complex b, integer *ldb, complex
c@427	1679 x, integer ldx, real rcond, real ferr, real berr, complex work,
c@427	1680 real rwork, integer info);
c@427	1681
c@427	1682 /* Subroutine / int cpttrf_(integer n, real d__, complex e, integer *info);
c@427	1683
c@427	1684 /* Subroutine / int cpttrs_(char uplo, integer n, integer nrhs, real *d__,
c@427	1685 complex e, complex b, integer ldb, integer info);
c@427	1686
c@427	1687 /* Subroutine / int cptts2_(integer iuplo, integer n, integer nrhs, real *
c@427	1688 d__, complex e, complex b, integer *ldb);
c@427	1689
c@427	1690 /* Subroutine / int crot_(integer n, complex cx, integer incx, complex *
c@427	1691 cy, integer incy, real c__, complex *s);
c@427	1692
c@427	1693 /* Subroutine / int cspcon_(char uplo, integer n, complex ap, integer *
c@427	1694 ipiv, real anorm, real rcond, complex work, integer info);
c@427	1695
c@427	1696 /* Subroutine / int cspmv_(char uplo, integer n, complex alpha, complex *
c@427	1697 ap, complex x, integer incx, complex beta, complex y, integer *
c@427	1698 incy);
c@427	1699
c@427	1700 /* Subroutine / int cspr_(char uplo, integer n, complex alpha, complex *x,
c@427	1701 integer incx, complex ap);
c@427	1702
c@427	1703 /* Subroutine / int csprfs_(char uplo, integer n, integer nrhs, complex *
c@427	1704 ap, complex afp, integer ipiv, complex b, integer ldb, complex *x,
c@427	1705 integer ldx, real ferr, real berr, complex work, real *rwork,
c@427	1706 integer *info);
c@427	1707
c@427	1708 /* Subroutine / int cspsv_(char uplo, integer n, integer nrhs, complex *
c@427	1709 ap, integer ipiv, complex b, integer ldb, integer info);
c@427	1710
c@427	1711 /* Subroutine / int cspsvx_(char fact, char uplo, integer n, integer *
c@427	1712 nrhs, complex ap, complex afp, integer ipiv, complex b, integer *
c@427	1713 ldb, complex x, integer ldx, real rcond, real ferr, real *berr,
c@427	1714 complex work, real rwork, integer *info);
c@427	1715
c@427	1716 /* Subroutine / int csptrf_(char uplo, integer n, complex ap, integer *
c@427	1717 ipiv, integer *info);
c@427	1718
c@427	1719 /* Subroutine / int csptri_(char uplo, integer n, complex ap, integer *
c@427	1720 ipiv, complex work, integer info);
c@427	1721
c@427	1722 /* Subroutine / int csptrs_(char uplo, integer n, integer nrhs, complex *
c@427	1723 ap, integer ipiv, complex b, integer ldb, integer info);
c@427	1724
c@427	1725 /* Subroutine / int csrscl_(integer n, real sa, complex sx, integer *incx);
c@427	1726
c@427	1727 /* Subroutine / int cstedc_(char compz, integer n, real d__, real *e,
c@427	1728 complex z__, integer ldz, complex work, integer lwork, real *
c@427	1729 rwork, integer lrwork, integer iwork, integer liwork, integer
c@427	1730 info);
c@427	1731
c@427	1732 /* Subroutine / int cstegr_(char jobz, char range, integer n, real *d__,
c@427	1733 real e, real vl, real vu, integer il, integer iu, real abstol,
c@427	1734 integer m, real w, complex z__, integer ldz, integer *isuppz,
c@427	1735 real work, integer lwork, integer iwork, integer liwork, integer *
c@427	1736 info);
c@427	1737
c@427	1738 /* Subroutine / int cstein_(integer n, real d__, real e, integer *m, real
c@427	1739 w, integer iblock, integer isplit, complex z__, integer *ldz,
c@427	1740 real work, integer iwork, integer ifail, integer info);
c@427	1741
c@427	1742 /* Subroutine / int cstemr_(char jobz, char range, integer n, real *d__,
c@427	1743 real e, real vl, real vu, integer il, integer iu, integer m,
c@427	1744 real w, complex z__, integer ldz, integer nzc, integer *isuppz,
c@427	1745 logical tryrac, real work, integer lwork, integer iwork, integer *
c@427	1746 liwork, integer *info);
c@427	1747
c@427	1748 /* Subroutine / int csteqr_(char compz, integer n, real d__, real *e,
c@427	1749 complex z__, integer ldz, real work, integer info);
c@427	1750
c@427	1751 /* Subroutine / int csycon_(char uplo, integer n, complex a, integer *lda,
c@427	1752 integer ipiv, real anorm, real rcond, complex work, integer *
c@427	1753 info);
c@427	1754
c@427	1755 /* Subroutine / int csyequb_(char uplo, integer n, complex a, integer *
c@427	1756 lda, real s, real scond, real amax, complex work, integer *info);
c@427	1757
c@427	1758 /* Subroutine / int csymv_(char uplo, integer n, complex alpha, complex *
c@427	1759 a, integer lda, complex x, integer incx, complex beta, complex *y,
c@427	1760 integer *incy);
c@427	1761
c@427	1762 /* Subroutine / int csyr_(char uplo, integer n, complex alpha, complex *x,
c@427	1763 integer incx, complex a, integer *lda);
c@427	1764
c@427	1765 /* Subroutine / int csyrfs_(char uplo, integer n, integer nrhs, complex *
c@427	1766 a, integer lda, complex af, integer ldaf, integer ipiv, complex *
c@427	1767 b, integer ldb, complex x, integer ldx, real ferr, real *berr,
c@427	1768 complex work, real rwork, integer *info);
c@427	1769
c@427	1770 /* Subroutine / int csyrfsx_(char uplo, char equed, integer n, integer *
c@427	1771 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	1772 ipiv, real s, complex b, integer ldb, complex x, integer *ldx,
c@427	1773 real rcond, real berr, integer n_err_bnds__, real err_bnds_norm__,
c@427	1774 real err_bnds_comp__, integer nparams, real params, complex work,
c@427	1775 real rwork, integer info);
c@427	1776
c@427	1777 /* Subroutine / int csysv_(char uplo, integer n, integer nrhs, complex *a,
c@427	1778 integer lda, integer ipiv, complex b, integer ldb, complex *work,
c@427	1779 integer lwork, integer info);
c@427	1780
c@427	1781 /* Subroutine / int csysvx_(char fact, char uplo, integer n, integer *
c@427	1782 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	1783 ipiv, complex b, integer ldb, complex x, integer ldx, real *rcond,
c@427	1784 real ferr, real berr, complex work, integer lwork, real *rwork,
c@427	1785 integer *info);
c@427	1786
c@427	1787 /* Subroutine / int csysvxx_(char fact, char uplo, integer n, integer *
c@427	1788 nrhs, complex a, integer lda, complex af, integer ldaf, integer *
c@427	1789 ipiv, char equed, real s, complex b, integer ldb, complex *x,
c@427	1790 integer ldx, real rcond, real rpvgrw, real berr, integer *
c@427	1791 n_err_bnds__, real err_bnds_norm__, real err_bnds_comp__, integer *
c@427	1792 nparams, real params, complex work, real rwork, integer info);
c@427	1793
c@427	1794 /* Subroutine / int csytf2_(char uplo, integer n, complex a, integer *lda,
c@427	1795 integer ipiv, integer info);
c@427	1796
c@427	1797 /* Subroutine / int csytrf_(char uplo, integer n, complex a, integer *lda,
c@427	1798 integer ipiv, complex work, integer lwork, integer info);
c@427	1799
c@427	1800 /* Subroutine / int csytri_(char uplo, integer n, complex a, integer *lda,
c@427	1801 integer ipiv, complex work, integer *info);
c@427	1802
c@427	1803 /* Subroutine / int csytrs_(char uplo, integer n, integer nrhs, complex *
c@427	1804 a, integer lda, integer ipiv, complex b, integer ldb, integer *
c@427	1805 info);
c@427	1806
c@427	1807 /* Subroutine / int ctbcon_(char norm, char uplo, char diag, integer *n,
c@427	1808 integer kd, complex ab, integer ldab, real rcond, complex *work,
c@427	1809 real rwork, integer info);
c@427	1810
c@427	1811 /* Subroutine / int ctbrfs_(char uplo, char trans, char diag, integer *n,
c@427	1812 integer kd, integer nrhs, complex ab, integer ldab, complex *b,
c@427	1813 integer ldb, complex x, integer ldx, real ferr, real *berr,
c@427	1814 complex work, real rwork, integer *info);
c@427	1815
c@427	1816 /* Subroutine / int ctbtrs_(char uplo, char trans, char diag, integer *n,
c@427	1817 integer kd, integer nrhs, complex ab, integer ldab, complex *b,
c@427	1818 integer ldb, integer info);
c@427	1819
c@427	1820 /* Subroutine / int ctfsm_(char transr, char side, char uplo, char *trans,
c@427	1821 char diag, integer m, integer n, complex alpha, complex *a,
c@427	1822 complex b, integer ldb);
c@427	1823
c@427	1824 /* Subroutine / int ctftri_(char transr, char uplo, char diag, integer *n,
c@427	1825 complex a, integer info);
c@427	1826
c@427	1827 /* Subroutine / int ctfttp_(char transr, char uplo, integer n, complex *
c@427	1828 arf, complex ap, integer info);
c@427	1829
c@427	1830 /* Subroutine / int ctfttr_(char transr, char uplo, integer n, complex *
c@427	1831 arf, complex a, integer lda, integer *info);
c@427	1832
c@427	1833 /* Subroutine / int ctgevc_(char side, char howmny, logical select,
c@427	1834 integer n, complex s, integer lds, complex p, integer *ldp,
c@427	1835 complex vl, integer ldvl, complex vr, integer ldvr, integer *mm,
c@427	1836 integer m, complex work, real rwork, integer info);
c@427	1837
c@427	1838 /* Subroutine / int ctgex2_(logical wantq, logical wantz, integer n,
c@427	1839 complex a, integer lda, complex b, integer ldb, complex *q,
c@427	1840 integer ldq, complex z__, integer ldz, integer j1, integer *info);
c@427	1841
c@427	1842 /* Subroutine / int ctgexc_(logical wantq, logical wantz, integer n,
c@427	1843 complex a, integer lda, complex b, integer ldb, complex *q,
c@427	1844 integer ldq, complex z__, integer ldz, integer ifst, integer *
c@427	1845 ilst, integer *info);
c@427	1846
c@427	1847 /* Subroutine / int ctgsen_(integer ijob, logical wantq, logical wantz,
c@427	1848 logical select, integer n, complex a, integer lda, complex *b,
c@427	1849 integer ldb, complex alpha, complex beta, complex q, integer *ldq,
c@427	1850 complex z__, integer ldz, integer m, real pl, real pr, real
c@427	1851 dif, complex work, integer lwork, integer iwork, integer liwork,
c@427	1852 integer *info);
c@427	1853
c@427	1854 /* Subroutine / int ctgsja_(char jobu, char jobv, char jobq, integer *m,
c@427	1855 integer p, integer n, integer k, integer l, complex a, integer
c@427	1856 lda, complex b, integer ldb, real tola, real tolb, real *alpha,
c@427	1857 real beta, complex u, integer ldu, complex v, integer *ldv,
c@427	1858 complex q, integer ldq, complex work, integer ncycle, integer *
c@427	1859 info);
c@427	1860
c@427	1861 /* Subroutine / int ctgsna_(char job, char howmny, logical select,
c@427	1862 integer n, complex a, integer lda, complex b, integer *ldb,
c@427	1863 complex vl, integer ldvl, complex vr, integer ldvr, real *s, real
c@427	1864 dif, integer mm, integer m, complex work, integer *lwork, integer
c@427	1865 iwork, integer info);
c@427	1866
c@427	1867 /* Subroutine / int ctgsy2_(char trans, integer ijob, integer m, integer *
c@427	1868 n, complex a, integer lda, complex b, integer ldb, complex *c__,
c@427	1869 integer ldc, complex d__, integer ldd, complex e, integer *lde,
c@427	1870 complex f, integer ldf, real scale, real rdsum, real *rdscal,
c@427	1871 integer *info);
c@427	1872
c@427	1873 /* Subroutine / int ctgsyl_(char trans, integer ijob, integer m, integer *
c@427	1874 n, complex a, integer lda, complex b, integer ldb, complex *c__,
c@427	1875 integer ldc, complex d__, integer ldd, complex e, integer *lde,
c@427	1876 complex f, integer ldf, real scale, real dif, complex *work,
c@427	1877 integer lwork, integer iwork, integer *info);
c@427	1878
c@427	1879 /* Subroutine / int ctpcon_(char norm, char uplo, char diag, integer *n,
c@427	1880 complex ap, real rcond, complex work, real rwork, integer *info);
c@427	1881
c@427	1882 /* Subroutine / int ctprfs_(char uplo, char trans, char diag, integer *n,
c@427	1883 integer nrhs, complex ap, complex b, integer ldb, complex *x,
c@427	1884 integer ldx, real ferr, real berr, complex work, real *rwork,
c@427	1885 integer *info);
c@427	1886
c@427	1887 /* Subroutine / int ctptri_(char uplo, char diag, integer n, complex *ap,
c@427	1888 integer *info);
c@427	1889
c@427	1890 /* Subroutine / int ctptrs_(char uplo, char trans, char diag, integer *n,
c@427	1891 integer nrhs, complex ap, complex b, integer ldb, integer *info);
c@427	1892
c@427	1893 /* Subroutine / int ctpttf_(char transr, char uplo, integer n, complex *
c@427	1894 ap, complex arf, integer info);
c@427	1895
c@427	1896 /* Subroutine / int ctpttr_(char uplo, integer n, complex ap, complex *a,
c@427	1897 integer lda, integer info);
c@427	1898
c@427	1899 /* Subroutine / int ctrcon_(char norm, char uplo, char diag, integer *n,
c@427	1900 complex a, integer lda, real rcond, complex work, real *rwork,
c@427	1901 integer *info);
c@427	1902
c@427	1903 /* Subroutine / int ctrevc_(char side, char howmny, logical select,
c@427	1904 integer n, complex t, integer ldt, complex vl, integer *ldvl,
c@427	1905 complex vr, integer ldvr, integer mm, integer m, complex *work,
c@427	1906 real rwork, integer info);
c@427	1907
c@427	1908 /* Subroutine / int ctrexc_(char compq, integer n, complex t, integer *
c@427	1909 ldt, complex q, integer ldq, integer ifst, integer ilst, integer *
c@427	1910 info);
c@427	1911
c@427	1912 /* Subroutine / int ctrrfs_(char uplo, char trans, char diag, integer *n,
c@427	1913 integer nrhs, complex a, integer lda, complex b, integer *ldb,
c@427	1914 complex x, integer ldx, real ferr, real berr, complex *work, real
c@427	1915 rwork, integer info);
c@427	1916
c@427	1917 /* Subroutine / int ctrsen_(char job, char compq, logical select, integer
c@427	1918 n, complex t, integer ldt, complex q, integer ldq, complex w,
c@427	1919 integer m, real s, real sep, complex work, integer *lwork,
c@427	1920 integer *info);
c@427	1921
c@427	1922 /* Subroutine / int ctrsna_(char job, char howmny, logical select,
c@427	1923 integer n, complex t, integer ldt, complex vl, integer *ldvl,
c@427	1924 complex vr, integer ldvr, real s, real sep, integer mm, integer
c@427	1925 m, complex work, integer ldwork, real rwork, integer info);
c@427	1926
c@427	1927 /* Subroutine / int ctrsyl_(char trana, char tranb, integer isgn, integer
c@427	1928 m, integer n, complex a, integer lda, complex b, integer ldb,
c@427	1929 complex c__, integer ldc, real scale, integer info);
c@427	1930
c@427	1931 /* Subroutine / int ctrti2_(char uplo, char diag, integer n, complex *a,
c@427	1932 integer lda, integer info);
c@427	1933
c@427	1934 /* Subroutine / int ctrtri_(char uplo, char diag, integer n, complex *a,
c@427	1935 integer lda, integer info);
c@427	1936
c@427	1937 /* Subroutine / int ctrtrs_(char uplo, char trans, char diag, integer *n,
c@427	1938 integer nrhs, complex a, integer lda, complex b, integer *ldb,
c@427	1939 integer *info);
c@427	1940
c@427	1941 /* Subroutine / int ctrttf_(char transr, char uplo, integer n, complex *a,
c@427	1942 integer lda, complex arf, integer *info);
c@427	1943
c@427	1944 /* Subroutine / int ctrttp_(char uplo, integer n, complex a, integer *lda,
c@427	1945 complex ap, integer info);
c@427	1946
c@427	1947 /* Subroutine / int ctzrqf_(integer m, integer n, complex a, integer *lda,
c@427	1948 complex tau, integer info);
c@427	1949
c@427	1950 /* Subroutine / int ctzrzf_(integer m, integer n, complex a, integer *lda,
c@427	1951 complex tau, complex work, integer lwork, integer info);
c@427	1952
c@427	1953 /* Subroutine / int cung2l_(integer m, integer n, integer k, complex *a,
c@427	1954 integer lda, complex tau, complex work, integer info);
c@427	1955
c@427	1956 /* Subroutine / int cung2r_(integer m, integer n, integer k, complex *a,
c@427	1957 integer lda, complex tau, complex work, integer info);
c@427	1958
c@427	1959 /* Subroutine / int cungbr_(char vect, integer m, integer n, integer *k,
c@427	1960 complex a, integer lda, complex tau, complex work, integer *lwork,
c@427	1961 integer *info);
c@427	1962
c@427	1963 /* Subroutine / int cunghr_(integer n, integer ilo, integer ihi, complex *
c@427	1964 a, integer lda, complex tau, complex work, integer lwork, integer
c@427	1965 *info);
c@427	1966
c@427	1967 /* Subroutine / int cungl2_(integer m, integer n, integer k, complex *a,
c@427	1968 integer lda, complex tau, complex work, integer info);
c@427	1969
c@427	1970 /* Subroutine / int cunglq_(integer m, integer n, integer k, complex *a,
c@427	1971 integer lda, complex tau, complex work, integer lwork, integer *
c@427	1972 info);
c@427	1973
c@427	1974 /* Subroutine / int cungql_(integer m, integer n, integer k, complex *a,
c@427	1975 integer lda, complex tau, complex work, integer lwork, integer *
c@427	1976 info);
c@427	1977
c@427	1978 /* Subroutine / int cungqr_(integer m, integer n, integer k, complex *a,
c@427	1979 integer lda, complex tau, complex work, integer lwork, integer *
c@427	1980 info);
c@427	1981
c@427	1982 /* Subroutine / int cungr2_(integer m, integer n, integer k, complex *a,
c@427	1983 integer lda, complex tau, complex work, integer info);
c@427	1984
c@427	1985 /* Subroutine / int cungrq_(integer m, integer n, integer k, complex *a,
c@427	1986 integer lda, complex tau, complex work, integer lwork, integer *
c@427	1987 info);
c@427	1988
c@427	1989 /* Subroutine / int cungtr_(char uplo, integer n, complex a, integer *lda,
c@427	1990 complex tau, complex work, integer lwork, integer info);
c@427	1991
c@427	1992 /* Subroutine / int cunm2l_(char side, char trans, integer m, integer *n,
c@427	1993 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	1994 integer ldc, complex work, integer *info);
c@427	1995
c@427	1996 /* Subroutine / int cunm2r_(char side, char trans, integer m, integer *n,
c@427	1997 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	1998 integer ldc, complex work, integer *info);
c@427	1999
c@427	2000 /* Subroutine / int cunmbr_(char vect, char side, char trans, integer *m,
c@427	2001 integer n, integer k, complex a, integer lda, complex *tau,
c@427	2002 complex c__, integer ldc, complex work, integer lwork, integer *
c@427	2003 info);
c@427	2004
c@427	2005 /* Subroutine / int cunmhr_(char side, char trans, integer m, integer *n,
c@427	2006 integer ilo, integer ihi, complex a, integer lda, complex *tau,
c@427	2007 complex c__, integer ldc, complex work, integer lwork, integer *
c@427	2008 info);
c@427	2009
c@427	2010 /* Subroutine / int cunml2_(char side, char trans, integer m, integer *n,
c@427	2011 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2012 integer ldc, complex work, integer *info);
c@427	2013
c@427	2014 /* Subroutine / int cunmlq_(char side, char trans, integer m, integer *n,
c@427	2015 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2016 integer ldc, complex work, integer lwork, integer info);
c@427	2017
c@427	2018 /* Subroutine / int cunmql_(char side, char trans, integer m, integer *n,
c@427	2019 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2020 integer ldc, complex work, integer lwork, integer info);
c@427	2021
c@427	2022 /* Subroutine / int cunmqr_(char side, char trans, integer m, integer *n,
c@427	2023 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2024 integer ldc, complex work, integer lwork, integer info);
c@427	2025
c@427	2026 /* Subroutine / int cunmr2_(char side, char trans, integer m, integer *n,
c@427	2027 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2028 integer ldc, complex work, integer *info);
c@427	2029
c@427	2030 /* Subroutine / int cunmr3_(char side, char trans, integer m, integer *n,
c@427	2031 integer k, integer l, complex a, integer lda, complex *tau,
c@427	2032 complex c__, integer ldc, complex work, integer info);
c@427	2033
c@427	2034 /* Subroutine / int cunmrq_(char side, char trans, integer m, integer *n,
c@427	2035 integer k, complex a, integer lda, complex tau, complex *c__,
c@427	2036 integer ldc, complex work, integer lwork, integer info);
c@427	2037
c@427	2038 /* Subroutine / int cunmrz_(char side, char trans, integer m, integer *n,
c@427	2039 integer k, integer l, complex a, integer lda, complex *tau,
c@427	2040 complex c__, integer ldc, complex work, integer lwork, integer *
c@427	2041 info);
c@427	2042
c@427	2043 /* Subroutine / int cunmtr_(char side, char uplo, char trans, integer *m,
c@427	2044 integer n, complex a, integer lda, complex tau, complex *c__,
c@427	2045 integer ldc, complex work, integer lwork, integer info);
c@427	2046
c@427	2047 /* Subroutine / int cupgtr_(char uplo, integer n, complex ap, complex *
c@427	2048 tau, complex q, integer ldq, complex work, integer info);
c@427	2049
c@427	2050 /* Subroutine / int cupmtr_(char side, char uplo, char trans, integer *m,
c@427	2051 integer n, complex ap, complex tau, complex c__, integer *ldc,
c@427	2052 complex work, integer info);
c@427	2053
c@427	2054 /* Subroutine / int dbdsdc_(char uplo, char compq, integer n, doublereal *
c@427	2055 d__, doublereal e, doublereal u, integer ldu, doublereal vt,
c@427	2056 integer ldvt, doublereal q, integer iq, doublereal work, integer *
c@427	2057 iwork, integer *info);
c@427	2058
c@427	2059 /* Subroutine / int dbdsqr_(char uplo, integer n, integer ncvt, integer *
c@427	2060 nru, integer ncc, doublereal d__, doublereal e, doublereal vt,
c@427	2061 integer ldvt, doublereal u, integer ldu, doublereal c__, integer *
c@427	2062 ldc, doublereal work, integer info);
c@427	2063
c@427	2064 /* Subroutine / int ddisna_(char job, integer m, integer n, doublereal *
c@427	2065 d__, doublereal sep, integer info);
c@427	2066
c@427	2067 /* Subroutine / int dgbbrd_(char vect, integer m, integer n, integer *ncc,
c@427	2068 integer kl, integer ku, doublereal ab, integer ldab, doublereal *
c@427	2069 d__, doublereal e, doublereal q, integer ldq, doublereal pt,
c@427	2070 integer ldpt, doublereal c__, integer ldc, doublereal work,
c@427	2071 integer *info);
c@427	2072
c@427	2073 /* Subroutine / int dgbcon_(char norm, integer n, integer kl, integer *ku,
c@427	2074 doublereal ab, integer ldab, integer ipiv, doublereal anorm,
c@427	2075 doublereal rcond, doublereal work, integer iwork, integer info);
c@427	2076
c@427	2077 /* Subroutine / int dgbequ_(integer m, integer n, integer kl, integer *ku,
c@427	2078 doublereal ab, integer ldab, doublereal r__, doublereal c__,
c@427	2079 doublereal rowcnd, doublereal colcnd, doublereal amax, integer
c@427	2080 info);
c@427	2081
c@427	2082 /* Subroutine / int dgbequb_(integer m, integer n, integer kl, integer *
c@427	2083 ku, doublereal ab, integer ldab, doublereal r__, doublereal c__,
c@427	2084 doublereal rowcnd, doublereal colcnd, doublereal amax, integer
c@427	2085 info);
c@427	2086
c@427	2087 /* Subroutine / int dgbrfs_(char trans, integer n, integer kl, integer *
c@427	2088 ku, integer nrhs, doublereal ab, integer ldab, doublereal afb,
c@427	2089 integer ldafb, integer ipiv, doublereal b, integer ldb,
c@427	2090 doublereal x, integer ldx, doublereal ferr, doublereal berr,
c@427	2091 doublereal work, integer iwork, integer *info);
c@427	2092
c@427	2093 /* Subroutine / int dgbrfsx_(char trans, char equed, integer n, integer *
c@427	2094 kl, integer ku, integer nrhs, doublereal ab, integer ldab,
c@427	2095 doublereal afb, integer ldafb, integer ipiv, doublereal r__,
c@427	2096 doublereal c__, doublereal b, integer ldb, doublereal x, integer *
c@427	2097 ldx, doublereal rcond, doublereal berr, integer *n_err_bnds__,
c@427	2098 doublereal err_bnds_norm__, doublereal err_bnds_comp__, integer *
c@427	2099 nparams, doublereal params, doublereal work, integer *iwork,
c@427	2100 integer *info);
c@427	2101
c@427	2102 /* Subroutine / int dgbsv_(integer n, integer kl, integer ku, integer *
c@427	2103 nrhs, doublereal ab, integer ldab, integer ipiv, doublereal b,
c@427	2104 integer ldb, integer info);
c@427	2105
c@427	2106 /* Subroutine / int dgbsvx_(char fact, char trans, integer n, integer *kl,
c@427	2107 integer ku, integer nrhs, doublereal ab, integer ldab,
c@427	2108 doublereal afb, integer ldafb, integer ipiv, char equed,
c@427	2109 doublereal r__, doublereal c__, doublereal b, integer ldb,
c@427	2110 doublereal x, integer ldx, doublereal rcond, doublereal ferr,
c@427	2111 doublereal berr, doublereal work, integer iwork, integer info);
c@427	2112
c@427	2113 /* Subroutine / int dgbsvxx_(char fact, char trans, integer n, integer *
c@427	2114 kl, integer ku, integer nrhs, doublereal ab, integer ldab,
c@427	2115 doublereal afb, integer ldafb, integer ipiv, char equed,
c@427	2116 doublereal r__, doublereal c__, doublereal b, integer ldb,
c@427	2117 doublereal x, integer ldx, doublereal rcond, doublereal rpvgrw,
c@427	2118 doublereal berr, integer n_err_bnds__, doublereal *err_bnds_norm__,
c@427	2119 doublereal err_bnds_comp__, integer nparams, doublereal *params,
c@427	2120 doublereal work, integer iwork, integer *info);
c@427	2121
c@427	2122 /* Subroutine / int dgbtf2_(integer m, integer n, integer kl, integer *ku,
c@427	2123 doublereal ab, integer ldab, integer ipiv, integer info);
c@427	2124
c@427	2125 /* Subroutine / int dgbtrf_(integer m, integer n, integer kl, integer *ku,
c@427	2126 doublereal ab, integer ldab, integer ipiv, integer info);
c@427	2127
c@427	2128 /* Subroutine / int dgbtrs_(char trans, integer n, integer kl, integer *
c@427	2129 ku, integer nrhs, doublereal ab, integer ldab, integer ipiv,
c@427	2130 doublereal b, integer ldb, integer *info);
c@427	2131
c@427	2132 /* Subroutine / int dgebak_(char job, char side, integer n, integer *ilo,
c@427	2133 integer ihi, doublereal scale, integer m, doublereal v, integer *
c@427	2134 ldv, integer *info);
c@427	2135
c@427	2136 /* Subroutine / int dgebal_(char job, integer n, doublereal a, integer *
c@427	2137 lda, integer ilo, integer ihi, doublereal scale, integer info);
c@427	2138
c@427	2139 /* Subroutine / int dgebd2_(integer m, integer n, doublereal a, integer *
c@427	2140 lda, doublereal d__, doublereal e, doublereal tauq, doublereal
c@427	2141 taup, doublereal work, integer info);
c@427	2142
c@427	2143 /* Subroutine / int dgebrd_(integer m, integer n, doublereal a, integer *
c@427	2144 lda, doublereal d__, doublereal e, doublereal tauq, doublereal
c@427	2145 taup, doublereal work, integer lwork, integer *info);
c@427	2146
c@427	2147 /* Subroutine / int dgecon_(char norm, integer n, doublereal a, integer *
c@427	2148 lda, doublereal anorm, doublereal rcond, doublereal work, integer
c@427	2149 iwork, integer *info);
c@427	2150
c@427	2151 /* Subroutine / int dgeequ_(integer m, integer n, doublereal a, integer *
c@427	2152 lda, doublereal r__, doublereal c__, doublereal *rowcnd, doublereal
c@427	2153 colcnd, doublereal amax, integer *info);
c@427	2154
c@427	2155 /* Subroutine / int dgeequb_(integer m, integer n, doublereal a, integer *
c@427	2156 lda, doublereal r__, doublereal c__, doublereal *rowcnd, doublereal
c@427	2157 colcnd, doublereal amax, integer *info);
c@427	2158
c@427	2159 /* Subroutine / int dgees_(char jobvs, char sort, L_fp select, integer n,
c@427	2160 doublereal a, integer lda, integer sdim, doublereal wr,
c@427	2161 doublereal wi, doublereal vs, integer ldvs, doublereal work,
c@427	2162 integer lwork, logical bwork, integer *info);
c@427	2163
c@427	2164 /* Subroutine / int dgeesx_(char jobvs, char sort, L_fp select, char
c@427	2165 sense, integer n, doublereal a, integer lda, integer sdim,
c@427	2166 doublereal wr, doublereal wi, doublereal vs, integer ldvs,
c@427	2167 doublereal rconde, doublereal rcondv, doublereal work, integer
c@427	2168 lwork, integer iwork, integer liwork, logical bwork, integer info);
c@427	2169
c@427	2170 /* Subroutine / int dgeev_(char jobvl, char jobvr, integer n, doublereal *
c@427	2171 a, integer lda, doublereal wr, doublereal wi, doublereal vl,
c@427	2172 integer ldvl, doublereal vr, integer ldvr, doublereal work,
c@427	2173 integer lwork, integer info);
c@427	2174
c@427	2175 /* Subroutine / int dgeevx_(char balanc, char jobvl, char jobvr, char *
c@427	2176 sense, integer n, doublereal a, integer lda, doublereal wr,
c@427	2177 doublereal wi, doublereal vl, integer ldvl, doublereal vr,
c@427	2178 integer ldvr, integer ilo, integer ihi, doublereal scale,
c@427	2179 doublereal abnrm, doublereal rconde, doublereal *rcondv, doublereal
c@427	2180 work, integer lwork, integer iwork, integer info);
c@427	2181
c@427	2182 /* Subroutine / int dgegs_(char jobvsl, char jobvsr, integer n,
c@427	2183 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	2184 alphar, doublereal alphai, doublereal beta, doublereal *vsl,
c@427	2185 integer ldvsl, doublereal vsr, integer ldvsr, doublereal work,
c@427	2186 integer lwork, integer info);
c@427	2187
c@427	2188 /* Subroutine / int dgegv_(char jobvl, char jobvr, integer n, doublereal *
c@427	2189 a, integer lda, doublereal b, integer ldb, doublereal alphar,
c@427	2190 doublereal alphai, doublereal beta, doublereal vl, integer ldvl,
c@427	2191 doublereal vr, integer ldvr, doublereal work, integer lwork,
c@427	2192 integer *info);
c@427	2193
c@427	2194 /* Subroutine / int dgehd2_(integer n, integer ilo, integer ihi,
c@427	2195 doublereal a, integer lda, doublereal tau, doublereal work,
c@427	2196 integer *info);
c@427	2197
c@427	2198 /* Subroutine / int dgehrd_(integer n, integer ilo, integer ihi,
c@427	2199 doublereal a, integer lda, doublereal tau, doublereal work,
c@427	2200 integer lwork, integer info);
c@427	2201
c@427	2202 /* Subroutine / int dgejsv_(char joba, char jobu, char jobv, char *jobr,
c@427	2203 char jobt, char jobp, integer m, integer n, doublereal *a,
c@427	2204 integer lda, doublereal sva, doublereal u, integer ldu,
c@427	2205 doublereal v, integer ldv, doublereal work, integer lwork,
c@427	2206 integer iwork, integer info);
c@427	2207
c@427	2208 /* Subroutine / int dgelq2_(integer m, integer n, doublereal a, integer *
c@427	2209 lda, doublereal tau, doublereal work, integer *info);
c@427	2210
c@427	2211 /* Subroutine / int dgelqf_(integer m, integer n, doublereal a, integer *
c@427	2212 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	2213
c@427	2214 /* Subroutine / int dgels_(char trans, integer m, integer n, integer *
c@427	2215 nrhs, doublereal a, integer lda, doublereal b, integer ldb,
c@427	2216 doublereal work, integer lwork, integer *info);
c@427	2217
c@427	2218 /* Subroutine / int dgelsd_(integer m, integer n, integer nrhs,
c@427	2219 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	2220 s, doublereal rcond, integer rank, doublereal work, integer lwork,
c@427	2221 integer iwork, integer info);
c@427	2222
c@427	2223 /* Subroutine / int dgelss_(integer m, integer n, integer nrhs,
c@427	2224 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	2225 s, doublereal rcond, integer rank, doublereal work, integer lwork,
c@427	2226 integer *info);
c@427	2227
c@427	2228 /* Subroutine / int dgelsx_(integer m, integer n, integer nrhs,
c@427	2229 doublereal a, integer lda, doublereal b, integer ldb, integer *
c@427	2230 jpvt, doublereal rcond, integer rank, doublereal work, integer
c@427	2231 info);
c@427	2232
c@427	2233 /* Subroutine / int dgelsy_(integer m, integer n, integer nrhs,
c@427	2234 doublereal a, integer lda, doublereal b, integer ldb, integer *
c@427	2235 jpvt, doublereal rcond, integer rank, doublereal work, integer
c@427	2236 lwork, integer *info);
c@427	2237
c@427	2238 /* Subroutine / int dgeql2_(integer m, integer n, doublereal a, integer *
c@427	2239 lda, doublereal tau, doublereal work, integer *info);
c@427	2240
c@427	2241 /* Subroutine / int dgeqlf_(integer m, integer n, doublereal a, integer *
c@427	2242 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	2243
c@427	2244 /* Subroutine / int dgeqp3_(integer m, integer n, doublereal a, integer *
c@427	2245 lda, integer jpvt, doublereal tau, doublereal work, integer lwork,
c@427	2246 integer *info);
c@427	2247
c@427	2248 /* Subroutine / int dgeqpf_(integer m, integer n, doublereal a, integer *
c@427	2249 lda, integer jpvt, doublereal tau, doublereal work, integer info);
c@427	2250
c@427	2251 /* Subroutine / int dgeqr2_(integer m, integer n, doublereal a, integer *
c@427	2252 lda, doublereal tau, doublereal work, integer *info);
c@427	2253
c@427	2254 /* Subroutine / int dgeqrf_(integer m, integer n, doublereal a, integer *
c@427	2255 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	2256
c@427	2257 /* Subroutine / int dgerfs_(char trans, integer n, integer nrhs,
c@427	2258 doublereal a, integer lda, doublereal af, integer ldaf, integer *
c@427	2259 ipiv, doublereal b, integer ldb, doublereal x, integer ldx,
c@427	2260 doublereal ferr, doublereal berr, doublereal work, integer iwork,
c@427	2261 integer *info);
c@427	2262
c@427	2263 /* Subroutine / int dgerfsx_(char trans, char equed, integer n, integer *
c@427	2264 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	2265 integer ipiv, doublereal r__, doublereal c__, doublereal b,
c@427	2266 integer ldb, doublereal x, integer ldx, doublereal rcond,
c@427	2267 doublereal berr, integer n_err_bnds__, doublereal *err_bnds_norm__,
c@427	2268 doublereal err_bnds_comp__, integer nparams, doublereal *params,
c@427	2269 doublereal work, integer iwork, integer *info);
c@427	2270
c@427	2271 /* Subroutine / int dgerq2_(integer m, integer n, doublereal a, integer *
c@427	2272 lda, doublereal tau, doublereal work, integer *info);
c@427	2273
c@427	2274 /* Subroutine / int dgerqf_(integer m, integer n, doublereal a, integer *
c@427	2275 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	2276
c@427	2277 /* Subroutine / int dgesc2_(integer n, doublereal a, integer lda,
c@427	2278 doublereal rhs, integer ipiv, integer jpiv, doublereal scale);
c@427	2279
c@427	2280 /* Subroutine / int dgesdd_(char jobz, integer m, integer n, doublereal *
c@427	2281 a, integer lda, doublereal s, doublereal u, integer ldu,
c@427	2282 doublereal vt, integer ldvt, doublereal work, integer lwork,
c@427	2283 integer iwork, integer info);
c@427	2284
c@427	2285 /* Subroutine / int dgesv_(integer n, integer nrhs, doublereal a, integer
c@427	2286 lda, integer ipiv, doublereal b, integer ldb, integer *info);
c@427	2287
c@427	2288 /* Subroutine / int dgesvd_(char jobu, char jobvt, integer m, integer *n,
c@427	2289 doublereal a, integer lda, doublereal s, doublereal u, integer *
c@427	2290 ldu, doublereal vt, integer ldvt, doublereal work, integer lwork,
c@427	2291 integer *info);
c@427	2292
c@427	2293 /* Subroutine / int dgesvj_(char joba, char jobu, char jobv, integer *m,
c@427	2294 integer n, doublereal a, integer lda, doublereal sva, integer *mv,
c@427	2295 doublereal v, integer ldv, doublereal work, integer lwork,
c@427	2296 integer *info);
c@427	2297
c@427	2298 /* Subroutine / int dgesvx_(char fact, char trans, integer n, integer *
c@427	2299 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	2300 integer ipiv, char equed, doublereal r__, doublereal c__,
c@427	2301 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	2302 rcond, doublereal ferr, doublereal berr, doublereal work, integer
c@427	2303 iwork, integer *info);
c@427	2304
c@427	2305 /* Subroutine / int dgesvxx_(char fact, char trans, integer n, integer *
c@427	2306 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	2307 integer ipiv, char equed, doublereal r__, doublereal c__,
c@427	2308 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	2309 rcond, doublereal rpvgrw, doublereal berr, integer *n_err_bnds__,
c@427	2310 doublereal err_bnds_norm__, doublereal err_bnds_comp__, integer *
c@427	2311 nparams, doublereal params, doublereal work, integer *iwork,
c@427	2312 integer *info);
c@427	2313
c@427	2314 /* Subroutine / int dgetc2_(integer n, doublereal a, integer lda, integer
c@427	2315 ipiv, integer jpiv, integer *info);
c@427	2316
c@427	2317 /* Subroutine / int dgetf2_(integer m, integer n, doublereal a, integer *
c@427	2318 lda, integer ipiv, integer info);
c@427	2319
c@427	2320 /* Subroutine / int dgetrf_(integer m, integer n, doublereal a, integer *
c@427	2321 lda, integer ipiv, integer info);
c@427	2322
c@427	2323 /* Subroutine / int dgetri_(integer n, doublereal a, integer lda, integer
c@427	2324 ipiv, doublereal work, integer lwork, integer info);
c@427	2325
c@427	2326 /* Subroutine / int dgetrs_(char trans, integer n, integer nrhs,
c@427	2327 doublereal a, integer lda, integer ipiv, doublereal b, integer *
c@427	2328 ldb, integer *info);
c@427	2329
c@427	2330 /* Subroutine / int dggbak_(char job, char side, integer n, integer *ilo,
c@427	2331 integer ihi, doublereal lscale, doublereal rscale, integer m,
c@427	2332 doublereal v, integer ldv, integer *info);
c@427	2333
c@427	2334 /* Subroutine / int dggbal_(char job, integer n, doublereal a, integer *
c@427	2335 lda, doublereal b, integer ldb, integer ilo, integer ihi,
c@427	2336 doublereal lscale, doublereal rscale, doublereal work, integer
c@427	2337 info);
c@427	2338
c@427	2339 /* Subroutine / int dgges_(char jobvsl, char jobvsr, char sort, L_fp
c@427	2340 selctg, integer n, doublereal a, integer lda, doublereal b,
c@427	2341 integer ldb, integer sdim, doublereal alphar, doublereal alphai,
c@427	2342 doublereal beta, doublereal vsl, integer ldvsl, doublereal vsr,
c@427	2343 integer ldvsr, doublereal work, integer lwork, logical bwork,
c@427	2344 integer *info);
c@427	2345
c@427	2346 /* Subroutine / int dggesx_(char jobvsl, char jobvsr, char sort, L_fp
c@427	2347 selctg, char sense, integer n, doublereal a, integer lda,
c@427	2348 doublereal b, integer ldb, integer sdim, doublereal alphar,
c@427	2349 doublereal alphai, doublereal beta, doublereal vsl, integer ldvsl,
c@427	2350 doublereal vsr, integer ldvsr, doublereal rconde, doublereal
c@427	2351 rcondv, doublereal work, integer lwork, integer iwork, integer
c@427	2352 liwork, logical bwork, integer info);
c@427	2353
c@427	2354 /* Subroutine / int dggev_(char jobvl, char jobvr, integer n, doublereal *
c@427	2355 a, integer lda, doublereal b, integer ldb, doublereal alphar,
c@427	2356 doublereal alphai, doublereal beta, doublereal vl, integer ldvl,
c@427	2357 doublereal vr, integer ldvr, doublereal work, integer lwork,
c@427	2358 integer *info);
c@427	2359
c@427	2360 /* Subroutine / int dggevx_(char balanc, char jobvl, char jobvr, char *
c@427	2361 sense, integer n, doublereal a, integer lda, doublereal b,
c@427	2362 integer ldb, doublereal alphar, doublereal alphai, doublereal
c@427	2363 beta, doublereal vl, integer ldvl, doublereal vr, integer ldvr,
c@427	2364 integer ilo, integer ihi, doublereal lscale, doublereal rscale,
c@427	2365 doublereal abnrm, doublereal bbnrm, doublereal rconde, doublereal
c@427	2366 rcondv, doublereal work, integer lwork, integer iwork, logical
c@427	2367 bwork, integer *info);
c@427	2368
c@427	2369 /* Subroutine / int dggglm_(integer n, integer m, integer p, doublereal *
c@427	2370 a, integer lda, doublereal b, integer ldb, doublereal d__,
c@427	2371 doublereal x, doublereal y, doublereal work, integer lwork,
c@427	2372 integer *info);
c@427	2373
c@427	2374 /* Subroutine / int dgghrd_(char compq, char compz, integer n, integer *
c@427	2375 ilo, integer ihi, doublereal a, integer lda, doublereal b,
c@427	2376 integer ldb, doublereal q, integer ldq, doublereal z__, integer *
c@427	2377 ldz, integer *info);
c@427	2378
c@427	2379 /* Subroutine / int dgglse_(integer m, integer n, integer p, doublereal *
c@427	2380 a, integer lda, doublereal b, integer ldb, doublereal c__,
c@427	2381 doublereal d__, doublereal x, doublereal work, integer lwork,
c@427	2382 integer *info);
c@427	2383
c@427	2384 /* Subroutine / int dggqrf_(integer n, integer m, integer p, doublereal *
c@427	2385 a, integer lda, doublereal taua, doublereal b, integer ldb,
c@427	2386 doublereal taub, doublereal work, integer lwork, integer info);
c@427	2387
c@427	2388 /* Subroutine / int dggrqf_(integer m, integer p, integer n, doublereal *
c@427	2389 a, integer lda, doublereal taua, doublereal b, integer ldb,
c@427	2390 doublereal taub, doublereal work, integer lwork, integer info);
c@427	2391
c@427	2392 /* Subroutine / int dggsvd_(char jobu, char jobv, char jobq, integer *m,
c@427	2393 integer n, integer p, integer k, integer l, doublereal *a,
c@427	2394 integer lda, doublereal b, integer ldb, doublereal alpha,
c@427	2395 doublereal beta, doublereal u, integer ldu, doublereal v, integer
c@427	2396 ldv, doublereal q, integer ldq, doublereal work, integer *iwork,
c@427	2397 integer *info);
c@427	2398
c@427	2399 /* Subroutine / int dggsvp_(char jobu, char jobv, char jobq, integer *m,
c@427	2400 integer p, integer n, doublereal a, integer lda, doublereal *b,
c@427	2401 integer ldb, doublereal tola, doublereal tolb, integer k, integer
c@427	2402 l, doublereal u, integer ldu, doublereal v, integer *ldv,
c@427	2403 doublereal q, integer ldq, integer iwork, doublereal tau,
c@427	2404 doublereal work, integer info);
c@427	2405
c@427	2406 /* Subroutine / int dgsvj0_(char jobv, integer m, integer n, doublereal *
c@427	2407 a, integer lda, doublereal d__, doublereal sva, integer mv,
c@427	2408 doublereal v, integer ldv, doublereal eps, doublereal sfmin,
c@427	2409 doublereal tol, integer nsweep, doublereal work, integer lwork,
c@427	2410 integer *info);
c@427	2411
c@427	2412 /* Subroutine / int dgsvj1_(char jobv, integer m, integer n, integer *n1,
c@427	2413 doublereal a, integer lda, doublereal d__, doublereal sva,
c@427	2414 integer mv, doublereal v, integer ldv, doublereal eps, doublereal
c@427	2415 sfmin, doublereal tol, integer nsweep, doublereal work, integer *
c@427	2416 lwork, integer *info);
c@427	2417
c@427	2418 /* Subroutine / int dgtcon_(char norm, integer n, doublereal dl,
c@427	2419 doublereal d__, doublereal du, doublereal du2, integer ipiv,
c@427	2420 doublereal anorm, doublereal rcond, doublereal work, integer
c@427	2421 iwork, integer *info);
c@427	2422
c@427	2423 /* Subroutine / int dgtrfs_(char trans, integer n, integer nrhs,
c@427	2424 doublereal dl, doublereal d__, doublereal du, doublereal dlf,
c@427	2425 doublereal df, doublereal duf, doublereal du2, integer ipiv,
c@427	2426 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	2427 ferr, doublereal berr, doublereal work, integer iwork, integer
c@427	2428 info);
c@427	2429
c@427	2430 /* Subroutine / int dgtsv_(integer n, integer nrhs, doublereal dl,
c@427	2431 doublereal d__, doublereal du, doublereal b, integer ldb, integer
c@427	2432 *info);
c@427	2433
c@427	2434 /* Subroutine / int dgtsvx_(char fact, char trans, integer n, integer *
c@427	2435 nrhs, doublereal dl, doublereal d__, doublereal du, doublereal
c@427	2436 dlf, doublereal df, doublereal duf, doublereal du2, integer ipiv,
c@427	2437 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	2438 rcond, doublereal ferr, doublereal berr, doublereal work, integer
c@427	2439 iwork, integer *info);
c@427	2440
c@427	2441 /* Subroutine / int dgttrf_(integer n, doublereal dl, doublereal d__,
c@427	2442 doublereal du, doublereal du2, integer ipiv, integer info);
c@427	2443
c@427	2444 /* Subroutine / int dgttrs_(char trans, integer n, integer nrhs,
c@427	2445 doublereal dl, doublereal d__, doublereal du, doublereal du2,
c@427	2446 integer ipiv, doublereal b, integer ldb, integer info);
c@427	2447
c@427	2448 /* Subroutine / int dgtts2_(integer itrans, integer n, integer nrhs,
c@427	2449 doublereal dl, doublereal d__, doublereal du, doublereal du2,
c@427	2450 integer ipiv, doublereal b, integer *ldb);
c@427	2451
c@427	2452 /* Subroutine / int dhgeqz_(char job, char compq, char compz, integer *n,
c@427	2453 integer ilo, integer ihi, doublereal h__, integer ldh, doublereal
c@427	2454 t, integer ldt, doublereal alphar, doublereal alphai, doublereal *
c@427	2455 beta, doublereal q, integer ldq, doublereal z__, integer ldz,
c@427	2456 doublereal work, integer lwork, integer *info);
c@427	2457
c@427	2458 /* Subroutine / int dhsein_(char side, char eigsrc, char initv, logical *
c@427	2459 select, integer n, doublereal h__, integer ldh, doublereal wr,
c@427	2460 doublereal wi, doublereal vl, integer ldvl, doublereal vr,
c@427	2461 integer ldvr, integer mm, integer m, doublereal work, integer *
c@427	2462 ifaill, integer ifailr, integer info);
c@427	2463
c@427	2464 /* Subroutine / int dhseqr_(char job, char compz, integer n, integer *ilo,
c@427	2465 integer ihi, doublereal h__, integer ldh, doublereal wr,
c@427	2466 doublereal wi, doublereal z__, integer ldz, doublereal work,
c@427	2467 integer lwork, integer info);
c@427	2468
c@427	2469 logical disnan_(doublereal *din);
c@427	2470
c@427	2471 /* Subroutine / int dla_gbamv__(integer trans, integer m, integer n,
c@427	2472 integer kl, integer ku, doublereal alpha, doublereal ab, integer *
c@427	2473 ldab, doublereal x, integer incx, doublereal beta, doublereal y,
c@427	2474 integer *incy);
c@427	2475
c@427	2476 doublereal dla_gbrcond__(char trans, integer n, integer kl, integer ku,
c@427	2477 doublereal ab, integer ldab, doublereal afb, integer ldafb,
c@427	2478 integer ipiv, integer cmode, doublereal c__, integer info,
c@427	2479 doublereal work, integer iwork, ftnlen trans_len);
c@427	2480
c@427	2481 /* Subroutine / int dla_gbrfsx_extended__(integer prec_type__, integer *
c@427	2482 trans_type__, integer n, integer kl, integer ku, integer nrhs,
c@427	2483 doublereal ab, integer ldab, doublereal afb, integer ldafb,
c@427	2484 integer ipiv, logical colequ, doublereal c__, doublereal b,
c@427	2485 integer ldb, doublereal y, integer ldy, doublereal berr_out__,
c@427	2486 integer n_norms__, doublereal errs_n__, doublereal *errs_c__,
c@427	2487 doublereal res, doublereal ayb, doublereal dy, doublereal
c@427	2488 y_tail__, doublereal rcond, integer ithresh, doublereal *rthresh,
c@427	2489 doublereal dz_ub__, logical ignore_cwise__, integer *info);
c@427	2490
c@427	2491 doublereal dla_gbrpvgrw__(integer n, integer kl, integer ku, integer
c@427	2492 ncols, doublereal ab, integer ldab, doublereal afb, integer ldafb);
c@427	2493
c@427	2494 /* Subroutine / int dla_geamv__(integer trans, integer m, integer n,
c@427	2495 doublereal alpha, doublereal a, integer lda, doublereal x,
c@427	2496 integer incx, doublereal beta, doublereal y, integer incy);
c@427	2497
c@427	2498 doublereal dla_gercond__(char trans, integer n, doublereal a, integer lda,
c@427	2499 doublereal af, integer ldaf, integer ipiv, integer cmode,
c@427	2500 doublereal c__, integer info, doublereal work, integer iwork,
c@427	2501 ftnlen trans_len);
c@427	2502
c@427	2503 /* Subroutine / int dla_gerfsx_extended__(integer prec_type__, integer *
c@427	2504 trans_type__, integer n, integer nrhs, doublereal a, integer lda,
c@427	2505 doublereal af, integer ldaf, integer ipiv, logical colequ,
c@427	2506 doublereal c__, doublereal b, integer ldb, doublereal y, integer *
c@427	2507 ldy, doublereal berr_out__, integer n_norms__, doublereal *errs_n__,
c@427	2508 doublereal errs_c__, doublereal res, doublereal ayb, doublereal
c@427	2509 dy, doublereal y_tail__, doublereal rcond, integer *ithresh,
c@427	2510 doublereal rthresh, doublereal dz_ub__, logical *ignore_cwise__,
c@427	2511 integer *info);
c@427	2512
c@427	2513 /* Subroutine / int dla_lin_berr__(integer n, integer nz, integer nrhs,
c@427	2514 doublereal res, doublereal ayb, doublereal *berr);
c@427	2515
c@427	2516 doublereal dla_porcond__(char uplo, integer n, doublereal a, integer lda,
c@427	2517 doublereal af, integer ldaf, integer cmode, doublereal c__,
c@427	2518 integer info, doublereal work, integer *iwork, ftnlen uplo_len);
c@427	2519
c@427	2520 /* Subroutine / int dla_porfsx_extended__(integer prec_type__, char *uplo,
c@427	2521 integer n, integer nrhs, doublereal a, integer lda, doublereal *
c@427	2522 af, integer ldaf, logical colequ, doublereal c__, doublereal b,
c@427	2523 integer ldb, doublereal y, integer ldy, doublereal berr_out__,
c@427	2524 integer n_norms__, doublereal errs_n__, doublereal *errs_c__,
c@427	2525 doublereal res, doublereal ayb, doublereal dy, doublereal
c@427	2526 y_tail__, doublereal rcond, integer ithresh, doublereal *rthresh,
c@427	2527 doublereal dz_ub__, logical ignore_cwise__, integer *info, ftnlen
c@427	2528 uplo_len);
c@427	2529
c@427	2530 doublereal dla_porpvgrw__(char uplo, integer ncols, doublereal a, integer
c@427	2531 lda, doublereal af, integer ldaf, doublereal *work, ftnlen uplo_len);
c@427	2532
c@427	2533 doublereal dla_rpvgrw__(integer n, integer ncols, doublereal a, integer
c@427	2534 lda, doublereal af, integer ldaf);
c@427	2535
c@427	2536 /* Subroutine / int dla_syamv__(integer uplo, integer n, doublereal alpha,
c@427	2537 doublereal a, integer lda, doublereal x, integer incx,
c@427	2538 doublereal beta, doublereal y, integer *incy);
c@427	2539
c@427	2540 doublereal dla_syrcond__(char uplo, integer n, doublereal a, integer lda,
c@427	2541 doublereal af, integer ldaf, integer ipiv, integer cmode,
c@427	2542 doublereal c__, integer info, doublereal work, integer iwork,
c@427	2543 ftnlen uplo_len);
c@427	2544
c@427	2545 /* Subroutine / int dla_syrfsx_extended__(integer prec_type__, char *uplo,
c@427	2546 integer n, integer nrhs, doublereal a, integer lda, doublereal *
c@427	2547 af, integer ldaf, integer ipiv, logical colequ, doublereal c__,
c@427	2548 doublereal b, integer ldb, doublereal y, integer ldy, doublereal *
c@427	2549 berr_out__, integer n_norms__, doublereal errs_n__, doublereal *
c@427	2550 errs_c__, doublereal res, doublereal ayb, doublereal *dy,
c@427	2551 doublereal y_tail__, doublereal rcond, integer *ithresh, doublereal
c@427	2552 rthresh, doublereal dz_ub__, logical ignore_cwise__, integer info,
c@427	2553 ftnlen uplo_len);
c@427	2554
c@427	2555 doublereal dla_syrpvgrw__(char uplo, integer n, integer info, doublereal
c@427	2556 a, integer lda, doublereal af, integer ldaf, integer ipiv,
c@427	2557 doublereal *work, ftnlen uplo_len);
c@427	2558
c@427	2559 /* Subroutine / int dla_wwaddw__(integer n, doublereal x, doublereal y,
c@427	2560 doublereal *w);
c@427	2561
c@427	2562 /* Subroutine / int dlabad_(doublereal small, doublereal *large);
c@427	2563
c@427	2564 /* Subroutine / int dlabrd_(integer m, integer n, integer nb, doublereal *
c@427	2565 a, integer lda, doublereal d__, doublereal e, doublereal tauq,
c@427	2566 doublereal taup, doublereal x, integer ldx, doublereal y, integer
c@427	2567 *ldy);
c@427	2568
c@427	2569 /* Subroutine / int dlacn2_(integer n, doublereal v, doublereal x,
c@427	2570 integer isgn, doublereal est, integer kase, integer isave);
c@427	2571
c@427	2572 /* Subroutine / int dlacon_(integer n, doublereal v, doublereal x,
c@427	2573 integer isgn, doublereal est, integer *kase);
c@427	2574
c@427	2575 /* Subroutine / int dlacpy_(char uplo, integer m, integer n, doublereal *
c@427	2576 a, integer lda, doublereal b, integer *ldb);
c@427	2577
c@427	2578 /* Subroutine / int dladiv_(doublereal a, doublereal b, doublereal c__,
c@427	2579 doublereal d__, doublereal p, doublereal *q);
c@427	2580
c@427	2581 /* Subroutine / int dlae2_(doublereal a, doublereal b, doublereal c__,
c@427	2582 doublereal rt1, doublereal rt2);
c@427	2583
c@427	2584 /* Subroutine / int dlaebz_(integer ijob, integer nitmax, integer n,
c@427	2585 integer mmax, integer minp, integer nbmin, doublereal abstol,
c@427	2586 doublereal reltol, doublereal pivmin, doublereal d__, doublereal
c@427	2587 e, doublereal e2, integer nval, doublereal ab, doublereal c__,
c@427	2588 integer mout, integer nab, doublereal work, integer iwork,
c@427	2589 integer *info);
c@427	2590
c@427	2591 /* Subroutine / int dlaed0_(integer icompq, integer qsiz, integer n,
c@427	2592 doublereal d__, doublereal e, doublereal q, integer ldq,
c@427	2593 doublereal qstore, integer ldqs, doublereal work, integer iwork,
c@427	2594 integer *info);
c@427	2595
c@427	2596 /* Subroutine / int dlaed1_(integer n, doublereal d__, doublereal q,
c@427	2597 integer ldq, integer indxq, doublereal rho, integer cutpnt,
c@427	2598 doublereal work, integer iwork, integer *info);
c@427	2599
c@427	2600 /* Subroutine / int dlaed2_(integer k, integer n, integer n1, doublereal *
c@427	2601 d__, doublereal q, integer ldq, integer indxq, doublereal rho,
c@427	2602 doublereal z__, doublereal dlamda, doublereal w, doublereal q2,
c@427	2603 integer indx, integer indxc, integer indxp, integer coltyp,
c@427	2604 integer *info);
c@427	2605
c@427	2606 /* Subroutine / int dlaed3_(integer k, integer n, integer n1, doublereal *
c@427	2607 d__, doublereal q, integer ldq, doublereal rho, doublereal dlamda,
c@427	2608 doublereal q2, integer indx, integer ctot, doublereal w,
c@427	2609 doublereal s, integer info);
c@427	2610
c@427	2611 /* Subroutine / int dlaed4_(integer n, integer i__, doublereal d__,
c@427	2612 doublereal z__, doublereal delta, doublereal rho, doublereal dlam,
c@427	2613 integer *info);
c@427	2614
c@427	2615 /* Subroutine / int dlaed5_(integer i__, doublereal d__, doublereal z__,
c@427	2616 doublereal delta, doublereal rho, doublereal *dlam);
c@427	2617
c@427	2618 /* Subroutine / int dlaed6_(integer kniter, logical orgati, doublereal
c@427	2619 rho, doublereal d__, doublereal z__, doublereal finit, doublereal
c@427	2620 tau, integer *info);
c@427	2621
c@427	2622 /* Subroutine / int dlaed7_(integer icompq, integer n, integer qsiz,
c@427	2623 integer tlvls, integer curlvl, integer curpbm, doublereal d__,
c@427	2624 doublereal q, integer ldq, integer indxq, doublereal rho, integer
c@427	2625 cutpnt, doublereal qstore, integer qptr, integer prmptr, integer *
c@427	2626 perm, integer givptr, integer givcol, doublereal *givnum,
c@427	2627 doublereal work, integer iwork, integer *info);
c@427	2628
c@427	2629 /* Subroutine / int dlaed8_(integer icompq, integer k, integer n, integer
c@427	2630 qsiz, doublereal d__, doublereal q, integer ldq, integer *indxq,
c@427	2631 doublereal rho, integer cutpnt, doublereal z__, doublereal dlamda,
c@427	2632 doublereal q2, integer ldq2, doublereal w, integer perm, integer
c@427	2633 givptr, integer givcol, doublereal givnum, integer indxp, integer
c@427	2634 indx, integer info);
c@427	2635
c@427	2636 /* Subroutine / int dlaed9_(integer k, integer kstart, integer kstop,
c@427	2637 integer n, doublereal d__, doublereal q, integer ldq, doublereal *
c@427	2638 rho, doublereal dlamda, doublereal w, doublereal s, integer lds,
c@427	2639 integer *info);
c@427	2640
c@427	2641 /* Subroutine / int dlaeda_(integer n, integer tlvls, integer curlvl,
c@427	2642 integer curpbm, integer prmptr, integer perm, integer givptr,
c@427	2643 integer givcol, doublereal givnum, doublereal q, integer qptr,
c@427	2644 doublereal z__, doublereal ztemp, integer *info);
c@427	2645
c@427	2646 /* Subroutine / int dlaein_(logical rightv, logical noinit, integer n,
c@427	2647 doublereal h__, integer ldh, doublereal wr, doublereal wi,
c@427	2648 doublereal vr, doublereal vi, doublereal b, integer ldb,
c@427	2649 doublereal work, doublereal eps3, doublereal smlnum, doublereal
c@427	2650 bignum, integer *info);
c@427	2651
c@427	2652 /* Subroutine / int dlaev2_(doublereal a, doublereal b, doublereal c__,
c@427	2653 doublereal rt1, doublereal rt2, doublereal cs1, doublereal sn1);
c@427	2654
c@427	2655 /* Subroutine / int dlaexc_(logical wantq, integer n, doublereal t,
c@427	2656 integer ldt, doublereal q, integer ldq, integer j1, integer *n1,
c@427	2657 integer n2, doublereal work, integer *info);
c@427	2658
c@427	2659 /* Subroutine / int dlag2_(doublereal a, integer lda, doublereal b,
c@427	2660 integer ldb, doublereal safmin, doublereal scale1, doublereal
c@427	2661 scale2, doublereal wr1, doublereal wr2, doublereal *wi);
c@427	2662
c@427	2663 /* Subroutine / int dlag2s_(integer m, integer n, doublereal a, integer *
c@427	2664 lda, real sa, integer ldsa, integer *info);
c@427	2665
c@427	2666 /* Subroutine / int dlags2_(logical upper, doublereal a1, doublereal a2,
c@427	2667 doublereal a3, doublereal b1, doublereal b2, doublereal b3,
c@427	2668 doublereal csu, doublereal snu, doublereal csv, doublereal snv,
c@427	2669 doublereal csq, doublereal snq);
c@427	2670
c@427	2671 /* Subroutine / int dlagtf_(integer n, doublereal a, doublereal lambda,
c@427	2672 doublereal b, doublereal c__, doublereal tol, doublereal d__,
c@427	2673 integer in, integer info);
c@427	2674
c@427	2675 /* Subroutine / int dlagtm_(char trans, integer n, integer nrhs,
c@427	2676 doublereal alpha, doublereal dl, doublereal d__, doublereal du,
c@427	2677 doublereal x, integer ldx, doublereal beta, doublereal b, integer
c@427	2678 *ldb);
c@427	2679
c@427	2680 /* Subroutine / int dlagts_(integer job, integer n, doublereal a,
c@427	2681 doublereal b, doublereal c__, doublereal d__, integer in,
c@427	2682 doublereal y, doublereal tol, integer *info);
c@427	2683
c@427	2684 /* Subroutine / int dlagv2_(doublereal a, integer lda, doublereal b,
c@427	2685 integer ldb, doublereal alphar, doublereal alphai, doublereal
c@427	2686 beta, doublereal csl, doublereal snl, doublereal csr, doublereal
c@427	2687 snr);
c@427	2688
c@427	2689 /* Subroutine / int dlahqr_(logical wantt, logical wantz, integer n,
c@427	2690 integer ilo, integer ihi, doublereal h__, integer ldh, doublereal
c@427	2691 wr, doublereal wi, integer iloz, integer ihiz, doublereal *z__,
c@427	2692 integer ldz, integer info);
c@427	2693
c@427	2694 /* Subroutine / int dlahr2_(integer n, integer k, integer nb, doublereal *
c@427	2695 a, integer lda, doublereal tau, doublereal t, integer ldt,
c@427	2696 doublereal y, integer ldy);
c@427	2697
c@427	2698 /* Subroutine / int dlahrd_(integer n, integer k, integer nb, doublereal *
c@427	2699 a, integer lda, doublereal tau, doublereal t, integer ldt,
c@427	2700 doublereal y, integer ldy);
c@427	2701
c@427	2702 /* Subroutine / int dlaic1_(integer job, integer j, doublereal x,
c@427	2703 doublereal sest, doublereal w, doublereal gamma, doublereal
c@427	2704 sestpr, doublereal s, doublereal c__);
c@427	2705
c@427	2706 logical dlaisnan_(doublereal din1, doublereal din2);
c@427	2707
c@427	2708 /* Subroutine / int dlaln2_(logical ltrans, integer na, integer nw,
c@427	2709 doublereal smin, doublereal ca, doublereal a, integer lda,
c@427	2710 doublereal d1, doublereal d2, doublereal b, integer ldb,
c@427	2711 doublereal wr, doublereal wi, doublereal x, integer ldx,
c@427	2712 doublereal scale, doublereal xnorm, integer *info);
c@427	2713
c@427	2714 /* Subroutine / int dlals0_(integer icompq, integer nl, integer nr,
c@427	2715 integer sqre, integer nrhs, doublereal b, integer ldb, doublereal
c@427	2716 bx, integer ldbx, integer perm, integer givptr, integer *givcol,
c@427	2717 integer ldgcol, doublereal givnum, integer ldgnum, doublereal
c@427	2718 poles, doublereal difl, doublereal difr, doublereal z__, integer
c@427	2719 k, doublereal c__, doublereal s, doublereal work, integer info);
c@427	2720
c@427	2721 /* Subroutine / int dlalsa_(integer icompq, integer smlsiz, integer n,
c@427	2722 integer nrhs, doublereal b, integer ldb, doublereal bx, integer *
c@427	2723 ldbx, doublereal u, integer ldu, doublereal vt, integer k,
c@427	2724 doublereal difl, doublereal difr, doublereal z__, doublereal
c@427	2725 poles, integer givptr, integer givcol, integer ldgcol, integer
c@427	2726 perm, doublereal givnum, doublereal c__, doublereal s, doublereal
c@427	2727 work, integer iwork, integer info);
c@427	2728
c@427	2729 /* Subroutine / int dlalsd_(char uplo, integer smlsiz, integer n, integer
c@427	2730 nrhs, doublereal d__, doublereal e, doublereal b, integer *ldb,
c@427	2731 doublereal rcond, integer rank, doublereal work, integer iwork,
c@427	2732 integer *info);
c@427	2733
c@427	2734 /* Subroutine / int dlamrg_(integer n1, integer n2, doublereal a, integer
c@427	2735 dtrd1, integer dtrd2, integer *index);
c@427	2736
c@427	2737 integer dlaneg_(integer n, doublereal d__, doublereal lld, doublereal
c@427	2738 sigma, doublereal pivmin, integer r__);
c@427	2739
c@427	2740 doublereal dlangb_(char norm, integer n, integer kl, integer ku,
c@427	2741 doublereal ab, integer ldab, doublereal *work);
c@427	2742
c@427	2743 doublereal dlange_(char norm, integer m, integer n, doublereal a, integer
c@427	2744 lda, doublereal work);
c@427	2745
c@427	2746 doublereal dlangt_(char norm, integer n, doublereal dl, doublereal d__,
c@427	2747 doublereal *du);
c@427	2748
c@427	2749 doublereal dlanhs_(char norm, integer n, doublereal a, integer lda,
c@427	2750 doublereal *work);
c@427	2751
c@427	2752 doublereal dlansb_(char norm, char uplo, integer n, integer k, doublereal
c@427	2753 ab, integer ldab, doublereal *work);
c@427	2754
c@427	2755 doublereal dlansf_(char norm, char transr, char uplo, integer n,
c@427	2756 doublereal a, doublereal work);
c@427	2757
c@427	2758 doublereal dlansp_(char norm, char uplo, integer n, doublereal ap,
c@427	2759 doublereal *work);
c@427	2760
c@427	2761 doublereal dlanst_(char norm, integer n, doublereal d__, doublereal e);
c@427	2762
c@427	2763 doublereal dlansy_(char norm, char uplo, integer n, doublereal a, integer
c@427	2764 lda, doublereal work);
c@427	2765
c@427	2766 doublereal dlantb_(char norm, char uplo, char diag, integer n, integer *k,
c@427	2767 doublereal ab, integer ldab, doublereal *work);
c@427	2768
c@427	2769 doublereal dlantp_(char norm, char uplo, char diag, integer n, doublereal
c@427	2770 ap, doublereal work);
c@427	2771
c@427	2772 doublereal dlantr_(char norm, char uplo, char diag, integer m, integer *n,
c@427	2773 doublereal a, integer lda, doublereal *work);
c@427	2774
c@427	2775 /* Subroutine / int dlanv2_(doublereal a, doublereal b, doublereal c__,
c@427	2776 doublereal d__, doublereal rt1r, doublereal rt1i, doublereal rt2r,
c@427	2777 doublereal rt2i, doublereal cs, doublereal *sn);
c@427	2778
c@427	2779 /* Subroutine / int dlapll_(integer n, doublereal x, integer incx,
c@427	2780 doublereal y, integer incy, doublereal *ssmin);
c@427	2781
c@427	2782 /* Subroutine / int dlapmt_(logical forwrd, integer m, integer n,
c@427	2783 doublereal x, integer ldx, integer *k);
c@427	2784
c@427	2785 doublereal dlapy2_(doublereal x, doublereal y);
c@427	2786
c@427	2787 doublereal dlapy3_(doublereal x, doublereal y, doublereal *z__);
c@427	2788
c@427	2789 /* Subroutine / int dlaqgb_(integer m, integer n, integer kl, integer *ku,
c@427	2790 doublereal ab, integer ldab, doublereal r__, doublereal c__,
c@427	2791 doublereal rowcnd, doublereal colcnd, doublereal amax, char equed);
c@427	2792
c@427	2793 /* Subroutine / int dlaqge_(integer m, integer n, doublereal a, integer *
c@427	2794 lda, doublereal r__, doublereal c__, doublereal *rowcnd, doublereal
c@427	2795 colcnd, doublereal amax, char *equed);
c@427	2796
c@427	2797 /* Subroutine / int dlaqp2_(integer m, integer n, integer offset,
c@427	2798 doublereal a, integer lda, integer jpvt, doublereal tau,
c@427	2799 doublereal vn1, doublereal vn2, doublereal *work);
c@427	2800
c@427	2801 /* Subroutine / int dlaqps_(integer m, integer n, integer offset, integer
c@427	2802 nb, integer kb, doublereal a, integer lda, integer *jpvt,
c@427	2803 doublereal tau, doublereal vn1, doublereal vn2, doublereal auxv,
c@427	2804 doublereal f, integer ldf);
c@427	2805
c@427	2806 /* Subroutine / int dlaqr0_(logical wantt, logical wantz, integer n,
c@427	2807 integer ilo, integer ihi, doublereal h__, integer ldh, doublereal
c@427	2808 wr, doublereal wi, integer iloz, integer ihiz, doublereal *z__,
c@427	2809 integer ldz, doublereal work, integer lwork, integer info);
c@427	2810
c@427	2811 /* Subroutine / int dlaqr1_(integer n, doublereal h__, integer ldh,
c@427	2812 doublereal sr1, doublereal si1, doublereal sr2, doublereal si2,
c@427	2813 doublereal *v);
c@427	2814
c@427	2815 /* Subroutine / int dlaqr2_(logical wantt, logical wantz, integer n,
c@427	2816 integer ktop, integer kbot, integer nw, doublereal h__, integer *
c@427	2817 ldh, integer iloz, integer ihiz, doublereal z__, integer ldz,
c@427	2818 integer ns, integer nd, doublereal sr, doublereal si, doublereal *
c@427	2819 v, integer ldv, integer nh, doublereal t, integer ldt, integer *
c@427	2820 nv, doublereal wv, integer ldwv, doublereal work, integer lwork);
c@427	2821
c@427	2822 /* Subroutine / int dlaqr3_(logical wantt, logical wantz, integer n,
c@427	2823 integer ktop, integer kbot, integer nw, doublereal h__, integer *
c@427	2824 ldh, integer iloz, integer ihiz, doublereal z__, integer ldz,
c@427	2825 integer ns, integer nd, doublereal sr, doublereal si, doublereal *
c@427	2826 v, integer ldv, integer nh, doublereal t, integer ldt, integer *
c@427	2827 nv, doublereal wv, integer ldwv, doublereal work, integer lwork);
c@427	2828
c@427	2829 /* Subroutine / int dlaqr4_(logical wantt, logical wantz, integer n,
c@427	2830 integer ilo, integer ihi, doublereal h__, integer ldh, doublereal
c@427	2831 wr, doublereal wi, integer iloz, integer ihiz, doublereal *z__,
c@427	2832 integer ldz, doublereal work, integer lwork, integer info);
c@427	2833
c@427	2834 /* Subroutine / int dlaqr5_(logical wantt, logical wantz, integer kacc22,
c@427	2835 integer n, integer ktop, integer kbot, integer nshfts, doublereal
c@427	2836 sr, doublereal si, doublereal h__, integer ldh, integer *iloz,
c@427	2837 integer ihiz, doublereal z__, integer ldz, doublereal v, integer *
c@427	2838 ldv, doublereal u, integer ldu, integer nv, doublereal wv,
c@427	2839 integer ldwv, integer nh, doublereal wh, integer ldwh);
c@427	2840
c@427	2841 /* Subroutine / int dlaqsb_(char uplo, integer n, integer kd, doublereal *
c@427	2842 ab, integer ldab, doublereal s, doublereal scond, doublereal amax,
c@427	2843 char *equed);
c@427	2844
c@427	2845 /* Subroutine / int dlaqsp_(char uplo, integer n, doublereal ap,
c@427	2846 doublereal s, doublereal scond, doublereal amax, char equed);
c@427	2847
c@427	2848 /* Subroutine / int dlaqsy_(char uplo, integer n, doublereal a, integer *
c@427	2849 lda, doublereal s, doublereal scond, doublereal amax, char equed);
c@427	2850
c@427	2851 /* Subroutine / int dlaqtr_(logical ltran, logical lreal, integer n,
c@427	2852 doublereal t, integer ldt, doublereal b, doublereal w, doublereal
c@427	2853 scale, doublereal x, doublereal work, integer info);
c@427	2854
c@427	2855 /* Subroutine / int dlar1v_(integer n, integer b1, integer bn, doublereal
c@427	2856 lambda, doublereal d__, doublereal l, doublereal ld, doublereal *
c@427	2857 lld, doublereal pivmin, doublereal gaptol, doublereal *z__, logical
c@427	2858 wantnc, integer negcnt, doublereal ztz, doublereal mingma,
c@427	2859 integer r__, integer isuppz, doublereal nrminv, doublereal resid,
c@427	2860 doublereal rqcorr, doublereal work);
c@427	2861
c@427	2862 /* Subroutine / int dlar2v_(integer n, doublereal x, doublereal y,
c@427	2863 doublereal z__, integer incx, doublereal c__, doublereal s,
c@427	2864 integer *incc);
c@427	2865
c@427	2866 /* Subroutine / int dlarf_(char side, integer m, integer n, doublereal *v,
c@427	2867 integer incv, doublereal tau, doublereal c__, integer ldc,
c@427	2868 doublereal *work);
c@427	2869
c@427	2870 /* Subroutine / int dlarfb_(char side, char trans, char direct, char *
c@427	2871 storev, integer m, integer n, integer k, doublereal v, integer *
c@427	2872 ldv, doublereal t, integer ldt, doublereal c__, integer ldc,
c@427	2873 doublereal work, integer ldwork);
c@427	2874
c@427	2875 /* Subroutine / int dlarfg_(integer n, doublereal alpha, doublereal x,
c@427	2876 integer incx, doublereal tau);
c@427	2877
c@427	2878 /* Subroutine / int dlarfp_(integer n, doublereal alpha, doublereal x,
c@427	2879 integer incx, doublereal tau);
c@427	2880
c@427	2881 /* Subroutine / int dlarft_(char direct, char storev, integer n, integer *
c@427	2882 k, doublereal v, integer ldv, doublereal tau, doublereal t,
c@427	2883 integer *ldt);
c@427	2884
c@427	2885 /* Subroutine / int dlarfx_(char side, integer m, integer n, doublereal *
c@427	2886 v, doublereal tau, doublereal c__, integer ldc, doublereal work);
c@427	2887
c@427	2888 /* Subroutine / int dlargv_(integer n, doublereal x, integer incx,
c@427	2889 doublereal y, integer incy, doublereal c__, integer incc);
c@427	2890
c@427	2891 /* Subroutine / int dlarnv_(integer idist, integer iseed, integer n,
c@427	2892 doublereal *x);
c@427	2893
c@427	2894 /* Subroutine / int dlarra_(integer n, doublereal d__, doublereal e,
c@427	2895 doublereal e2, doublereal spltol, doublereal tnrm, integer nsplit,
c@427	2896 integer isplit, integer info);
c@427	2897
c@427	2898 /* Subroutine / int dlarrb_(integer n, doublereal d__, doublereal lld,
c@427	2899 integer ifirst, integer ilast, doublereal rtol1, doublereal rtol2,
c@427	2900 integer offset, doublereal w, doublereal wgap, doublereal werr,
c@427	2901 doublereal work, integer iwork, doublereal pivmin, doublereal
c@427	2902 spdiam, integer twist, integer info);
c@427	2903
c@427	2904 /* Subroutine / int dlarrc_(char jobt, integer n, doublereal vl,
c@427	2905 doublereal vu, doublereal d__, doublereal e, doublereal pivmin,
c@427	2906 integer eigcnt, integer lcnt, integer rcnt, integer info);
c@427	2907
c@427	2908 /* Subroutine / int dlarrd_(char range, char order, integer n, doublereal
c@427	2909 vl, doublereal vu, integer il, integer iu, doublereal *gers,
c@427	2910 doublereal reltol, doublereal d__, doublereal e, doublereal e2,
c@427	2911 doublereal pivmin, integer nsplit, integer isplit, integer m,
c@427	2912 doublereal w, doublereal werr, doublereal wl, doublereal wu,
c@427	2913 integer iblock, integer indexw, doublereal work, integer iwork,
c@427	2914 integer *info);
c@427	2915
c@427	2916 /* Subroutine / int dlarre_(char range, integer n, doublereal vl,
c@427	2917 doublereal vu, integer il, integer iu, doublereal d__, doublereal
c@427	2918 e, doublereal e2, doublereal rtol1, doublereal rtol2, doublereal *
c@427	2919 spltol, integer nsplit, integer isplit, integer m, doublereal w,
c@427	2920 doublereal werr, doublereal wgap, integer iblock, integer indexw,
c@427	2921 doublereal gers, doublereal pivmin, doublereal work, integer
c@427	2922 iwork, integer *info);
c@427	2923
c@427	2924 /* Subroutine / int dlarrf_(integer n, doublereal d__, doublereal l,
c@427	2925 doublereal ld, integer clstrt, integer clend, doublereal w,
c@427	2926 doublereal wgap, doublereal werr, doublereal spdiam, doublereal
c@427	2927 clgapl, doublereal clgapr, doublereal pivmin, doublereal *sigma,
c@427	2928 doublereal dplus, doublereal lplus, doublereal work, integer info);
c@427	2929
c@427	2930 /* Subroutine / int dlarrj_(integer n, doublereal d__, doublereal e2,
c@427	2931 integer ifirst, integer ilast, doublereal rtol, integer offset,
c@427	2932 doublereal w, doublereal werr, doublereal work, integer iwork,
c@427	2933 doublereal pivmin, doublereal spdiam, integer *info);
c@427	2934
c@427	2935 /* Subroutine / int dlarrk_(integer n, integer iw, doublereal gl,
c@427	2936 doublereal gu, doublereal d__, doublereal e2, doublereal pivmin,
c@427	2937 doublereal reltol, doublereal w, doublereal werr, integer info);
c@427	2938
c@427	2939 /* Subroutine / int dlarrr_(integer n, doublereal d__, doublereal e,
c@427	2940 integer *info);
c@427	2941
c@427	2942 /* Subroutine / int dlarrv_(integer n, doublereal vl, doublereal vu,
c@427	2943 doublereal d__, doublereal l, doublereal pivmin, integer isplit,
c@427	2944 integer m, integer dol, integer dou, doublereal minrgp,
c@427	2945 doublereal rtol1, doublereal rtol2, doublereal w, doublereal werr,
c@427	2946 doublereal wgap, integer iblock, integer indexw, doublereal gers,
c@427	2947 doublereal z__, integer ldz, integer isuppz, doublereal work,
c@427	2948 integer iwork, integer info);
c@427	2949
c@427	2950 /* Subroutine / int dlarscl2_(integer m, integer n, doublereal d__,
c@427	2951 doublereal x, integer ldx);
c@427	2952
c@427	2953 /* Subroutine / int dlartg_(doublereal f, doublereal g, doublereal cs,
c@427	2954 doublereal sn, doublereal r__);
c@427	2955
c@427	2956 /* Subroutine / int dlartv_(integer n, doublereal x, integer incx,
c@427	2957 doublereal y, integer incy, doublereal c__, doublereal s, integer
c@427	2958 *incc);
c@427	2959
c@427	2960 /* Subroutine / int dlaruv_(integer iseed, integer n, doublereal x);
c@427	2961
c@427	2962 /* Subroutine / int dlarz_(char side, integer m, integer n, integer *l,
c@427	2963 doublereal v, integer incv, doublereal tau, doublereal c__,
c@427	2964 integer ldc, doublereal work);
c@427	2965
c@427	2966 /* Subroutine / int dlarzb_(char side, char trans, char direct, char *
c@427	2967 storev, integer m, integer n, integer k, integer l, doublereal *v,
c@427	2968 integer ldv, doublereal t, integer ldt, doublereal c__, integer *
c@427	2969 ldc, doublereal work, integer ldwork);
c@427	2970
c@427	2971 /* Subroutine / int dlarzt_(char direct, char storev, integer n, integer *
c@427	2972 k, doublereal v, integer ldv, doublereal tau, doublereal t,
c@427	2973 integer *ldt);
c@427	2974
c@427	2975 /* Subroutine / int dlas2_(doublereal f, doublereal g, doublereal h__,
c@427	2976 doublereal ssmin, doublereal ssmax);
c@427	2977
c@427	2978 /* Subroutine / int dlascl_(char type__, integer kl, integer ku,
c@427	2979 doublereal cfrom, doublereal cto, integer m, integer n,
c@427	2980 doublereal a, integer lda, integer *info);
c@427	2981
c@427	2982 /* Subroutine / int dlascl2_(integer m, integer n, doublereal d__,
c@427	2983 doublereal x, integer ldx);
c@427	2984
c@427	2985 /* Subroutine / int dlasd0_(integer n, integer sqre, doublereal d__,
c@427	2986 doublereal e, doublereal u, integer ldu, doublereal vt, integer *
c@427	2987 ldvt, integer smlsiz, integer iwork, doublereal work, integer
c@427	2988 info);
c@427	2989
c@427	2990 /* Subroutine / int dlasd1_(integer nl, integer nr, integer sqre,
c@427	2991 doublereal d__, doublereal alpha, doublereal beta, doublereal u,
c@427	2992 integer ldu, doublereal vt, integer ldvt, integer idxq, integer *
c@427	2993 iwork, doublereal work, integer info);
c@427	2994
c@427	2995 /* Subroutine / int dlasd2_(integer nl, integer nr, integer sqre, integer
c@427	2996 k, doublereal d__, doublereal z__, doublereal alpha, doublereal *
c@427	2997 beta, doublereal u, integer ldu, doublereal vt, integer ldvt,
c@427	2998 doublereal dsigma, doublereal u2, integer ldu2, doublereal vt2,
c@427	2999 integer ldvt2, integer idxp, integer idx, integer idxc, integer *
c@427	3000 idxq, integer coltyp, integer info);
c@427	3001
c@427	3002 /* Subroutine / int dlasd3_(integer nl, integer nr, integer sqre, integer
c@427	3003 k, doublereal d__, doublereal q, integer ldq, doublereal *dsigma,
c@427	3004 doublereal u, integer ldu, doublereal u2, integer ldu2,
c@427	3005 doublereal vt, integer ldvt, doublereal vt2, integer ldvt2,
c@427	3006 integer idxc, integer ctot, doublereal z__, integer info);
c@427	3007
c@427	3008 /* Subroutine / int dlasd4_(integer n, integer i__, doublereal d__,
c@427	3009 doublereal z__, doublereal delta, doublereal rho, doublereal
c@427	3010 sigma, doublereal work, integer info);
c@427	3011
c@427	3012 /* Subroutine / int dlasd5_(integer i__, doublereal d__, doublereal z__,
c@427	3013 doublereal delta, doublereal rho, doublereal dsigma, doublereal
c@427	3014 work);
c@427	3015
c@427	3016 /* Subroutine / int dlasd6_(integer icompq, integer nl, integer nr,
c@427	3017 integer sqre, doublereal d__, doublereal vf, doublereal vl,
c@427	3018 doublereal alpha, doublereal beta, integer idxq, integer perm,
c@427	3019 integer givptr, integer givcol, integer ldgcol, doublereal givnum,
c@427	3020 integer ldgnum, doublereal poles, doublereal difl, doublereal
c@427	3021 difr, doublereal z__, integer k, doublereal c__, doublereal s,
c@427	3022 doublereal work, integer iwork, integer *info);
c@427	3023
c@427	3024 /* Subroutine / int dlasd7_(integer icompq, integer nl, integer nr,
c@427	3025 integer sqre, integer k, doublereal d__, doublereal z__,
c@427	3026 doublereal zw, doublereal vf, doublereal vfw, doublereal vl,
c@427	3027 doublereal vlw, doublereal alpha, doublereal beta, doublereal
c@427	3028 dsigma, integer idx, integer idxp, integer idxq, integer perm,
c@427	3029 integer givptr, integer givcol, integer ldgcol, doublereal givnum,
c@427	3030 integer ldgnum, doublereal c__, doublereal s, integer info);
c@427	3031
c@427	3032 /* Subroutine / int dlasd8_(integer icompq, integer k, doublereal d__,
c@427	3033 doublereal z__, doublereal vf, doublereal vl, doublereal difl,
c@427	3034 doublereal difr, integer lddifr, doublereal dsigma, doublereal
c@427	3035 work, integer *info);
c@427	3036
c@427	3037 /* Subroutine / int dlasda_(integer icompq, integer smlsiz, integer n,
c@427	3038 integer sqre, doublereal d__, doublereal e, doublereal u, integer
c@427	3039 ldu, doublereal vt, integer k, doublereal difl, doublereal *difr,
c@427	3040 doublereal z__, doublereal poles, integer givptr, integer givcol,
c@427	3041 integer ldgcol, integer perm, doublereal givnum, doublereal c__,
c@427	3042 doublereal s, doublereal work, integer iwork, integer info);
c@427	3043
c@427	3044 /* Subroutine / int dlasdq_(char uplo, integer sqre, integer n, integer *
c@427	3045 ncvt, integer nru, integer ncc, doublereal d__, doublereal e,
c@427	3046 doublereal vt, integer ldvt, doublereal u, integer ldu,
c@427	3047 doublereal c__, integer ldc, doublereal work, integer info);
c@427	3048
c@427	3049 /* Subroutine / int dlasdt_(integer n, integer lvl, integer nd, integer *
c@427	3050 inode, integer ndiml, integer ndimr, integer *msub);
c@427	3051
c@427	3052 /* Subroutine / int dlaset_(char uplo, integer m, integer n, doublereal *
c@427	3053 alpha, doublereal beta, doublereal a, integer *lda);
c@427	3054
c@427	3055 /* Subroutine / int dlasq1_(integer n, doublereal d__, doublereal e,
c@427	3056 doublereal work, integer info);
c@427	3057
c@427	3058 /* Subroutine / int dlasq2_(integer n, doublereal z__, integer info);
c@427	3059
c@427	3060 /* Subroutine / int dlasq3_(integer i0, integer n0, doublereal z__,
c@427	3061 integer pp, doublereal dmin__, doublereal sigma, doublereal desig,
c@427	3062 doublereal qmax, integer nfail, integer iter, integer ndiv,
c@427	3063 logical ieee, integer ttype, doublereal dmin1, doublereal dmin2,
c@427	3064 doublereal dn, doublereal dn1, doublereal dn2, doublereal g,
c@427	3065 doublereal *tau);
c@427	3066
c@427	3067 /* Subroutine / int dlasq4_(integer i0, integer n0, doublereal z__,
c@427	3068 integer pp, integer n0in, doublereal dmin__, doublereal dmin1,
c@427	3069 doublereal dmin2, doublereal dn, doublereal dn1, doublereal dn2,
c@427	3070 doublereal tau, integer ttype, doublereal *g);
c@427	3071
c@427	3072 /* Subroutine / int dlasq5_(integer i0, integer n0, doublereal z__,
c@427	3073 integer pp, doublereal tau, doublereal dmin__, doublereal dmin1,
c@427	3074 doublereal dmin2, doublereal dn, doublereal dnm1, doublereal dnm2,
c@427	3075 logical *ieee);
c@427	3076
c@427	3077 /* Subroutine / int dlasq6_(integer i0, integer n0, doublereal z__,
c@427	3078 integer pp, doublereal dmin__, doublereal dmin1, doublereal dmin2,
c@427	3079 doublereal dn, doublereal dnm1, doublereal *dnm2);
c@427	3080
c@427	3081 /* Subroutine / int dlasr_(char side, char pivot, char direct, integer *m,
c@427	3082 integer n, doublereal c__, doublereal s, doublereal a, integer *
c@427	3083 lda);
c@427	3084
c@427	3085 /* Subroutine / int dlasrt_(char id, integer n, doublereal d__, integer *
c@427	3086 info);
c@427	3087
c@427	3088 /* Subroutine / int dlassq_(integer n, doublereal x, integer incx,
c@427	3089 doublereal scale, doublereal sumsq);
c@427	3090
c@427	3091 /* Subroutine / int dlasv2_(doublereal f, doublereal g, doublereal h__,
c@427	3092 doublereal ssmin, doublereal ssmax, doublereal snr, doublereal
c@427	3093 csr, doublereal snl, doublereal csl);
c@427	3094
c@427	3095 /* Subroutine / int dlaswp_(integer n, doublereal a, integer lda, integer
c@427	3096 k1, integer k2, integer ipiv, integer incx);
c@427	3097
c@427	3098 /* Subroutine / int dlasy2_(logical ltranl, logical ltranr, integer isgn,
c@427	3099 integer n1, integer n2, doublereal tl, integer ldtl, doublereal *
c@427	3100 tr, integer ldtr, doublereal b, integer ldb, doublereal scale,
c@427	3101 doublereal x, integer ldx, doublereal xnorm, integer info);
c@427	3102
c@427	3103 /* Subroutine / int dlasyf_(char uplo, integer n, integer nb, integer *kb,
c@427	3104 doublereal a, integer lda, integer ipiv, doublereal w, integer *
c@427	3105 ldw, integer *info);
c@427	3106
c@427	3107 /* Subroutine / int dlat2s_(char uplo, integer n, doublereal a, integer *
c@427	3108 lda, real sa, integer ldsa, integer *info);
c@427	3109
c@427	3110 /* Subroutine / int dlatbs_(char uplo, char trans, char diag, char *
c@427	3111 normin, integer n, integer kd, doublereal ab, integer ldab,
c@427	3112 doublereal x, doublereal scale, doublereal cnorm, integer info);
c@427	3113
c@427	3114 /* Subroutine / int dlatdf_(integer ijob, integer n, doublereal z__,
c@427	3115 integer ldz, doublereal rhs, doublereal rdsum, doublereal rdscal,
c@427	3116 integer ipiv, integer jpiv);
c@427	3117
c@427	3118 /* Subroutine / int dlatps_(char uplo, char trans, char diag, char *
c@427	3119 normin, integer n, doublereal ap, doublereal x, doublereal scale,
c@427	3120 doublereal cnorm, integer info);
c@427	3121
c@427	3122 /* Subroutine / int dlatrd_(char uplo, integer n, integer nb, doublereal *
c@427	3123 a, integer lda, doublereal e, doublereal tau, doublereal w,
c@427	3124 integer *ldw);
c@427	3125
c@427	3126 /* Subroutine / int dlatrs_(char uplo, char trans, char diag, char *
c@427	3127 normin, integer n, doublereal a, integer lda, doublereal x,
c@427	3128 doublereal scale, doublereal cnorm, integer *info);
c@427	3129
c@427	3130 /* Subroutine / int dlatrz_(integer m, integer n, integer l, doublereal *
c@427	3131 a, integer lda, doublereal tau, doublereal *work);
c@427	3132
c@427	3133 /* Subroutine / int dlatzm_(char side, integer m, integer n, doublereal *
c@427	3134 v, integer incv, doublereal tau, doublereal c1, doublereal c2,
c@427	3135 integer ldc, doublereal work);
c@427	3136
c@427	3137 /* Subroutine / int dlauu2_(char uplo, integer n, doublereal a, integer *
c@427	3138 lda, integer *info);
c@427	3139
c@427	3140 /* Subroutine / int dlauum_(char uplo, integer n, doublereal a, integer *
c@427	3141 lda, integer *info);
c@427	3142
c@427	3143 /* Subroutine / int dopgtr_(char uplo, integer n, doublereal ap,
c@427	3144 doublereal tau, doublereal q, integer ldq, doublereal work,
c@427	3145 integer *info);
c@427	3146
c@427	3147 /* Subroutine / int dopmtr_(char side, char uplo, char trans, integer *m,
c@427	3148 integer n, doublereal ap, doublereal tau, doublereal c__, integer
c@427	3149 ldc, doublereal work, integer *info);
c@427	3150
c@427	3151 /* Subroutine / int dorg2l_(integer m, integer n, integer k, doublereal *
c@427	3152 a, integer lda, doublereal tau, doublereal work, integer info);
c@427	3153
c@427	3154 /* Subroutine / int dorg2r_(integer m, integer n, integer k, doublereal *
c@427	3155 a, integer lda, doublereal tau, doublereal work, integer info);
c@427	3156
c@427	3157 /* Subroutine / int dorgbr_(char vect, integer m, integer n, integer *k,
c@427	3158 doublereal a, integer lda, doublereal tau, doublereal work,
c@427	3159 integer lwork, integer info);
c@427	3160
c@427	3161 /* Subroutine / int dorghr_(integer n, integer ilo, integer ihi,
c@427	3162 doublereal a, integer lda, doublereal tau, doublereal work,
c@427	3163 integer lwork, integer info);
c@427	3164
c@427	3165 /* Subroutine / int dorgl2_(integer m, integer n, integer k, doublereal *
c@427	3166 a, integer lda, doublereal tau, doublereal work, integer info);
c@427	3167
c@427	3168 /* Subroutine / int dorglq_(integer m, integer n, integer k, doublereal *
c@427	3169 a, integer lda, doublereal tau, doublereal work, integer lwork,
c@427	3170 integer *info);
c@427	3171
c@427	3172 /* Subroutine / int dorgql_(integer m, integer n, integer k, doublereal *
c@427	3173 a, integer lda, doublereal tau, doublereal work, integer lwork,
c@427	3174 integer *info);
c@427	3175
c@427	3176 /* Subroutine / int dorgqr_(integer m, integer n, integer k, doublereal *
c@427	3177 a, integer lda, doublereal tau, doublereal work, integer lwork,
c@427	3178 integer *info);
c@427	3179
c@427	3180 /* Subroutine / int dorgr2_(integer m, integer n, integer k, doublereal *
c@427	3181 a, integer lda, doublereal tau, doublereal work, integer info);
c@427	3182
c@427	3183 /* Subroutine / int dorgrq_(integer m, integer n, integer k, doublereal *
c@427	3184 a, integer lda, doublereal tau, doublereal work, integer lwork,
c@427	3185 integer *info);
c@427	3186
c@427	3187 /* Subroutine / int dorgtr_(char uplo, integer n, doublereal a, integer *
c@427	3188 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	3189
c@427	3190 /* Subroutine / int dorm2l_(char side, char trans, integer m, integer *n,
c@427	3191 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3192 c__, integer ldc, doublereal work, integer *info);
c@427	3193
c@427	3194 /* Subroutine / int dorm2r_(char side, char trans, integer m, integer *n,
c@427	3195 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3196 c__, integer ldc, doublereal work, integer *info);
c@427	3197
c@427	3198 /* Subroutine / int dormbr_(char vect, char side, char trans, integer *m,
c@427	3199 integer n, integer k, doublereal a, integer lda, doublereal *tau,
c@427	3200 doublereal c__, integer ldc, doublereal work, integer lwork,
c@427	3201 integer *info);
c@427	3202
c@427	3203 /* Subroutine / int dormhr_(char side, char trans, integer m, integer *n,
c@427	3204 integer ilo, integer ihi, doublereal a, integer lda, doublereal *
c@427	3205 tau, doublereal c__, integer ldc, doublereal work, integer lwork,
c@427	3206 integer *info);
c@427	3207
c@427	3208 /* Subroutine / int dorml2_(char side, char trans, integer m, integer *n,
c@427	3209 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3210 c__, integer ldc, doublereal work, integer *info);
c@427	3211
c@427	3212 /* Subroutine / int dormlq_(char side, char trans, integer m, integer *n,
c@427	3213 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3214 c__, integer ldc, doublereal work, integer lwork, integer info);
c@427	3215
c@427	3216 /* Subroutine / int dormql_(char side, char trans, integer m, integer *n,
c@427	3217 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3218 c__, integer ldc, doublereal work, integer lwork, integer info);
c@427	3219
c@427	3220 /* Subroutine / int dormqr_(char side, char trans, integer m, integer *n,
c@427	3221 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3222 c__, integer ldc, doublereal work, integer lwork, integer info);
c@427	3223
c@427	3224 /* Subroutine / int dormr2_(char side, char trans, integer m, integer *n,
c@427	3225 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3226 c__, integer ldc, doublereal work, integer *info);
c@427	3227
c@427	3228 /* Subroutine / int dormr3_(char side, char trans, integer m, integer *n,
c@427	3229 integer k, integer l, doublereal a, integer lda, doublereal *tau,
c@427	3230 doublereal c__, integer ldc, doublereal work, integer info);
c@427	3231
c@427	3232 /* Subroutine / int dormrq_(char side, char trans, integer m, integer *n,
c@427	3233 integer k, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3234 c__, integer ldc, doublereal work, integer lwork, integer info);
c@427	3235
c@427	3236 /* Subroutine / int dormrz_(char side, char trans, integer m, integer *n,
c@427	3237 integer k, integer l, doublereal a, integer lda, doublereal *tau,
c@427	3238 doublereal c__, integer ldc, doublereal work, integer lwork,
c@427	3239 integer *info);
c@427	3240
c@427	3241 /* Subroutine / int dormtr_(char side, char uplo, char trans, integer *m,
c@427	3242 integer n, doublereal a, integer lda, doublereal tau, doublereal *
c@427	3243 c__, integer ldc, doublereal work, integer lwork, integer info);
c@427	3244
c@427	3245 /* Subroutine / int dpbcon_(char uplo, integer n, integer kd, doublereal *
c@427	3246 ab, integer ldab, doublereal anorm, doublereal rcond, doublereal
c@427	3247 work, integer iwork, integer info);
c@427	3248
c@427	3249 /* Subroutine / int dpbequ_(char uplo, integer n, integer kd, doublereal *
c@427	3250 ab, integer ldab, doublereal s, doublereal scond, doublereal amax,
c@427	3251 integer *info);
c@427	3252
c@427	3253 /* Subroutine / int dpbrfs_(char uplo, integer n, integer kd, integer *
c@427	3254 nrhs, doublereal ab, integer ldab, doublereal afb, integer ldafb,
c@427	3255 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	3256 ferr, doublereal berr, doublereal work, integer iwork, integer
c@427	3257 info);
c@427	3258
c@427	3259 /* Subroutine / int dpbstf_(char uplo, integer n, integer kd, doublereal *
c@427	3260 ab, integer ldab, integer info);
c@427	3261
c@427	3262 /* Subroutine / int dpbsv_(char uplo, integer n, integer kd, integer *
c@427	3263 nrhs, doublereal ab, integer ldab, doublereal b, integer ldb,
c@427	3264 integer *info);
c@427	3265
c@427	3266 /* Subroutine / int dpbsvx_(char fact, char uplo, integer n, integer *kd,
c@427	3267 integer nrhs, doublereal ab, integer ldab, doublereal afb,
c@427	3268 integer ldafb, char equed, doublereal s, doublereal b, integer *
c@427	3269 ldb, doublereal x, integer ldx, doublereal rcond, doublereal ferr,
c@427	3270 doublereal berr, doublereal work, integer iwork, integer info);
c@427	3271
c@427	3272 /* Subroutine / int dpbtf2_(char uplo, integer n, integer kd, doublereal *
c@427	3273 ab, integer ldab, integer info);
c@427	3274
c@427	3275 /* Subroutine / int dpbtrf_(char uplo, integer n, integer kd, doublereal *
c@427	3276 ab, integer ldab, integer info);
c@427	3277
c@427	3278 /* Subroutine / int dpbtrs_(char uplo, integer n, integer kd, integer *
c@427	3279 nrhs, doublereal ab, integer ldab, doublereal b, integer ldb,
c@427	3280 integer *info);
c@427	3281
c@427	3282 /* Subroutine / int dpftrf_(char transr, char uplo, integer n, doublereal
c@427	3283 a, integer info);
c@427	3284
c@427	3285 /* Subroutine / int dpftri_(char transr, char uplo, integer n, doublereal
c@427	3286 a, integer info);
c@427	3287
c@427	3288 /* Subroutine / int dpftrs_(char transr, char uplo, integer n, integer *
c@427	3289 nrhs, doublereal a, doublereal b, integer ldb, integer info);
c@427	3290
c@427	3291 /* Subroutine / int dpocon_(char uplo, integer n, doublereal a, integer *
c@427	3292 lda, doublereal anorm, doublereal rcond, doublereal work, integer
c@427	3293 iwork, integer *info);
c@427	3294
c@427	3295 /* Subroutine / int dpoequ_(integer n, doublereal a, integer lda,
c@427	3296 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	3297
c@427	3298 /* Subroutine / int dpoequb_(integer n, doublereal a, integer lda,
c@427	3299 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	3300
c@427	3301 /* Subroutine / int dporfs_(char uplo, integer n, integer nrhs,
c@427	3302 doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3303 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	3304 ferr, doublereal berr, doublereal work, integer iwork, integer
c@427	3305 info);
c@427	3306
c@427	3307 /* Subroutine / int dporfsx_(char uplo, char equed, integer n, integer *
c@427	3308 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3309 doublereal s, doublereal b, integer ldb, doublereal x, integer *
c@427	3310 ldx, doublereal rcond, doublereal berr, integer *n_err_bnds__,
c@427	3311 doublereal err_bnds_norm__, doublereal err_bnds_comp__, integer *
c@427	3312 nparams, doublereal params, doublereal work, integer *iwork,
c@427	3313 integer *info);
c@427	3314
c@427	3315 /* Subroutine / int dposv_(char uplo, integer n, integer nrhs, doublereal
c@427	3316 a, integer lda, doublereal b, integer ldb, integer *info);
c@427	3317
c@427	3318 /* Subroutine / int dposvx_(char fact, char uplo, integer n, integer *
c@427	3319 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3320 char equed, doublereal s, doublereal b, integer ldb, doublereal *
c@427	3321 x, integer ldx, doublereal rcond, doublereal ferr, doublereal
c@427	3322 berr, doublereal work, integer iwork, integer *info);
c@427	3323
c@427	3324 /* Subroutine / int dposvxx_(char fact, char uplo, integer n, integer *
c@427	3325 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3326 char equed, doublereal s, doublereal b, integer ldb, doublereal *
c@427	3327 x, integer ldx, doublereal rcond, doublereal rpvgrw, doublereal
c@427	3328 berr, integer n_err_bnds__, doublereal err_bnds_norm__, doublereal *
c@427	3329 err_bnds_comp__, integer nparams, doublereal params, doublereal *
c@427	3330 work, integer iwork, integer info);
c@427	3331
c@427	3332 /* Subroutine / int dpotf2_(char uplo, integer n, doublereal a, integer *
c@427	3333 lda, integer *info);
c@427	3334
c@427	3335 /* Subroutine / int dpotrf_(char uplo, integer n, doublereal a, integer *
c@427	3336 lda, integer *info);
c@427	3337
c@427	3338 /* Subroutine / int dpotri_(char uplo, integer n, doublereal a, integer *
c@427	3339 lda, integer *info);
c@427	3340
c@427	3341 /* Subroutine / int dpotrs_(char uplo, integer n, integer nrhs,
c@427	3342 doublereal a, integer lda, doublereal b, integer ldb, integer *
c@427	3343 info);
c@427	3344
c@427	3345 /* Subroutine / int dppcon_(char uplo, integer n, doublereal ap,
c@427	3346 doublereal anorm, doublereal rcond, doublereal work, integer
c@427	3347 iwork, integer *info);
c@427	3348
c@427	3349 /* Subroutine / int dppequ_(char uplo, integer n, doublereal ap,
c@427	3350 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	3351
c@427	3352 /* Subroutine / int dpprfs_(char uplo, integer n, integer nrhs,
c@427	3353 doublereal ap, doublereal afp, doublereal b, integer ldb,
c@427	3354 doublereal x, integer ldx, doublereal ferr, doublereal berr,
c@427	3355 doublereal work, integer iwork, integer *info);
c@427	3356
c@427	3357 /* Subroutine / int dppsv_(char uplo, integer n, integer nrhs, doublereal
c@427	3358 ap, doublereal b, integer ldb, integer info);
c@427	3359
c@427	3360 /* Subroutine / int dppsvx_(char fact, char uplo, integer n, integer *
c@427	3361 nrhs, doublereal ap, doublereal afp, char equed, doublereal s,
c@427	3362 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	3363 rcond, doublereal ferr, doublereal berr, doublereal work, integer
c@427	3364 iwork, integer *info);
c@427	3365
c@427	3366 /* Subroutine / int dpptrf_(char uplo, integer n, doublereal ap, integer *
c@427	3367 info);
c@427	3368
c@427	3369 /* Subroutine / int dpptri_(char uplo, integer n, doublereal ap, integer *
c@427	3370 info);
c@427	3371
c@427	3372 /* Subroutine / int dpptrs_(char uplo, integer n, integer nrhs,
c@427	3373 doublereal ap, doublereal b, integer ldb, integer info);
c@427	3374
c@427	3375 /* Subroutine / int dpstf2_(char uplo, integer n, doublereal a, integer *
c@427	3376 lda, integer piv, integer rank, doublereal tol, doublereal work,
c@427	3377 integer *info);
c@427	3378
c@427	3379 /* Subroutine / int dpstrf_(char uplo, integer n, doublereal a, integer *
c@427	3380 lda, integer piv, integer rank, doublereal tol, doublereal work,
c@427	3381 integer *info);
c@427	3382
c@427	3383 /* Subroutine / int dptcon_(integer n, doublereal d__, doublereal e,
c@427	3384 doublereal anorm, doublereal rcond, doublereal work, integer info);
c@427	3385
c@427	3386 /* Subroutine / int dpteqr_(char compz, integer n, doublereal d__,
c@427	3387 doublereal e, doublereal z__, integer ldz, doublereal work,
c@427	3388 integer *info);
c@427	3389
c@427	3390 /* Subroutine / int dptrfs_(integer n, integer nrhs, doublereal d__,
c@427	3391 doublereal e, doublereal df, doublereal ef, doublereal b, integer
c@427	3392 ldb, doublereal x, integer ldx, doublereal ferr, doublereal *berr,
c@427	3393 doublereal work, integer info);
c@427	3394
c@427	3395 /* Subroutine / int dptsv_(integer n, integer nrhs, doublereal d__,
c@427	3396 doublereal e, doublereal b, integer ldb, integer info);
c@427	3397
c@427	3398 /* Subroutine / int dptsvx_(char fact, integer n, integer nrhs,
c@427	3399 doublereal d__, doublereal e, doublereal df, doublereal ef,
c@427	3400 doublereal b, integer ldb, doublereal x, integer ldx, doublereal *
c@427	3401 rcond, doublereal ferr, doublereal berr, doublereal work, integer
c@427	3402 info);
c@427	3403
c@427	3404 /* Subroutine / int dpttrf_(integer n, doublereal d__, doublereal e,
c@427	3405 integer *info);
c@427	3406
c@427	3407 /* Subroutine / int dpttrs_(integer n, integer nrhs, doublereal d__,
c@427	3408 doublereal e, doublereal b, integer ldb, integer info);
c@427	3409
c@427	3410 /* Subroutine / int dptts2_(integer n, integer nrhs, doublereal d__,
c@427	3411 doublereal e, doublereal b, integer *ldb);
c@427	3412
c@427	3413 /* Subroutine / int drscl_(integer n, doublereal sa, doublereal sx,
c@427	3414 integer *incx);
c@427	3415
c@427	3416 /* Subroutine / int dsbev_(char jobz, char uplo, integer n, integer *kd,
c@427	3417 doublereal ab, integer ldab, doublereal w, doublereal z__,
c@427	3418 integer ldz, doublereal work, integer *info);
c@427	3419
c@427	3420 /* Subroutine / int dsbevd_(char jobz, char uplo, integer n, integer *kd,
c@427	3421 doublereal ab, integer ldab, doublereal w, doublereal z__,
c@427	3422 integer ldz, doublereal work, integer lwork, integer iwork,
c@427	3423 integer liwork, integer info);
c@427	3424
c@427	3425 /* Subroutine / int dsbevx_(char jobz, char range, char uplo, integer *n,
c@427	3426 integer kd, doublereal ab, integer ldab, doublereal q, integer *
c@427	3427 ldq, doublereal vl, doublereal vu, integer il, integer iu,
c@427	3428 doublereal abstol, integer m, doublereal w, doublereal z__,
c@427	3429 integer ldz, doublereal work, integer iwork, integer ifail,
c@427	3430 integer *info);
c@427	3431
c@427	3432 /* Subroutine / int dsbgst_(char vect, char uplo, integer n, integer *ka,
c@427	3433 integer kb, doublereal ab, integer ldab, doublereal bb, integer *
c@427	3434 ldbb, doublereal x, integer ldx, doublereal work, integer info);
c@427	3435
c@427	3436 /* Subroutine / int dsbgv_(char jobz, char uplo, integer n, integer *ka,
c@427	3437 integer kb, doublereal ab, integer ldab, doublereal bb, integer *
c@427	3438 ldbb, doublereal w, doublereal z__, integer ldz, doublereal work,
c@427	3439 integer *info);
c@427	3440
c@427	3441 /* Subroutine / int dsbgvd_(char jobz, char uplo, integer n, integer *ka,
c@427	3442 integer kb, doublereal ab, integer ldab, doublereal bb, integer *
c@427	3443 ldbb, doublereal w, doublereal z__, integer ldz, doublereal work,
c@427	3444 integer lwork, integer iwork, integer liwork, integer info);
c@427	3445
c@427	3446 /* Subroutine / int dsbgvx_(char jobz, char range, char uplo, integer *n,
c@427	3447 integer ka, integer kb, doublereal ab, integer ldab, doublereal *
c@427	3448 bb, integer ldbb, doublereal q, integer ldq, doublereal vl,
c@427	3449 doublereal vu, integer il, integer iu, doublereal abstol, integer
c@427	3450 m, doublereal w, doublereal z__, integer ldz, doublereal *work,
c@427	3451 integer iwork, integer ifail, integer *info);
c@427	3452
c@427	3453 /* Subroutine / int dsbtrd_(char vect, char uplo, integer n, integer *kd,
c@427	3454 doublereal ab, integer ldab, doublereal d__, doublereal e,
c@427	3455 doublereal q, integer ldq, doublereal work, integer info);
c@427	3456
c@427	3457 /* Subroutine / int dsfrk_(char transr, char uplo, char trans, integer *n,
c@427	3458 integer k, doublereal alpha, doublereal a, integer lda,
c@427	3459 doublereal beta, doublereal c__);
c@427	3460
c@427	3461 /* Subroutine / int dsgesv_(integer n, integer nrhs, doublereal a,
c@427	3462 integer lda, integer ipiv, doublereal b, integer ldb, doublereal *
c@427	3463 x, integer ldx, doublereal work, real swork, integer iter,
c@427	3464 integer *info);
c@427	3465
c@427	3466 /* Subroutine / int dspcon_(char uplo, integer n, doublereal ap, integer *
c@427	3467 ipiv, doublereal anorm, doublereal rcond, doublereal *work, integer
c@427	3468 iwork, integer info);
c@427	3469
c@427	3470 /* Subroutine / int dspev_(char jobz, char uplo, integer n, doublereal *
c@427	3471 ap, doublereal w, doublereal z__, integer ldz, doublereal work,
c@427	3472 integer *info);
c@427	3473
c@427	3474 /* Subroutine / int dspevd_(char jobz, char uplo, integer n, doublereal *
c@427	3475 ap, doublereal w, doublereal z__, integer ldz, doublereal work,
c@427	3476 integer lwork, integer iwork, integer liwork, integer info);
c@427	3477
c@427	3478 /* Subroutine / int dspevx_(char jobz, char range, char uplo, integer *n,
c@427	3479 doublereal ap, doublereal vl, doublereal vu, integer il, integer *
c@427	3480 iu, doublereal abstol, integer m, doublereal w, doublereal z__,
c@427	3481 integer ldz, doublereal work, integer iwork, integer ifail,
c@427	3482 integer *info);
c@427	3483
c@427	3484 /* Subroutine / int dspgst_(integer itype, char uplo, integer n,
c@427	3485 doublereal ap, doublereal bp, integer *info);
c@427	3486
c@427	3487 /* Subroutine / int dspgv_(integer itype, char jobz, char uplo, integer *
c@427	3488 n, doublereal ap, doublereal bp, doublereal w, doublereal z__,
c@427	3489 integer ldz, doublereal work, integer *info);
c@427	3490
c@427	3491 /* Subroutine / int dspgvd_(integer itype, char jobz, char uplo, integer *
c@427	3492 n, doublereal ap, doublereal bp, doublereal w, doublereal z__,
c@427	3493 integer ldz, doublereal work, integer lwork, integer iwork,
c@427	3494 integer liwork, integer info);
c@427	3495
c@427	3496 /* Subroutine / int dspgvx_(integer itype, char jobz, char range, char *
c@427	3497 uplo, integer n, doublereal ap, doublereal bp, doublereal vl,
c@427	3498 doublereal vu, integer il, integer iu, doublereal abstol, integer
c@427	3499 m, doublereal w, doublereal z__, integer ldz, doublereal *work,
c@427	3500 integer iwork, integer ifail, integer *info);
c@427	3501
c@427	3502 /* Subroutine / int dsposv_(char uplo, integer n, integer nrhs,
c@427	3503 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	3504 x, integer ldx, doublereal work, real swork, integer iter,
c@427	3505 integer *info);
c@427	3506
c@427	3507 /* Subroutine / int dsprfs_(char uplo, integer n, integer nrhs,
c@427	3508 doublereal ap, doublereal afp, integer ipiv, doublereal b,
c@427	3509 integer ldb, doublereal x, integer ldx, doublereal ferr,
c@427	3510 doublereal berr, doublereal work, integer iwork, integer info);
c@427	3511
c@427	3512 /* Subroutine / int dspsv_(char uplo, integer n, integer nrhs, doublereal
c@427	3513 ap, integer ipiv, doublereal b, integer ldb, integer *info);
c@427	3514
c@427	3515 /* Subroutine / int dspsvx_(char fact, char uplo, integer n, integer *
c@427	3516 nrhs, doublereal ap, doublereal afp, integer ipiv, doublereal b,
c@427	3517 integer ldb, doublereal x, integer ldx, doublereal rcond,
c@427	3518 doublereal ferr, doublereal berr, doublereal work, integer iwork,
c@427	3519 integer *info);
c@427	3520
c@427	3521 /* Subroutine / int dsptrd_(char uplo, integer n, doublereal ap,
c@427	3522 doublereal d__, doublereal e, doublereal tau, integer info);
c@427	3523
c@427	3524 /* Subroutine / int dsptrf_(char uplo, integer n, doublereal ap, integer *
c@427	3525 ipiv, integer *info);
c@427	3526
c@427	3527 /* Subroutine / int dsptri_(char uplo, integer n, doublereal ap, integer *
c@427	3528 ipiv, doublereal work, integer info);
c@427	3529
c@427	3530 /* Subroutine / int dsptrs_(char uplo, integer n, integer nrhs,
c@427	3531 doublereal ap, integer ipiv, doublereal b, integer ldb, integer *
c@427	3532 info);
c@427	3533
c@427	3534 /* Subroutine / int dstebz_(char range, char order, integer n, doublereal
c@427	3535 vl, doublereal vu, integer il, integer iu, doublereal *abstol,
c@427	3536 doublereal d__, doublereal e, integer m, integer nsplit,
c@427	3537 doublereal w, integer iblock, integer isplit, doublereal work,
c@427	3538 integer iwork, integer info);
c@427	3539
c@427	3540 /* Subroutine / int dstedc_(char compz, integer n, doublereal d__,
c@427	3541 doublereal e, doublereal z__, integer ldz, doublereal work,
c@427	3542 integer lwork, integer iwork, integer liwork, integer info);
c@427	3543
c@427	3544 /* Subroutine / int dstegr_(char jobz, char range, integer n, doublereal *
c@427	3545 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	3546 integer iu, doublereal abstol, integer m, doublereal w,
c@427	3547 doublereal z__, integer ldz, integer isuppz, doublereal work,
c@427	3548 integer lwork, integer iwork, integer liwork, integer info);
c@427	3549
c@427	3550 /* Subroutine / int dstein_(integer n, doublereal d__, doublereal e,
c@427	3551 integer m, doublereal w, integer iblock, integer isplit,
c@427	3552 doublereal z__, integer ldz, doublereal work, integer iwork,
c@427	3553 integer ifail, integer info);
c@427	3554
c@427	3555 /* Subroutine / int dstemr_(char jobz, char range, integer n, doublereal *
c@427	3556 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	3557 integer iu, integer m, doublereal w, doublereal z__, integer *ldz,
c@427	3558 integer nzc, integer isuppz, logical tryrac, doublereal work,
c@427	3559 integer lwork, integer iwork, integer liwork, integer info);
c@427	3560
c@427	3561 /* Subroutine / int dsteqr_(char compz, integer n, doublereal d__,
c@427	3562 doublereal e, doublereal z__, integer ldz, doublereal work,
c@427	3563 integer *info);
c@427	3564
c@427	3565 /* Subroutine / int dsterf_(integer n, doublereal d__, doublereal e,
c@427	3566 integer *info);
c@427	3567
c@427	3568 /* Subroutine / int dstev_(char jobz, integer n, doublereal d__,
c@427	3569 doublereal e, doublereal z__, integer ldz, doublereal work,
c@427	3570 integer *info);
c@427	3571
c@427	3572 /* Subroutine / int dstevd_(char jobz, integer n, doublereal d__,
c@427	3573 doublereal e, doublereal z__, integer ldz, doublereal work,
c@427	3574 integer lwork, integer iwork, integer liwork, integer info);
c@427	3575
c@427	3576 /* Subroutine / int dstevr_(char jobz, char range, integer n, doublereal *
c@427	3577 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	3578 integer iu, doublereal abstol, integer m, doublereal w,
c@427	3579 doublereal z__, integer ldz, integer isuppz, doublereal work,
c@427	3580 integer lwork, integer iwork, integer liwork, integer info);
c@427	3581
c@427	3582 /* Subroutine / int dstevx_(char jobz, char range, integer n, doublereal *
c@427	3583 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	3584 integer iu, doublereal abstol, integer m, doublereal w,
c@427	3585 doublereal z__, integer ldz, doublereal work, integer iwork,
c@427	3586 integer ifail, integer info);
c@427	3587
c@427	3588 /* Subroutine / int dsycon_(char uplo, integer n, doublereal a, integer *
c@427	3589 lda, integer ipiv, doublereal anorm, doublereal rcond, doublereal
c@427	3590 work, integer iwork, integer info);
c@427	3591
c@427	3592 /* Subroutine / int dsyequb_(char uplo, integer n, doublereal a, integer *
c@427	3593 lda, doublereal s, doublereal scond, doublereal amax, doublereal
c@427	3594 work, integer *info);
c@427	3595
c@427	3596 /* Subroutine / int dsyev_(char jobz, char uplo, integer n, doublereal *a,
c@427	3597 integer lda, doublereal w, doublereal work, integer lwork,
c@427	3598 integer *info);
c@427	3599
c@427	3600 /* Subroutine / int dsyevd_(char jobz, char uplo, integer n, doublereal *
c@427	3601 a, integer lda, doublereal w, doublereal work, integer lwork,
c@427	3602 integer iwork, integer liwork, integer *info);
c@427	3603
c@427	3604 /* Subroutine / int dsyevr_(char jobz, char range, char uplo, integer *n,
c@427	3605 doublereal a, integer lda, doublereal vl, doublereal vu, integer *
c@427	3606 il, integer iu, doublereal abstol, integer m, doublereal w,
c@427	3607 doublereal z__, integer ldz, integer isuppz, doublereal work,
c@427	3608 integer lwork, integer iwork, integer liwork, integer info);
c@427	3609
c@427	3610 /* Subroutine / int dsyevx_(char jobz, char range, char uplo, integer *n,
c@427	3611 doublereal a, integer lda, doublereal vl, doublereal vu, integer *
c@427	3612 il, integer iu, doublereal abstol, integer m, doublereal w,
c@427	3613 doublereal z__, integer ldz, doublereal work, integer lwork,
c@427	3614 integer iwork, integer ifail, integer *info);
c@427	3615
c@427	3616 /* Subroutine / int dsygs2_(integer itype, char uplo, integer n,
c@427	3617 doublereal a, integer lda, doublereal b, integer ldb, integer *
c@427	3618 info);
c@427	3619
c@427	3620 /* Subroutine / int dsygst_(integer itype, char uplo, integer n,
c@427	3621 doublereal a, integer lda, doublereal b, integer ldb, integer *
c@427	3622 info);
c@427	3623
c@427	3624 /* Subroutine / int dsygv_(integer itype, char jobz, char uplo, integer *
c@427	3625 n, doublereal a, integer lda, doublereal b, integer ldb,
c@427	3626 doublereal w, doublereal work, integer lwork, integer info);
c@427	3627
c@427	3628 /* Subroutine / int dsygvd_(integer itype, char jobz, char uplo, integer *
c@427	3629 n, doublereal a, integer lda, doublereal b, integer ldb,
c@427	3630 doublereal w, doublereal work, integer lwork, integer iwork,
c@427	3631 integer liwork, integer info);
c@427	3632
c@427	3633 /* Subroutine / int dsygvx_(integer itype, char jobz, char range, char *
c@427	3634 uplo, integer n, doublereal a, integer lda, doublereal b, integer
c@427	3635 ldb, doublereal vl, doublereal vu, integer il, integer *iu,
c@427	3636 doublereal abstol, integer m, doublereal w, doublereal z__,
c@427	3637 integer ldz, doublereal work, integer lwork, integer iwork,
c@427	3638 integer ifail, integer info);
c@427	3639
c@427	3640 /* Subroutine / int dsyrfs_(char uplo, integer n, integer nrhs,
c@427	3641 doublereal a, integer lda, doublereal af, integer ldaf, integer *
c@427	3642 ipiv, doublereal b, integer ldb, doublereal x, integer ldx,
c@427	3643 doublereal ferr, doublereal berr, doublereal work, integer iwork,
c@427	3644 integer *info);
c@427	3645
c@427	3646 /* Subroutine / int dsyrfsx_(char uplo, char equed, integer n, integer *
c@427	3647 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3648 integer ipiv, doublereal s, doublereal b, integer ldb, doublereal
c@427	3649 x, integer ldx, doublereal rcond, doublereal berr, integer *
c@427	3650 n_err_bnds__, doublereal err_bnds_norm__, doublereal
c@427	3651 err_bnds_comp__, integer nparams, doublereal params, doublereal *
c@427	3652 work, integer iwork, integer info);
c@427	3653
c@427	3654 /* Subroutine / int dsysv_(char uplo, integer n, integer nrhs, doublereal
c@427	3655 a, integer lda, integer ipiv, doublereal b, integer *ldb,
c@427	3656 doublereal work, integer lwork, integer *info);
c@427	3657
c@427	3658 /* Subroutine / int dsysvx_(char fact, char uplo, integer n, integer *
c@427	3659 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3660 integer ipiv, doublereal b, integer ldb, doublereal x, integer *
c@427	3661 ldx, doublereal rcond, doublereal ferr, doublereal *berr,
c@427	3662 doublereal work, integer lwork, integer iwork, integer info);
c@427	3663
c@427	3664 /* Subroutine / int dsysvxx_(char fact, char uplo, integer n, integer *
c@427	3665 nrhs, doublereal a, integer lda, doublereal af, integer ldaf,
c@427	3666 integer ipiv, char equed, doublereal s, doublereal b, integer *
c@427	3667 ldb, doublereal x, integer ldx, doublereal rcond, doublereal
c@427	3668 rpvgrw, doublereal berr, integer n_err_bnds__, doublereal *
c@427	3669 err_bnds_norm__, doublereal err_bnds_comp__, integer nparams,
c@427	3670 doublereal params, doublereal work, integer iwork, integer info);
c@427	3671
c@427	3672 /* Subroutine / int dsytd2_(char uplo, integer n, doublereal a, integer *
c@427	3673 lda, doublereal d__, doublereal e, doublereal tau, integer info);
c@427	3674
c@427	3675 /* Subroutine / int dsytf2_(char uplo, integer n, doublereal a, integer *
c@427	3676 lda, integer ipiv, integer info);
c@427	3677
c@427	3678 /* Subroutine / int dsytrd_(char uplo, integer n, doublereal a, integer *
c@427	3679 lda, doublereal d__, doublereal e, doublereal tau, doublereal
c@427	3680 work, integer lwork, integer info);
c@427	3681
c@427	3682 /* Subroutine / int dsytrf_(char uplo, integer n, doublereal a, integer *
c@427	3683 lda, integer ipiv, doublereal work, integer lwork, integer info);
c@427	3684
c@427	3685 /* Subroutine / int dsytri_(char uplo, integer n, doublereal a, integer *
c@427	3686 lda, integer ipiv, doublereal work, integer *info);
c@427	3687
c@427	3688 /* Subroutine / int dsytrs_(char uplo, integer n, integer nrhs,
c@427	3689 doublereal a, integer lda, integer ipiv, doublereal b, integer *
c@427	3690 ldb, integer *info);
c@427	3691
c@427	3692 /* Subroutine / int dtbcon_(char norm, char uplo, char diag, integer *n,
c@427	3693 integer kd, doublereal ab, integer ldab, doublereal rcond,
c@427	3694 doublereal work, integer iwork, integer *info);
c@427	3695
c@427	3696 /* Subroutine / int dtbrfs_(char uplo, char trans, char diag, integer *n,
c@427	3697 integer kd, integer nrhs, doublereal ab, integer ldab, doublereal
c@427	3698 b, integer ldb, doublereal x, integer ldx, doublereal *ferr,
c@427	3699 doublereal berr, doublereal work, integer iwork, integer info);
c@427	3700
c@427	3701 /* Subroutine / int dtbtrs_(char uplo, char trans, char diag, integer *n,
c@427	3702 integer kd, integer nrhs, doublereal ab, integer ldab, doublereal
c@427	3703 b, integer ldb, integer *info);
c@427	3704
c@427	3705 /* Subroutine / int dtfsm_(char transr, char side, char uplo, char *trans,
c@427	3706 char diag, integer m, integer n, doublereal alpha, doublereal *a,
c@427	3707 doublereal b, integer ldb);
c@427	3708
c@427	3709 /* Subroutine / int dtftri_(char transr, char uplo, char diag, integer *n,
c@427	3710 doublereal a, integer info);
c@427	3711
c@427	3712 /* Subroutine / int dtfttp_(char transr, char uplo, integer n, doublereal
c@427	3713 arf, doublereal ap, integer *info);
c@427	3714
c@427	3715 /* Subroutine / int dtfttr_(char transr, char uplo, integer n, doublereal
c@427	3716 arf, doublereal a, integer lda, integer info);
c@427	3717
c@427	3718 /* Subroutine / int dtgevc_(char side, char howmny, logical select,
c@427	3719 integer n, doublereal s, integer lds, doublereal p, integer *ldp,
c@427	3720 doublereal vl, integer ldvl, doublereal vr, integer ldvr, integer
c@427	3721 mm, integer m, doublereal work, integer info);
c@427	3722
c@427	3723 /* Subroutine / int dtgex2_(logical wantq, logical wantz, integer n,
c@427	3724 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	3725 q, integer ldq, doublereal z__, integer ldz, integer j1, integer *
c@427	3726 n1, integer n2, doublereal work, integer lwork, integer info);
c@427	3727
c@427	3728 /* Subroutine / int dtgexc_(logical wantq, logical wantz, integer n,
c@427	3729 doublereal a, integer lda, doublereal b, integer ldb, doublereal *
c@427	3730 q, integer ldq, doublereal z__, integer ldz, integer ifst,
c@427	3731 integer ilst, doublereal work, integer lwork, integer info);
c@427	3732
c@427	3733 /* Subroutine / int dtgsen_(integer ijob, logical wantq, logical wantz,
c@427	3734 logical select, integer n, doublereal a, integer lda, doublereal *
c@427	3735 b, integer ldb, doublereal alphar, doublereal alphai, doublereal
c@427	3736 beta, doublereal q, integer ldq, doublereal z__, integer ldz,
c@427	3737 integer m, doublereal pl, doublereal pr, doublereal dif,
c@427	3738 doublereal work, integer lwork, integer iwork, integer liwork,
c@427	3739 integer *info);
c@427	3740
c@427	3741 /* Subroutine / int dtgsja_(char jobu, char jobv, char jobq, integer *m,
c@427	3742 integer p, integer n, integer k, integer l, doublereal *a,
c@427	3743 integer lda, doublereal b, integer ldb, doublereal tola,
c@427	3744 doublereal tolb, doublereal alpha, doublereal beta, doublereal u,
c@427	3745 integer ldu, doublereal v, integer ldv, doublereal q, integer *
c@427	3746 ldq, doublereal work, integer ncycle, integer *info);
c@427	3747
c@427	3748 /* Subroutine / int dtgsna_(char job, char howmny, logical select,
c@427	3749 integer n, doublereal a, integer lda, doublereal b, integer *ldb,
c@427	3750 doublereal vl, integer ldvl, doublereal vr, integer ldvr,
c@427	3751 doublereal s, doublereal dif, integer mm, integer m, doublereal *
c@427	3752 work, integer lwork, integer iwork, integer *info);
c@427	3753
c@427	3754 /* Subroutine / int dtgsy2_(char trans, integer ijob, integer m, integer *
c@427	3755 n, doublereal a, integer lda, doublereal b, integer ldb,
c@427	3756 doublereal c__, integer ldc, doublereal d__, integer ldd,
c@427	3757 doublereal e, integer lde, doublereal f, integer ldf, doublereal *
c@427	3758 scale, doublereal rdsum, doublereal rdscal, integer *iwork, integer
c@427	3759 pq, integer info);
c@427	3760
c@427	3761 /* Subroutine / int dtgsyl_(char trans, integer ijob, integer m, integer *
c@427	3762 n, doublereal a, integer lda, doublereal b, integer ldb,
c@427	3763 doublereal c__, integer ldc, doublereal d__, integer ldd,
c@427	3764 doublereal e, integer lde, doublereal f, integer ldf, doublereal *
c@427	3765 scale, doublereal dif, doublereal work, integer lwork, integer
c@427	3766 iwork, integer *info);
c@427	3767
c@427	3768 /* Subroutine / int dtpcon_(char norm, char uplo, char diag, integer *n,
c@427	3769 doublereal ap, doublereal rcond, doublereal work, integer iwork,
c@427	3770 integer *info);
c@427	3771
c@427	3772 /* Subroutine / int dtprfs_(char uplo, char trans, char diag, integer *n,
c@427	3773 integer nrhs, doublereal ap, doublereal b, integer ldb,
c@427	3774 doublereal x, integer ldx, doublereal ferr, doublereal berr,
c@427	3775 doublereal work, integer iwork, integer *info);
c@427	3776
c@427	3777 /* Subroutine / int dtptri_(char uplo, char diag, integer n, doublereal *
c@427	3778 ap, integer *info);
c@427	3779
c@427	3780 /* Subroutine / int dtptrs_(char uplo, char trans, char diag, integer *n,
c@427	3781 integer nrhs, doublereal ap, doublereal b, integer ldb, integer *
c@427	3782 info);
c@427	3783
c@427	3784 /* Subroutine / int dtpttf_(char transr, char uplo, integer n, doublereal
c@427	3785 ap, doublereal arf, integer *info);
c@427	3786
c@427	3787 /* Subroutine / int dtpttr_(char uplo, integer n, doublereal ap,
c@427	3788 doublereal a, integer lda, integer *info);
c@427	3789
c@427	3790 /* Subroutine / int dtrcon_(char norm, char uplo, char diag, integer *n,
c@427	3791 doublereal a, integer lda, doublereal rcond, doublereal work,
c@427	3792 integer iwork, integer info);
c@427	3793
c@427	3794 /* Subroutine / int dtrevc_(char side, char howmny, logical select,
c@427	3795 integer n, doublereal t, integer ldt, doublereal vl, integer *
c@427	3796 ldvl, doublereal vr, integer ldvr, integer mm, integer m,
c@427	3797 doublereal work, integer info);
c@427	3798
c@427	3799 /* Subroutine / int dtrexc_(char compq, integer n, doublereal t, integer *
c@427	3800 ldt, doublereal q, integer ldq, integer ifst, integer ilst,
c@427	3801 doublereal work, integer info);
c@427	3802
c@427	3803 /* Subroutine / int dtrrfs_(char uplo, char trans, char diag, integer *n,
c@427	3804 integer nrhs, doublereal a, integer lda, doublereal b, integer *
c@427	3805 ldb, doublereal x, integer ldx, doublereal ferr, doublereal berr,
c@427	3806 doublereal work, integer iwork, integer *info);
c@427	3807
c@427	3808 /* Subroutine / int dtrsen_(char job, char compq, logical select, integer
c@427	3809 n, doublereal t, integer ldt, doublereal q, integer *ldq,
c@427	3810 doublereal wr, doublereal wi, integer m, doublereal s, doublereal
c@427	3811 sep, doublereal work, integer lwork, integer iwork, integer *
c@427	3812 liwork, integer *info);
c@427	3813
c@427	3814 /* Subroutine / int dtrsna_(char job, char howmny, logical select,
c@427	3815 integer n, doublereal t, integer ldt, doublereal vl, integer *
c@427	3816 ldvl, doublereal vr, integer ldvr, doublereal s, doublereal sep,
c@427	3817 integer mm, integer m, doublereal work, integer ldwork, integer *
c@427	3818 iwork, integer *info);
c@427	3819
c@427	3820 /* Subroutine / int dtrsyl_(char trana, char tranb, integer isgn, integer
c@427	3821 m, integer n, doublereal a, integer lda, doublereal b, integer
c@427	3822 ldb, doublereal c__, integer ldc, doublereal scale, integer info);
c@427	3823
c@427	3824 /* Subroutine / int dtrti2_(char uplo, char diag, integer n, doublereal *
c@427	3825 a, integer lda, integer info);
c@427	3826
c@427	3827 /* Subroutine / int dtrtri_(char uplo, char diag, integer n, doublereal *
c@427	3828 a, integer lda, integer info);
c@427	3829
c@427	3830 /* Subroutine / int dtrtrs_(char uplo, char trans, char diag, integer *n,
c@427	3831 integer nrhs, doublereal a, integer lda, doublereal b, integer *
c@427	3832 ldb, integer *info);
c@427	3833
c@427	3834 /* Subroutine / int dtrttf_(char transr, char uplo, integer n, doublereal
c@427	3835 a, integer lda, doublereal arf, integer info);
c@427	3836
c@427	3837 /* Subroutine / int dtrttp_(char uplo, integer n, doublereal a, integer *
c@427	3838 lda, doublereal ap, integer info);
c@427	3839
c@427	3840 /* Subroutine / int dtzrqf_(integer m, integer n, doublereal a, integer *
c@427	3841 lda, doublereal tau, integer info);
c@427	3842
c@427	3843 /* Subroutine / int dtzrzf_(integer m, integer n, doublereal a, integer *
c@427	3844 lda, doublereal tau, doublereal work, integer lwork, integer info);
c@427	3845
c@427	3846 doublereal dzsum1_(integer n, doublecomplex cx, integer *incx);
c@427	3847
c@427	3848 integer icmax1_(integer n, complex cx, integer *incx);
c@427	3849
c@427	3850 integer ieeeck_(integer ispec, real zero, real *one);
c@427	3851
c@427	3852 integer ilaclc_(integer m, integer n, complex a, integer lda);
c@427	3853
c@427	3854 integer ilaclr_(integer m, integer n, complex a, integer lda);
c@427	3855
c@427	3856 integer iladiag_(char *diag);
c@427	3857
c@427	3858 integer iladlc_(integer m, integer n, doublereal a, integer lda);
c@427	3859
c@427	3860 integer iladlr_(integer m, integer n, doublereal a, integer lda);
c@427	3861
c@427	3862 integer ilaenv_(integer ispec, char name__, char opts, integer n1,
c@427	3863 integer n2, integer n3, integer *n4);
c@427	3864
c@427	3865 integer ilaprec_(char *prec);
c@427	3866
c@427	3867 integer ilaslc_(integer m, integer n, real a, integer lda);
c@427	3868
c@427	3869 integer ilaslr_(integer m, integer n, real a, integer lda);
c@427	3870
c@427	3871 integer ilatrans_(char *trans);
c@427	3872
c@427	3873 integer ilauplo_(char *uplo);
c@427	3874
c@427	3875 /* Subroutine / int ilaver_(integer vers_major__, integer *vers_minor__,
c@427	3876 integer *vers_patch__);
c@427	3877
c@427	3878 integer ilazlc_(integer m, integer n, doublecomplex a, integer lda);
c@427	3879
c@427	3880 integer ilazlr_(integer m, integer n, doublecomplex a, integer lda);
c@427	3881
c@427	3882 integer iparmq_(integer ispec, char name__, char opts, integer n, integer
c@427	3883 ilo, integer ihi, integer *lwork);
c@427	3884
c@427	3885 integer izmax1_(integer n, doublecomplex cx, integer *incx);
c@427	3886
c@427	3887 logical lsamen_(integer n, char ca, char *cb);
c@427	3888
c@427	3889 integer smaxloc_(real a, integer dimm);
c@427	3890
c@427	3891 /* Subroutine / int sbdsdc_(char uplo, char compq, integer n, real *d__,
c@427	3892 real e, real u, integer ldu, real vt, integer ldvt, real q,
c@427	3893 integer iq, real work, integer iwork, integer info);
c@427	3894
c@427	3895 /* Subroutine / int sbdsqr_(char uplo, integer n, integer ncvt, integer *
c@427	3896 nru, integer ncc, real d__, real e, real vt, integer ldvt, real
c@427	3897 u, integer ldu, real c__, integer ldc, real work, integer *info);
c@427	3898
c@427	3899 doublereal scsum1_(integer n, complex cx, integer *incx);
c@427	3900
c@427	3901 /* Subroutine / int sdisna_(char job, integer m, integer n, real *d__,
c@427	3902 real sep, integer info);
c@427	3903
c@427	3904 /* Subroutine / int sgbbrd_(char vect, integer m, integer n, integer *ncc,
c@427	3905 integer kl, integer ku, real ab, integer ldab, real d__, real
c@427	3906 e, real q, integer ldq, real pt, integer ldpt, real *c__, integer
c@427	3907 ldc, real work, integer *info);
c@427	3908
c@427	3909 /* Subroutine / int sgbcon_(char norm, integer n, integer kl, integer *ku,
c@427	3910 real ab, integer ldab, integer ipiv, real anorm, real *rcond,
c@427	3911 real work, integer iwork, integer *info);
c@427	3912
c@427	3913 /* Subroutine / int sgbequ_(integer m, integer n, integer kl, integer *ku,
c@427	3914 real ab, integer ldab, real r__, real c__, real rowcnd, real
c@427	3915 colcnd, real amax, integer info);
c@427	3916
c@427	3917 /* Subroutine / int sgbequb_(integer m, integer n, integer kl, integer *
c@427	3918 ku, real ab, integer ldab, real r__, real c__, real *rowcnd, real
c@427	3919 colcnd, real amax, integer *info);
c@427	3920
c@427	3921 /* Subroutine / int sgbrfs_(char trans, integer n, integer kl, integer *
c@427	3922 ku, integer nrhs, real ab, integer ldab, real afb, integer *ldafb,
c@427	3923 integer ipiv, real b, integer ldb, real x, integer ldx, real
c@427	3924 ferr, real berr, real work, integer iwork, integer info);
c@427	3925
c@427	3926 /* Subroutine / int sgbrfsx_(char trans, char equed, integer n, integer *
c@427	3927 kl, integer ku, integer nrhs, real ab, integer ldab, real *afb,
c@427	3928 integer ldafb, integer ipiv, real r__, real c__, real *b, integer
c@427	3929 ldb, real x, integer ldx, real rcond, real berr, integer
c@427	3930 n_err_bnds__, real err_bnds_norm__, real err_bnds_comp__, integer *
c@427	3931 nparams, real params, real work, integer iwork, integer info);
c@427	3932
c@427	3933 /* Subroutine / int sgbsv_(integer n, integer kl, integer ku, integer *
c@427	3934 nrhs, real ab, integer ldab, integer ipiv, real b, integer *ldb,
c@427	3935 integer *info);
c@427	3936
c@427	3937 /* Subroutine / int sgbsvx_(char fact, char trans, integer n, integer *kl,
c@427	3938 integer ku, integer nrhs, real ab, integer ldab, real *afb,
c@427	3939 integer ldafb, integer ipiv, char equed, real r__, real *c__,
c@427	3940 real b, integer ldb, real x, integer ldx, real rcond, real ferr,
c@427	3941 real berr, real work, integer iwork, integer info);
c@427	3942
c@427	3943 /* Subroutine / int sgbsvxx_(char fact, char trans, integer n, integer *
c@427	3944 kl, integer ku, integer nrhs, real ab, integer ldab, real *afb,
c@427	3945 integer ldafb, integer ipiv, char equed, real r__, real *c__,
c@427	3946 real b, integer ldb, real x, integer ldx, real rcond, real
c@427	3947 rpvgrw, real berr, integer n_err_bnds__, real *err_bnds_norm__,
c@427	3948 real err_bnds_comp__, integer nparams, real params, real work,
c@427	3949 integer iwork, integer info);
c@427	3950
c@427	3951 /* Subroutine / int sgbtf2_(integer m, integer n, integer kl, integer *ku,
c@427	3952 real ab, integer ldab, integer ipiv, integer info);
c@427	3953
c@427	3954 /* Subroutine / int sgbtrf_(integer m, integer n, integer kl, integer *ku,
c@427	3955 real ab, integer ldab, integer ipiv, integer info);
c@427	3956
c@427	3957 /* Subroutine / int sgbtrs_(char trans, integer n, integer kl, integer *
c@427	3958 ku, integer nrhs, real ab, integer ldab, integer ipiv, real *b,
c@427	3959 integer ldb, integer info);
c@427	3960
c@427	3961 /* Subroutine / int sgebak_(char job, char side, integer n, integer *ilo,
c@427	3962 integer ihi, real scale, integer m, real v, integer *ldv, integer
c@427	3963 *info);
c@427	3964
c@427	3965 /* Subroutine / int sgebal_(char job, integer n, real a, integer *lda,
c@427	3966 integer ilo, integer ihi, real scale, integer info);
c@427	3967
c@427	3968 /* Subroutine / int sgebd2_(integer m, integer n, real a, integer *lda,
c@427	3969 real d__, real e, real tauq, real taup, real work, integer info);
c@427	3970
c@427	3971 /* Subroutine / int sgebrd_(integer m, integer n, real a, integer *lda,
c@427	3972 real d__, real e, real tauq, real taup, real work, integer
c@427	3973 lwork, integer *info);
c@427	3974
c@427	3975 /* Subroutine / int sgecon_(char norm, integer n, real a, integer *lda,
c@427	3976 real anorm, real rcond, real work, integer iwork, integer *info);
c@427	3977
c@427	3978 /* Subroutine / int sgeequ_(integer m, integer n, real a, integer *lda,
c@427	3979 real r__, real c__, real rowcnd, real colcnd, real *amax, integer
c@427	3980 *info);
c@427	3981
c@427	3982 /* Subroutine / int sgeequb_(integer m, integer n, real a, integer *lda,
c@427	3983 real r__, real c__, real rowcnd, real colcnd, real *amax, integer
c@427	3984 *info);
c@427	3985
c@427	3986 /* Subroutine / int sgees_(char jobvs, char sort, L_fp select, integer n,
c@427	3987 real a, integer lda, integer sdim, real wr, real wi, real vs,
c@427	3988 integer ldvs, real work, integer lwork, logical bwork, integer *
c@427	3989 info);
c@427	3990
c@427	3991 /* Subroutine / int sgeesx_(char jobvs, char sort, L_fp select, char
c@427	3992 sense, integer n, real a, integer lda, integer sdim, real *wr,
c@427	3993 real wi, real vs, integer ldvs, real rconde, real rcondv, real
c@427	3994 work, integer lwork, integer iwork, integer liwork, logical bwork,
c@427	3995 integer *info);
c@427	3996
c@427	3997 /* Subroutine / int sgeev_(char jobvl, char jobvr, integer n, real *a,
c@427	3998 integer lda, real wr, real wi, real vl, integer ldvl, real vr,
c@427	3999 integer ldvr, real work, integer lwork, integer info);
c@427	4000
c@427	4001 /* Subroutine / int sgeevx_(char balanc, char jobvl, char jobvr, char *
c@427	4002 sense, integer n, real a, integer lda, real wr, real wi, real
c@427	4003 vl, integer ldvl, real vr, integer ldvr, integer ilo, integer *
c@427	4004 ihi, real scale, real abnrm, real rconde, real rcondv, real *work,
c@427	4005 integer lwork, integer iwork, integer *info);
c@427	4006
c@427	4007 /* Subroutine / int sgegs_(char jobvsl, char jobvsr, integer n, real *a,
c@427	4008 integer lda, real b, integer ldb, real alphar, real *alphai, real
c@427	4009 beta, real vsl, integer ldvsl, real vsr, integer ldvsr, real
c@427	4010 work, integer lwork, integer info);
c@427	4011
c@427	4012 /* Subroutine / int sgegv_(char jobvl, char jobvr, integer n, real *a,
c@427	4013 integer lda, real b, integer ldb, real alphar, real *alphai, real
c@427	4014 beta, real vl, integer ldvl, real vr, integer ldvr, real work,
c@427	4015 integer lwork, integer info);
c@427	4016
c@427	4017 /* Subroutine / int sgehd2_(integer n, integer ilo, integer ihi, real *a,
c@427	4018 integer lda, real tau, real work, integer info);
c@427	4019
c@427	4020 /* Subroutine / int sgehrd_(integer n, integer ilo, integer ihi, real *a,
c@427	4021 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4022
c@427	4023 /* Subroutine / int sgejsv_(char joba, char jobu, char jobv, char *jobr,
c@427	4024 char jobt, char jobp, integer m, integer n, real a, integer lda,
c@427	4025 real sva, real u, integer ldu, real v, integer ldv, real work,
c@427	4026 integer lwork, integer iwork, integer *info);
c@427	4027
c@427	4028 /* Subroutine / int sgelq2_(integer m, integer n, real a, integer *lda,
c@427	4029 real tau, real work, integer *info);
c@427	4030
c@427	4031 /* Subroutine / int sgelqf_(integer m, integer n, real a, integer *lda,
c@427	4032 real tau, real work, integer lwork, integer info);
c@427	4033
c@427	4034 /* Subroutine / int sgels_(char trans, integer m, integer n, integer *
c@427	4035 nrhs, real a, integer lda, real b, integer ldb, real *work,
c@427	4036 integer lwork, integer info);
c@427	4037
c@427	4038 /* Subroutine / int sgelsd_(integer m, integer n, integer nrhs, real *a,
c@427	4039 integer lda, real b, integer ldb, real s, real rcond, integer
c@427	4040 rank, real work, integer lwork, integer iwork, integer info);
c@427	4041
c@427	4042 /* Subroutine / int sgelss_(integer m, integer n, integer nrhs, real *a,
c@427	4043 integer lda, real b, integer ldb, real s, real rcond, integer
c@427	4044 rank, real work, integer lwork, integer *info);
c@427	4045
c@427	4046 /* Subroutine / int sgelsx_(integer m, integer n, integer nrhs, real *a,
c@427	4047 integer lda, real b, integer ldb, integer jpvt, real *rcond,
c@427	4048 integer rank, real work, integer *info);
c@427	4049
c@427	4050 /* Subroutine / int sgelsy_(integer m, integer n, integer nrhs, real *a,
c@427	4051 integer lda, real b, integer ldb, integer jpvt, real *rcond,
c@427	4052 integer rank, real work, integer lwork, integer info);
c@427	4053
c@427	4054 /* Subroutine / int sgeql2_(integer m, integer n, real a, integer *lda,
c@427	4055 real tau, real work, integer *info);
c@427	4056
c@427	4057 /* Subroutine / int sgeqlf_(integer m, integer n, real a, integer *lda,
c@427	4058 real tau, real work, integer lwork, integer info);
c@427	4059
c@427	4060 /* Subroutine / int sgeqp3_(integer m, integer n, real a, integer *lda,
c@427	4061 integer jpvt, real tau, real work, integer lwork, integer *info);
c@427	4062
c@427	4063 /* Subroutine / int sgeqpf_(integer m, integer n, real a, integer *lda,
c@427	4064 integer jpvt, real tau, real work, integer info);
c@427	4065
c@427	4066 /* Subroutine / int sgeqr2_(integer m, integer n, real a, integer *lda,
c@427	4067 real tau, real work, integer *info);
c@427	4068
c@427	4069 /* Subroutine / int sgeqrf_(integer m, integer n, real a, integer *lda,
c@427	4070 real tau, real work, integer lwork, integer info);
c@427	4071
c@427	4072 /* Subroutine / int sgerfs_(char trans, integer n, integer nrhs, real *a,
c@427	4073 integer lda, real af, integer ldaf, integer ipiv, real *b,
c@427	4074 integer ldb, real x, integer ldx, real ferr, real berr, real
c@427	4075 work, integer iwork, integer info);
c@427	4076
c@427	4077 /* Subroutine / int sgerfsx_(char trans, char equed, integer n, integer *
c@427	4078 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	4079 real r__, real c__, real b, integer ldb, real x, integer ldx,
c@427	4080 real rcond, real berr, integer n_err_bnds__, real err_bnds_norm__,
c@427	4081 real err_bnds_comp__, integer nparams, real params, real work,
c@427	4082 integer iwork, integer info);
c@427	4083
c@427	4084 /* Subroutine / int sgerq2_(integer m, integer n, real a, integer *lda,
c@427	4085 real tau, real work, integer *info);
c@427	4086
c@427	4087 /* Subroutine / int sgerqf_(integer m, integer n, real a, integer *lda,
c@427	4088 real tau, real work, integer lwork, integer info);
c@427	4089
c@427	4090 /* Subroutine / int sgesc2_(integer n, real a, integer lda, real *rhs,
c@427	4091 integer ipiv, integer jpiv, real *scale);
c@427	4092
c@427	4093 /* Subroutine / int sgesdd_(char jobz, integer m, integer n, real *a,
c@427	4094 integer lda, real s, real u, integer ldu, real vt, integer ldvt,
c@427	4095 real work, integer lwork, integer iwork, integer info);
c@427	4096
c@427	4097 /* Subroutine / int sgesv_(integer n, integer nrhs, real a, integer *lda,
c@427	4098 integer ipiv, real b, integer ldb, integer info);
c@427	4099
c@427	4100 /* Subroutine / int sgesvd_(char jobu, char jobvt, integer m, integer *n,
c@427	4101 real a, integer lda, real s, real u, integer ldu, real vt,
c@427	4102 integer ldvt, real work, integer lwork, integer info);
c@427	4103
c@427	4104 /* Subroutine / int sgesvj_(char joba, char jobu, char jobv, integer *m,
c@427	4105 integer n, real a, integer lda, real sva, integer mv, real v,
c@427	4106 integer ldv, real work, integer lwork, integer info);
c@427	4107
c@427	4108 /* Subroutine / int sgesvx_(char fact, char trans, integer n, integer *
c@427	4109 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	4110 char equed, real r__, real c__, real b, integer ldb, real x,
c@427	4111 integer ldx, real rcond, real ferr, real berr, real *work,
c@427	4112 integer iwork, integer info);
c@427	4113
c@427	4114 /* Subroutine / int sgesvxx_(char fact, char trans, integer n, integer *
c@427	4115 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	4116 char equed, real r__, real c__, real b, integer ldb, real x,
c@427	4117 integer ldx, real rcond, real rpvgrw, real berr, integer *
c@427	4118 n_err_bnds__, real err_bnds_norm__, real err_bnds_comp__, integer *
c@427	4119 nparams, real params, real work, integer iwork, integer info);
c@427	4120
c@427	4121 /* Subroutine / int sgetc2_(integer n, real a, integer lda, integer *ipiv,
c@427	4122 integer jpiv, integer info);
c@427	4123
c@427	4124 /* Subroutine / int sgetf2_(integer m, integer n, real a, integer *lda,
c@427	4125 integer ipiv, integer info);
c@427	4126
c@427	4127 /* Subroutine / int sgetrf_(integer m, integer n, real a, integer *lda,
c@427	4128 integer ipiv, integer info);
c@427	4129
c@427	4130 /* Subroutine / int sgetri_(integer n, real a, integer lda, integer *ipiv,
c@427	4131 real work, integer lwork, integer *info);
c@427	4132
c@427	4133 /* Subroutine / int sgetrs_(char trans, integer n, integer nrhs, real *a,
c@427	4134 integer lda, integer ipiv, real b, integer ldb, integer *info);
c@427	4135
c@427	4136 /* Subroutine / int sggbak_(char job, char side, integer n, integer *ilo,
c@427	4137 integer ihi, real lscale, real rscale, integer m, real *v,
c@427	4138 integer ldv, integer info);
c@427	4139
c@427	4140 /* Subroutine / int sggbal_(char job, integer n, real a, integer *lda,
c@427	4141 real b, integer ldb, integer ilo, integer ihi, real *lscale, real
c@427	4142 rscale, real work, integer *info);
c@427	4143
c@427	4144 /* Subroutine / int sgges_(char jobvsl, char jobvsr, char sort, L_fp
c@427	4145 selctg, integer n, real a, integer lda, real b, integer *ldb,
c@427	4146 integer sdim, real alphar, real alphai, real beta, real *vsl,
c@427	4147 integer ldvsl, real vsr, integer ldvsr, real work, integer *lwork,
c@427	4148 logical bwork, integer info);
c@427	4149
c@427	4150 /* Subroutine / int sggesx_(char jobvsl, char jobvsr, char sort, L_fp
c@427	4151 selctg, char sense, integer n, real a, integer lda, real *b,
c@427	4152 integer ldb, integer sdim, real alphar, real alphai, real *beta,
c@427	4153 real vsl, integer ldvsl, real vsr, integer ldvsr, real *rconde,
c@427	4154 real rcondv, real work, integer lwork, integer iwork, integer *
c@427	4155 liwork, logical bwork, integer info);
c@427	4156
c@427	4157 /* Subroutine / int sggev_(char jobvl, char jobvr, integer n, real *a,
c@427	4158 integer lda, real b, integer ldb, real alphar, real *alphai, real
c@427	4159 beta, real vl, integer ldvl, real vr, integer ldvr, real work,
c@427	4160 integer lwork, integer info);
c@427	4161
c@427	4162 /* Subroutine / int sggevx_(char balanc, char jobvl, char jobvr, char *
c@427	4163 sense, integer n, real a, integer lda, real b, integer *ldb, real
c@427	4164 alphar, real alphai, real beta, real vl, integer ldvl, real vr,
c@427	4165 integer ldvr, integer ilo, integer ihi, real lscale, real *rscale,
c@427	4166 real abnrm, real bbnrm, real rconde, real rcondv, real *work,
c@427	4167 integer lwork, integer iwork, logical bwork, integer info);
c@427	4168
c@427	4169 /* Subroutine / int sggglm_(integer n, integer m, integer p, real *a,
c@427	4170 integer lda, real b, integer ldb, real d__, real x, real y,
c@427	4171 real work, integer lwork, integer *info);
c@427	4172
c@427	4173 /* Subroutine / int sgghrd_(char compq, char compz, integer n, integer *
c@427	4174 ilo, integer ihi, real a, integer lda, real b, integer *ldb, real
c@427	4175 q, integer ldq, real z__, integer ldz, integer *info);
c@427	4176
c@427	4177 /* Subroutine / int sgglse_(integer m, integer n, integer p, real *a,
c@427	4178 integer lda, real b, integer ldb, real c__, real d__, real x,
c@427	4179 real work, integer lwork, integer *info);
c@427	4180
c@427	4181 /* Subroutine / int sggqrf_(integer n, integer m, integer p, real *a,
c@427	4182 integer lda, real taua, real b, integer ldb, real taub, real
c@427	4183 work, integer lwork, integer info);
c@427	4184
c@427	4185 /* Subroutine / int sggrqf_(integer m, integer p, integer n, real *a,
c@427	4186 integer lda, real taua, real b, integer ldb, real taub, real
c@427	4187 work, integer lwork, integer info);
c@427	4188
c@427	4189 /* Subroutine / int sggsvd_(char jobu, char jobv, char jobq, integer *m,
c@427	4190 integer n, integer p, integer k, integer l, real a, integer lda,
c@427	4191 real b, integer ldb, real alpha, real beta, real u, integer
c@427	4192 ldu, real v, integer ldv, real q, integer ldq, real *work,
c@427	4193 integer iwork, integer info);
c@427	4194
c@427	4195 /* Subroutine / int sggsvp_(char jobu, char jobv, char jobq, integer *m,
c@427	4196 integer p, integer n, real a, integer lda, real b, integer ldb,
c@427	4197 real tola, real tolb, integer k, integer l, real u, integer ldu,
c@427	4198 real v, integer ldv, real q, integer ldq, integer iwork, real
c@427	4199 tau, real work, integer info);
c@427	4200
c@427	4201 /* Subroutine / int sgsvj0_(char jobv, integer m, integer n, real *a,
c@427	4202 integer lda, real d__, real sva, integer mv, real v, integer
c@427	4203 ldv, real eps, real sfmin, real tol, integer nsweep, real *work,
c@427	4204 integer lwork, integer info);
c@427	4205
c@427	4206 /* Subroutine / int sgsvj1_(char jobv, integer m, integer n, integer *n1,
c@427	4207 real a, integer lda, real d__, real sva, integer mv, real v,
c@427	4208 integer ldv, real eps, real sfmin, real tol, integer *nsweep,
c@427	4209 real work, integer lwork, integer *info);
c@427	4210
c@427	4211 /* Subroutine / int sgtcon_(char norm, integer n, real dl, real *d__,
c@427	4212 real du, real du2, integer ipiv, real anorm, real rcond, real
c@427	4213 work, integer iwork, integer info);
c@427	4214
c@427	4215 /* Subroutine / int sgtrfs_(char trans, integer n, integer nrhs, real *dl,
c@427	4216 real d__, real du, real dlf, real df, real duf, real du2,
c@427	4217 integer ipiv, real b, integer ldb, real x, integer ldx, real
c@427	4218 ferr, real berr, real work, integer iwork, integer info);
c@427	4219
c@427	4220 /* Subroutine / int sgtsv_(integer n, integer nrhs, real dl, real *d__,
c@427	4221 real du, real b, integer ldb, integer info);
c@427	4222
c@427	4223 /* Subroutine / int sgtsvx_(char fact, char trans, integer n, integer *
c@427	4224 nrhs, real dl, real d__, real du, real dlf, real df, real duf,
c@427	4225 real du2, integer ipiv, real b, integer ldb, real x, integer
c@427	4226 ldx, real rcond, real ferr, real berr, real work, integer *iwork,
c@427	4227 integer *info);
c@427	4228
c@427	4229 /* Subroutine / int sgttrf_(integer n, real dl, real d__, real du, real
c@427	4230 du2, integer ipiv, integer info);
c@427	4231
c@427	4232 /* Subroutine / int sgttrs_(char trans, integer n, integer nrhs, real *dl,
c@427	4233 real d__, real du, real du2, integer ipiv, real b, integer ldb,
c@427	4234 integer *info);
c@427	4235
c@427	4236 /* Subroutine / int sgtts2_(integer itrans, integer n, integer nrhs, real
c@427	4237 dl, real d__, real du, real du2, integer ipiv, real b, integer *
c@427	4238 ldb);
c@427	4239
c@427	4240 /* Subroutine / int shgeqz_(char job, char compq, char compz, integer *n,
c@427	4241 integer ilo, integer ihi, real h__, integer ldh, real *t, integer
c@427	4242 ldt, real alphar, real alphai, real beta, real q, integer ldq,
c@427	4243 real z__, integer ldz, real work, integer lwork, integer *info);
c@427	4244
c@427	4245 /* Subroutine / int shsein_(char side, char eigsrc, char initv, logical *
c@427	4246 select, integer n, real h__, integer ldh, real wr, real *wi, real
c@427	4247 vl, integer ldvl, real vr, integer ldvr, integer mm, integer m,
c@427	4248 real work, integer ifaill, integer ifailr, integer info);
c@427	4249
c@427	4250 /* Subroutine / int shseqr_(char job, char compz, integer n, integer *ilo,
c@427	4251 integer ihi, real h__, integer ldh, real wr, real wi, real z__,
c@427	4252 integer ldz, real work, integer lwork, integer info);
c@427	4253
c@427	4254 logical sisnan_(real *sin__);
c@427	4255
c@427	4256 /* Subroutine / int sla_gbamv__(integer trans, integer m, integer n,
c@427	4257 integer kl, integer ku, real alpha, real ab, integer ldab, real
c@427	4258 x, integer incx, real beta, real y, integer incy);
c@427	4259
c@427	4260 doublereal sla_gbrcond__(char trans, integer n, integer kl, integer ku,
c@427	4261 real ab, integer ldab, real afb, integer ldafb, integer *ipiv,
c@427	4262 integer cmode, real c__, integer info, real work, integer *iwork,
c@427	4263 ftnlen trans_len);
c@427	4264
c@427	4265 /* Subroutine / int sla_gbrfsx_extended__(integer prec_type__, integer *
c@427	4266 trans_type__, integer n, integer kl, integer ku, integer nrhs,
c@427	4267 real ab, integer ldab, real afb, integer ldafb, integer *ipiv,
c@427	4268 logical colequ, real c__, real b, integer ldb, real y, integer
c@427	4269 ldy, real berr_out__, integer n_norms__, real errs_n__, real
c@427	4270 errs_c__, real res, real ayb, real dy, real y_tail__, real *rcond,
c@427	4271 integer ithresh, real rthresh, real dz_ub__, logical
c@427	4272 ignore_cwise__, integer *info);
c@427	4273
c@427	4274 doublereal sla_gbrpvgrw__(integer n, integer kl, integer ku, integer
c@427	4275 ncols, real ab, integer ldab, real afb, integer ldafb);
c@427	4276
c@427	4277 /* Subroutine / int sla_geamv__(integer trans, integer m, integer n, real
c@427	4278 alpha, real a, integer lda, real x, integer incx, real beta,
c@427	4279 real y, integer incy);
c@427	4280
c@427	4281 doublereal sla_gercond__(char trans, integer n, real a, integer lda, real
c@427	4282 af, integer ldaf, integer ipiv, integer cmode, real *c__, integer
c@427	4283 info, real work, integer *iwork, ftnlen trans_len);
c@427	4284
c@427	4285 /* Subroutine / int sla_gerfsx_extended__(integer prec_type__, integer *
c@427	4286 trans_type__, integer n, integer nrhs, real a, integer lda, real *
c@427	4287 af, integer ldaf, integer ipiv, logical colequ, real c__, real *b,
c@427	4288 integer ldb, real y, integer ldy, real berr_out__, integer *
c@427	4289 n_norms__, real errs_n__, real errs_c__, real res, real ayb, real
c@427	4290 dy, real y_tail__, real rcond, integer ithresh, real *rthresh,
c@427	4291 real dz_ub__, logical ignore_cwise__, integer *info);
c@427	4292
c@427	4293 /* Subroutine / int sla_lin_berr__(integer n, integer nz, integer nrhs,
c@427	4294 real res, real ayb, real *berr);
c@427	4295
c@427	4296 doublereal sla_porcond__(char uplo, integer n, real a, integer lda, real *
c@427	4297 af, integer ldaf, integer cmode, real c__, integer info, real *
c@427	4298 work, integer *iwork, ftnlen uplo_len);
c@427	4299
c@427	4300 /* Subroutine / int sla_porfsx_extended__(integer prec_type__, char *uplo,
c@427	4301 integer n, integer nrhs, real a, integer lda, real af, integer
c@427	4302 ldaf, logical colequ, real c__, real b, integer ldb, real *y,
c@427	4303 integer ldy, real berr_out__, integer n_norms__, real errs_n__,
c@427	4304 real errs_c__, real res, real ayb, real dy, real y_tail__, real
c@427	4305 rcond, integer ithresh, real rthresh, real dz_ub__, logical
c@427	4306 ignore_cwise__, integer *info, ftnlen uplo_len);
c@427	4307
c@427	4308 doublereal sla_porpvgrw__(char uplo, integer ncols, real a, integer lda,
c@427	4309 real af, integer ldaf, real *work, ftnlen uplo_len);
c@427	4310
c@427	4311 doublereal sla_rpvgrw__(integer n, integer ncols, real a, integer lda,
c@427	4312 real af, integer ldaf);
c@427	4313
c@427	4314 /* Subroutine / int sla_syamv__(integer uplo, integer n, real alpha, real
c@427	4315 a, integer lda, real x, integer incx, real beta, real y,
c@427	4316 integer *incy);
c@427	4317
c@427	4318 doublereal sla_syrcond__(char uplo, integer n, real a, integer lda, real *
c@427	4319 af, integer ldaf, integer ipiv, integer cmode, real c__, integer *
c@427	4320 info, real work, integer iwork, ftnlen uplo_len);
c@427	4321
c@427	4322 /* Subroutine / int sla_syrfsx_extended__(integer prec_type__, char *uplo,
c@427	4323 integer n, integer nrhs, real a, integer lda, real af, integer
c@427	4324 ldaf, integer ipiv, logical colequ, real c__, real b, integer *
c@427	4325 ldb, real y, integer ldy, real berr_out__, integer n_norms__,
c@427	4326 real errs_n__, real errs_c__, real res, real ayb, real dy, real
c@427	4327 y_tail__, real rcond, integer ithresh, real rthresh, real dz_ub__,
c@427	4328 logical ignore_cwise__, integer info, ftnlen uplo_len);
c@427	4329
c@427	4330 doublereal sla_syrpvgrw__(char uplo, integer n, integer info, real a,
c@427	4331 integer lda, real af, integer ldaf, integer ipiv, real *work,
c@427	4332 ftnlen uplo_len);
c@427	4333
c@427	4334 /* Subroutine / int sla_wwaddw__(integer n, real x, real y, real *w);
c@427	4335
c@427	4336 /* Subroutine / int slabad_(real small, real *large);
c@427	4337
c@427	4338 /* Subroutine / int slabrd_(integer m, integer n, integer nb, real *a,
c@427	4339 integer lda, real d__, real e, real tauq, real taup, real x,
c@427	4340 integer ldx, real y, integer *ldy);
c@427	4341
c@427	4342 /* Subroutine / int slacn2_(integer n, real v, real x, integer *isgn,
c@427	4343 real est, integer kase, integer *isave);
c@427	4344
c@427	4345 /* Subroutine / int slacon_(integer n, real v, real x, integer *isgn,
c@427	4346 real est, integer kase);
c@427	4347
c@427	4348 /* Subroutine / int slacpy_(char uplo, integer m, integer n, real *a,
c@427	4349 integer lda, real b, integer *ldb);
c@427	4350
c@427	4351 /* Subroutine / int sladiv_(real a, real b, real c__, real d__, real p,
c@427	4352 real *q);
c@427	4353
c@427	4354 /* Subroutine / int slae2_(real a, real b, real c__, real rt1, real rt2);
c@427	4355
c@427	4356 /* Subroutine / int slaebz_(integer ijob, integer nitmax, integer n,
c@427	4357 integer mmax, integer minp, integer nbmin, real abstol, real *
c@427	4358 reltol, real pivmin, real d__, real e, real e2, integer *nval,
c@427	4359 real ab, real c__, integer mout, integer nab, real *work, integer
c@427	4360 iwork, integer info);
c@427	4361
c@427	4362 /* Subroutine / int slaed0_(integer icompq, integer qsiz, integer n, real
c@427	4363 d__, real e, real q, integer ldq, real qstore, integer ldqs,
c@427	4364 real work, integer iwork, integer *info);
c@427	4365
c@427	4366 /* Subroutine / int slaed1_(integer n, real d__, real q, integer *ldq,
c@427	4367 integer indxq, real rho, integer cutpnt, real work, integer *
c@427	4368 iwork, integer *info);
c@427	4369
c@427	4370 /* Subroutine / int slaed2_(integer k, integer n, integer n1, real *d__,
c@427	4371 real q, integer ldq, integer indxq, real rho, real z__, real
c@427	4372 dlamda, real w, real q2, integer indx, integer indxc, integer *
c@427	4373 indxp, integer coltyp, integer info);
c@427	4374
c@427	4375 /* Subroutine / int slaed3_(integer k, integer n, integer n1, real *d__,
c@427	4376 real q, integer ldq, real rho, real dlamda, real q2, integer
c@427	4377 indx, integer ctot, real w, real s, integer info);
c@427	4378
c@427	4379 /* Subroutine / int slaed4_(integer n, integer i__, real d__, real *z__,
c@427	4380 real delta, real rho, real dlam, integer info);
c@427	4381
c@427	4382 /* Subroutine / int slaed5_(integer i__, real d__, real z__, real *delta,
c@427	4383 real rho, real dlam);
c@427	4384
c@427	4385 /* Subroutine / int slaed6_(integer kniter, logical orgati, real rho,
c@427	4386 real d__, real z__, real finit, real tau, integer *info);
c@427	4387
c@427	4388 /* Subroutine / int slaed7_(integer icompq, integer n, integer qsiz,
c@427	4389 integer tlvls, integer curlvl, integer curpbm, real d__, real *q,
c@427	4390 integer ldq, integer indxq, real rho, integer cutpnt, real *
c@427	4391 qstore, integer qptr, integer prmptr, integer perm, integer
c@427	4392 givptr, integer givcol, real givnum, real work, integer iwork,
c@427	4393 integer *info);
c@427	4394
c@427	4395 /* Subroutine / int slaed8_(integer icompq, integer k, integer n, integer
c@427	4396 qsiz, real d__, real q, integer ldq, integer indxq, real rho,
c@427	4397 integer cutpnt, real z__, real dlamda, real q2, integer *ldq2,
c@427	4398 real w, integer perm, integer givptr, integer givcol, real *
c@427	4399 givnum, integer indxp, integer indx, integer *info);
c@427	4400
c@427	4401 /* Subroutine / int slaed9_(integer k, integer kstart, integer kstop,
c@427	4402 integer n, real d__, real q, integer ldq, real rho, real dlamda,
c@427	4403 real w, real s, integer lds, integer info);
c@427	4404
c@427	4405 /* Subroutine / int slaeda_(integer n, integer tlvls, integer curlvl,
c@427	4406 integer curpbm, integer prmptr, integer perm, integer givptr,
c@427	4407 integer givcol, real givnum, real q, integer qptr, real *z__,
c@427	4408 real ztemp, integer info);
c@427	4409
c@427	4410 /* Subroutine / int slaein_(logical rightv, logical noinit, integer n,
c@427	4411 real h__, integer ldh, real wr, real wi, real vr, real vi, real
c@427	4412 b, integer ldb, real work, real eps3, real smlnum, real bignum,
c@427	4413 integer *info);
c@427	4414
c@427	4415 /* Subroutine / int slaev2_(real a, real b, real c__, real rt1, real
c@427	4416 rt2, real cs1, real sn1);
c@427	4417
c@427	4418 /* Subroutine / int slaexc_(logical wantq, integer n, real t, integer *
c@427	4419 ldt, real q, integer ldq, integer j1, integer n1, integer *n2,
c@427	4420 real work, integer info);
c@427	4421
c@427	4422 /* Subroutine / int slag2_(real a, integer lda, real b, integer *ldb,
c@427	4423 real safmin, real scale1, real scale2, real wr1, real wr2, real
c@427	4424 wi);
c@427	4425
c@427	4426 /* Subroutine / int slag2d_(integer m, integer n, real sa, integer *ldsa,
c@427	4427 doublereal a, integer lda, integer *info);
c@427	4428
c@427	4429 /* Subroutine / int slags2_(logical upper, real a1, real a2, real *a3,
c@427	4430 real b1, real b2, real b3, real csu, real snu, real csv, real *
c@427	4431 snv, real csq, real snq);
c@427	4432
c@427	4433 /* Subroutine / int slagtf_(integer n, real a, real lambda, real *b, real
c@427	4434 c__, real tol, real d__, integer in, integer *info);
c@427	4435
c@427	4436 /* Subroutine / int slagtm_(char trans, integer n, integer nrhs, real *
c@427	4437 alpha, real dl, real d__, real du, real x, integer ldx, real
c@427	4438 beta, real b, integer ldb);
c@427	4439
c@427	4440 /* Subroutine / int slagts_(integer job, integer n, real a, real *b, real
c@427	4441 c__, real d__, integer in, real y, real tol, integer info);
c@427	4442
c@427	4443 /* Subroutine / int slagv2_(real a, integer lda, real b, integer *ldb,
c@427	4444 real alphar, real alphai, real beta, real csl, real snl, real
c@427	4445 csr, real *snr);
c@427	4446
c@427	4447 /* Subroutine / int slahqr_(logical wantt, logical wantz, integer n,
c@427	4448 integer ilo, integer ihi, real h__, integer ldh, real wr, real
c@427	4449 wi, integer iloz, integer ihiz, real z__, integer ldz, integer *
c@427	4450 info);
c@427	4451
c@427	4452 /* Subroutine / int slahr2_(integer n, integer k, integer nb, real *a,
c@427	4453 integer lda, real tau, real t, integer ldt, real y, integer ldy);
c@427	4454
c@427	4455 /* Subroutine / int slahrd_(integer n, integer k, integer nb, real *a,
c@427	4456 integer lda, real tau, real t, integer ldt, real y, integer ldy);
c@427	4457
c@427	4458 /* Subroutine / int slaic1_(integer job, integer j, real x, real *sest,
c@427	4459 real w, real gamma, real sestpr, real s, real *c__);
c@427	4460
c@427	4461 logical slaisnan_(real sin1, real sin2);
c@427	4462
c@427	4463 /* Subroutine / int slaln2_(logical ltrans, integer na, integer nw, real *
c@427	4464 smin, real ca, real a, integer lda, real d1, real d2, real b,
c@427	4465 integer ldb, real wr, real wi, real x, integer ldx, real scale,
c@427	4466 real xnorm, integer info);
c@427	4467
c@427	4468 /* Subroutine / int slals0_(integer icompq, integer nl, integer nr,
c@427	4469 integer sqre, integer nrhs, real b, integer ldb, real *bx,
c@427	4470 integer ldbx, integer perm, integer givptr, integer givcol,
c@427	4471 integer ldgcol, real givnum, integer ldgnum, real poles, real *
c@427	4472 difl, real difr, real z__, integer k, real c__, real s, real
c@427	4473 work, integer *info);
c@427	4474
c@427	4475 /* Subroutine / int slalsa_(integer icompq, integer smlsiz, integer n,
c@427	4476 integer nrhs, real b, integer ldb, real bx, integer ldbx, real
c@427	4477 u, integer ldu, real vt, integer k, real difl, real difr, real
c@427	4478 z__, real poles, integer givptr, integer givcol, integer ldgcol,
c@427	4479 integer perm, real givnum, real c__, real s, real work, integer
c@427	4480 iwork, integer *info);
c@427	4481
c@427	4482 /* Subroutine / int slalsd_(char uplo, integer smlsiz, integer n, integer
c@427	4483 nrhs, real d__, real e, real b, integer ldb, real rcond,
c@427	4484 integer rank, real work, integer iwork, integer info);
c@427	4485
c@427	4486 /* Subroutine / int slamrg_(integer n1, integer n2, real a, integer *
c@427	4487 strd1, integer strd2, integer index);
c@427	4488
c@427	4489 integer slaneg_(integer n, real d__, real lld, real sigma, real *pivmin,
c@427	4490 integer *r__);
c@427	4491
c@427	4492 doublereal slangb_(char norm, integer n, integer kl, integer ku, real *ab,
c@427	4493 integer ldab, real work);
c@427	4494
c@427	4495 doublereal slange_(char norm, integer m, integer n, real a, integer *lda,
c@427	4496 real *work);
c@427	4497
c@427	4498 doublereal slangt_(char norm, integer n, real dl, real d__, real *du);
c@427	4499
c@427	4500 doublereal slanhs_(char norm, integer n, real a, integer lda, real *work);
c@427	4501
c@427	4502 doublereal slansb_(char norm, char uplo, integer n, integer k, real *ab,
c@427	4503 integer ldab, real work);
c@427	4504
c@427	4505 doublereal slansf_(char norm, char transr, char uplo, integer n, real *a,
c@427	4506 real *work);
c@427	4507
c@427	4508 doublereal slansp_(char norm, char uplo, integer n, real ap, real *work);
c@427	4509
c@427	4510 doublereal slanst_(char norm, integer n, real d__, real e);
c@427	4511
c@427	4512 doublereal slansy_(char norm, char uplo, integer n, real a, integer *lda,
c@427	4513 real *work);
c@427	4514
c@427	4515 doublereal slantb_(char norm, char uplo, char diag, integer n, integer *k,
c@427	4516 real ab, integer ldab, real *work);
c@427	4517
c@427	4518 doublereal slantp_(char norm, char uplo, char diag, integer n, real *ap,
c@427	4519 real *work);
c@427	4520
c@427	4521 doublereal slantr_(char norm, char uplo, char diag, integer m, integer *n,
c@427	4522 real a, integer lda, real *work);
c@427	4523
c@427	4524 /* Subroutine / int slanv2_(real a, real b, real c__, real d__, real
c@427	4525 rt1r, real rt1i, real rt2r, real rt2i, real cs, real *sn);
c@427	4526
c@427	4527 /* Subroutine / int slapll_(integer n, real x, integer incx, real *y,
c@427	4528 integer incy, real ssmin);
c@427	4529
c@427	4530 /* Subroutine / int slapmt_(logical forwrd, integer m, integer n, real *x,
c@427	4531 integer ldx, integer k);
c@427	4532
c@427	4533 doublereal slapy2_(real x, real y);
c@427	4534
c@427	4535 doublereal slapy3_(real x, real y, real *z__);
c@427	4536
c@427	4537 /* Subroutine / int slaqgb_(integer m, integer n, integer kl, integer *ku,
c@427	4538 real ab, integer ldab, real r__, real c__, real rowcnd, real
c@427	4539 colcnd, real amax, char equed);
c@427	4540
c@427	4541 /* Subroutine / int slaqge_(integer m, integer n, real a, integer *lda,
c@427	4542 real r__, real c__, real rowcnd, real colcnd, real amax, char
c@427	4543 equed);
c@427	4544
c@427	4545 /* Subroutine / int slaqp2_(integer m, integer n, integer offset, real *a,
c@427	4546 integer lda, integer jpvt, real tau, real vn1, real vn2, real
c@427	4547 work);
c@427	4548
c@427	4549 /* Subroutine / int slaqps_(integer m, integer n, integer offset, integer
c@427	4550 nb, integer kb, real a, integer lda, integer jpvt, real tau,
c@427	4551 real vn1, real vn2, real auxv, real f, integer *ldf);
c@427	4552
c@427	4553 /* Subroutine / int slaqr0_(logical wantt, logical wantz, integer n,
c@427	4554 integer ilo, integer ihi, real h__, integer ldh, real wr, real
c@427	4555 wi, integer iloz, integer ihiz, real z__, integer ldz, real *work,
c@427	4556 integer lwork, integer info);
c@427	4557
c@427	4558 /* Subroutine / int slaqr1_(integer n, real h__, integer ldh, real *sr1,
c@427	4559 real si1, real sr2, real si2, real v);
c@427	4560
c@427	4561 /* Subroutine / int slaqr2_(logical wantt, logical wantz, integer n,
c@427	4562 integer ktop, integer kbot, integer nw, real h__, integer *ldh,
c@427	4563 integer iloz, integer ihiz, real z__, integer ldz, integer *ns,
c@427	4564 integer nd, real sr, real si, real v, integer ldv, integer nh,
c@427	4565 real t, integer ldt, integer nv, real wv, integer ldwv, real
c@427	4566 work, integer *lwork);
c@427	4567
c@427	4568 /* Subroutine / int slaqr3_(logical wantt, logical wantz, integer n,
c@427	4569 integer ktop, integer kbot, integer nw, real h__, integer *ldh,
c@427	4570 integer iloz, integer ihiz, real z__, integer ldz, integer *ns,
c@427	4571 integer nd, real sr, real si, real v, integer ldv, integer nh,
c@427	4572 real t, integer ldt, integer nv, real wv, integer ldwv, real
c@427	4573 work, integer *lwork);
c@427	4574
c@427	4575 /* Subroutine / int slaqr4_(logical wantt, logical wantz, integer n,
c@427	4576 integer ilo, integer ihi, real h__, integer ldh, real wr, real
c@427	4577 wi, integer iloz, integer ihiz, real z__, integer ldz, real *work,
c@427	4578 integer lwork, integer info);
c@427	4579
c@427	4580 /* Subroutine / int slaqr5_(logical wantt, logical wantz, integer kacc22,
c@427	4581 integer n, integer ktop, integer kbot, integer nshfts, real *sr,
c@427	4582 real si, real h__, integer ldh, integer iloz, integer *ihiz, real
c@427	4583 z__, integer ldz, real v, integer ldv, real u, integer ldu,
c@427	4584 integer nv, real wv, integer ldwv, integer nh, real wh, integer
c@427	4585 ldwh);
c@427	4586
c@427	4587 /* Subroutine / int slaqsb_(char uplo, integer n, integer kd, real *ab,
c@427	4588 integer ldab, real s, real scond, real amax, char *equed);
c@427	4589
c@427	4590 /* Subroutine / int slaqsp_(char uplo, integer n, real ap, real s, real
c@427	4591 scond, real amax, char equed);
c@427	4592
c@427	4593 /* Subroutine / int slaqsy_(char uplo, integer n, real a, integer *lda,
c@427	4594 real s, real scond, real amax, char equed);
c@427	4595
c@427	4596 /* Subroutine / int slaqtr_(logical ltran, logical lreal, integer n, real
c@427	4597 t, integer ldt, real b, real w, real scale, real x, real *work,
c@427	4598 integer *info);
c@427	4599
c@427	4600 /* Subroutine / int slar1v_(integer n, integer b1, integer bn, real *
c@427	4601 lambda, real d__, real l, real ld, real lld, real pivmin, real
c@427	4602 gaptol, real z__, logical wantnc, integer negcnt, real ztz, real *
c@427	4603 mingma, integer r__, integer isuppz, real nrminv, real resid,
c@427	4604 real rqcorr, real work);
c@427	4605
c@427	4606 /* Subroutine / int slar2v_(integer n, real x, real y, real *z__, integer
c@427	4607 incx, real c__, real s, integer incc);
c@427	4608
c@427	4609 /* Subroutine / int slarf_(char side, integer m, integer n, real *v,
c@427	4610 integer incv, real tau, real c__, integer ldc, real *work);
c@427	4611
c@427	4612 /* Subroutine / int slarfb_(char side, char trans, char direct, char *
c@427	4613 storev, integer m, integer n, integer k, real v, integer *ldv,
c@427	4614 real t, integer ldt, real c__, integer ldc, real work, integer
c@427	4615 ldwork);
c@427	4616
c@427	4617 /* Subroutine / int slarfg_(integer n, real alpha, real x, integer *incx,
c@427	4618 real *tau);
c@427	4619
c@427	4620 /* Subroutine / int slarfp_(integer n, real alpha, real x, integer *incx,
c@427	4621 real *tau);
c@427	4622
c@427	4623 /* Subroutine / int slarft_(char direct, char storev, integer n, integer *
c@427	4624 k, real v, integer ldv, real tau, real t, integer *ldt);
c@427	4625
c@427	4626 /* Subroutine / int slarfx_(char side, integer m, integer n, real *v,
c@427	4627 real tau, real c__, integer ldc, real work);
c@427	4628
c@427	4629 /* Subroutine / int slargv_(integer n, real x, integer incx, real *y,
c@427	4630 integer incy, real c__, integer *incc);
c@427	4631
c@427	4632 /* Subroutine / int slarnv_(integer idist, integer iseed, integer n, real
c@427	4633 *x);
c@427	4634
c@427	4635 /* Subroutine / int slarra_(integer n, real d__, real e, real e2, real
c@427	4636 spltol, real tnrm, integer nsplit, integer isplit, integer info);
c@427	4637
c@427	4638 /* Subroutine / int slarrb_(integer n, real d__, real lld, integer *
c@427	4639 ifirst, integer ilast, real rtol1, real rtol2, integer offset,
c@427	4640 real w, real wgap, real werr, real work, integer iwork, real
c@427	4641 pivmin, real spdiam, integer twist, integer *info);
c@427	4642
c@427	4643 /* Subroutine / int slarrc_(char jobt, integer n, real vl, real *vu, real
c@427	4644 d__, real e, real pivmin, integer eigcnt, integer lcnt, integer
c@427	4645 rcnt, integer *info);
c@427	4646
c@427	4647 /* Subroutine / int slarrd_(char range, char order, integer n, real *vl,
c@427	4648 real vu, integer il, integer iu, real gers, real reltol, real
c@427	4649 d__, real e, real e2, real pivmin, integer nsplit, integer *
c@427	4650 isplit, integer m, real w, real werr, real wl, real wu, integer
c@427	4651 iblock, integer indexw, real work, integer iwork, integer info);
c@427	4652
c@427	4653 /* Subroutine / int slarre_(char range, integer n, real vl, real *vu,
c@427	4654 integer il, integer iu, real d__, real e, real e2, real rtol1,
c@427	4655 real rtol2, real spltol, integer nsplit, integer isplit, integer *
c@427	4656 m, real w, real werr, real wgap, integer iblock, integer *indexw,
c@427	4657 real gers, real pivmin, real work, integer iwork, integer *info);
c@427	4658
c@427	4659 /* Subroutine / int slarrf_(integer n, real d__, real l, real *ld,
c@427	4660 integer clstrt, integer clend, real w, real wgap, real *werr,
c@427	4661 real spdiam, real clgapl, real clgapr, real pivmin, real *sigma,
c@427	4662 real dplus, real lplus, real work, integer info);
c@427	4663
c@427	4664 /* Subroutine / int slarrj_(integer n, real d__, real e2, integer *ifirst,
c@427	4665 integer ilast, real rtol, integer offset, real w, real *werr,
c@427	4666 real work, integer iwork, real pivmin, real spdiam, integer *info);
c@427	4667
c@427	4668 /* Subroutine / int slarrk_(integer n, integer iw, real gl, real *gu,
c@427	4669 real d__, real e2, real pivmin, real reltol, real w, real werr,
c@427	4670 integer *info);
c@427	4671
c@427	4672 /* Subroutine / int slarrr_(integer n, real d__, real e, integer *info);
c@427	4673
c@427	4674 /* Subroutine / int slarrv_(integer n, real vl, real vu, real d__, real
c@427	4675 l, real pivmin, integer isplit, integer m, integer dol, integer *
c@427	4676 dou, real minrgp, real rtol1, real rtol2, real w, real *werr,
c@427	4677 real wgap, integer iblock, integer indexw, real gers, real *z__,
c@427	4678 integer ldz, integer isuppz, real work, integer iwork, integer *
c@427	4679 info);
c@427	4680
c@427	4681 /* Subroutine / int slarscl2_(integer m, integer n, real d__, real *x,
c@427	4682 integer *ldx);
c@427	4683
c@427	4684 /* Subroutine / int slartg_(real f, real g, real cs, real sn, real r__);
c@427	4685
c@427	4686 /* Subroutine / int slartv_(integer n, real x, integer incx, real *y,
c@427	4687 integer incy, real c__, real s, integer incc);
c@427	4688
c@427	4689 /* Subroutine / int slaruv_(integer iseed, integer n, real x);
c@427	4690
c@427	4691 /* Subroutine / int slarz_(char side, integer m, integer n, integer *l,
c@427	4692 real v, integer incv, real tau, real c__, integer ldc, real
c@427	4693 work);
c@427	4694
c@427	4695 /* Subroutine / int slarzb_(char side, char trans, char direct, char *
c@427	4696 storev, integer m, integer n, integer k, integer l, real *v,
c@427	4697 integer ldv, real t, integer ldt, real c__, integer ldc, real
c@427	4698 work, integer *ldwork);
c@427	4699
c@427	4700 /* Subroutine / int slarzt_(char direct, char storev, integer n, integer *
c@427	4701 k, real v, integer ldv, real tau, real t, integer *ldt);
c@427	4702
c@427	4703 /* Subroutine / int slas2_(real f, real g, real h__, real ssmin, real
c@427	4704 ssmax);
c@427	4705
c@427	4706 /* Subroutine / int slascl_(char type__, integer kl, integer ku, real *
c@427	4707 cfrom, real cto, integer m, integer n, real a, integer *lda,
c@427	4708 integer *info);
c@427	4709
c@427	4710 /* Subroutine / int slascl2_(integer m, integer n, real d__, real *x,
c@427	4711 integer *ldx);
c@427	4712
c@427	4713 /* Subroutine / int slasd0_(integer n, integer sqre, real d__, real *e,
c@427	4714 real u, integer ldu, real vt, integer ldvt, integer *smlsiz,
c@427	4715 integer iwork, real work, integer *info);
c@427	4716
c@427	4717 /* Subroutine / int slasd1_(integer nl, integer nr, integer sqre, real *
c@427	4718 d__, real alpha, real beta, real u, integer ldu, real *vt,
c@427	4719 integer ldvt, integer idxq, integer iwork, real work, integer *
c@427	4720 info);
c@427	4721
c@427	4722 /* Subroutine / int slasd2_(integer nl, integer nr, integer sqre, integer
c@427	4723 k, real d__, real z__, real alpha, real beta, real u, integer *
c@427	4724 ldu, real vt, integer ldvt, real dsigma, real u2, integer *ldu2,
c@427	4725 real vt2, integer ldvt2, integer idxp, integer idx, integer *idxc,
c@427	4726 integer idxq, integer coltyp, integer *info);
c@427	4727
c@427	4728 /* Subroutine / int slasd3_(integer nl, integer nr, integer sqre, integer
c@427	4729 k, real d__, real q, integer ldq, real dsigma, real u, integer *
c@427	4730 ldu, real u2, integer ldu2, real vt, integer ldvt, real *vt2,
c@427	4731 integer ldvt2, integer idxc, integer ctot, real z__, integer *
c@427	4732 info);
c@427	4733
c@427	4734 /* Subroutine / int slasd4_(integer n, integer i__, real d__, real *z__,
c@427	4735 real delta, real rho, real sigma, real work, integer *info);
c@427	4736
c@427	4737 /* Subroutine / int slasd5_(integer i__, real d__, real z__, real *delta,
c@427	4738 real rho, real dsigma, real *work);
c@427	4739
c@427	4740 /* Subroutine / int slasd6_(integer icompq, integer nl, integer nr,
c@427	4741 integer sqre, real d__, real vf, real vl, real alpha, real beta,
c@427	4742 integer idxq, integer perm, integer givptr, integer givcol,
c@427	4743 integer ldgcol, real givnum, integer ldgnum, real poles, real *
c@427	4744 difl, real difr, real z__, integer k, real c__, real s, real
c@427	4745 work, integer iwork, integer info);
c@427	4746
c@427	4747 /* Subroutine / int slasd7_(integer icompq, integer nl, integer nr,
c@427	4748 integer sqre, integer k, real d__, real z__, real zw, real vf,
c@427	4749 real vfw, real vl, real vlw, real alpha, real beta, real dsigma,
c@427	4750 integer idx, integer idxp, integer idxq, integer perm, integer *
c@427	4751 givptr, integer givcol, integer ldgcol, real givnum, integer
c@427	4752 ldgnum, real c__, real s, integer *info);
c@427	4753
c@427	4754 /* Subroutine / int slasd8_(integer icompq, integer k, real d__, real *
c@427	4755 z__, real vf, real vl, real difl, real difr, integer *lddifr,
c@427	4756 real dsigma, real work, integer *info);
c@427	4757
c@427	4758 /* Subroutine / int slasda_(integer icompq, integer smlsiz, integer n,
c@427	4759 integer sqre, real d__, real e, real u, integer ldu, real vt,
c@427	4760 integer k, real difl, real difr, real z__, real poles, integer
c@427	4761 givptr, integer givcol, integer ldgcol, integer perm, real givnum,
c@427	4762 real c__, real s, real work, integer iwork, integer *info);
c@427	4763
c@427	4764 /* Subroutine / int slasdq_(char uplo, integer sqre, integer n, integer *
c@427	4765 ncvt, integer nru, integer ncc, real d__, real e, real *vt,
c@427	4766 integer ldvt, real u, integer ldu, real c__, integer ldc, real
c@427	4767 work, integer *info);
c@427	4768
c@427	4769 /* Subroutine / int slasdt_(integer n, integer lvl, integer nd, integer *
c@427	4770 inode, integer ndiml, integer ndimr, integer *msub);
c@427	4771
c@427	4772 /* Subroutine / int slaset_(char uplo, integer m, integer n, real *alpha,
c@427	4773 real beta, real a, integer *lda);
c@427	4774
c@427	4775 /* Subroutine / int slasq1_(integer n, real d__, real e, real *work,
c@427	4776 integer *info);
c@427	4777
c@427	4778 /* Subroutine / int slasq2_(integer n, real z__, integer info);
c@427	4779
c@427	4780 /* Subroutine / int slasq3_(integer i0, integer n0, real z__, integer *pp,
c@427	4781 real dmin__, real sigma, real desig, real qmax, integer *nfail,
c@427	4782 integer iter, integer ndiv, logical ieee, integer ttype, real *
c@427	4783 dmin1, real dmin2, real dn, real dn1, real dn2, real g, real
c@427	4784 tau);
c@427	4785
c@427	4786 /* Subroutine / int slasq4_(integer i0, integer n0, real z__, integer *pp,
c@427	4787 integer n0in, real dmin__, real dmin1, real dmin2, real *dn,
c@427	4788 real dn1, real dn2, real tau, integer ttype, real *g);
c@427	4789
c@427	4790 /* Subroutine / int slasq5_(integer i0, integer n0, real z__, integer *pp,
c@427	4791 real tau, real dmin__, real dmin1, real dmin2, real dn, real
c@427	4792 dnm1, real dnm2, logical ieee);
c@427	4793
c@427	4794 /* Subroutine / int slasq6_(integer i0, integer n0, real z__, integer *pp,
c@427	4795 real dmin__, real dmin1, real dmin2, real dn, real dnm1, real
c@427	4796 dnm2);
c@427	4797
c@427	4798 /* Subroutine / int slasr_(char side, char pivot, char direct, integer *m,
c@427	4799 integer n, real c__, real s, real a, integer *lda);
c@427	4800
c@427	4801 /* Subroutine / int slasrt_(char id, integer n, real d__, integer *info);
c@427	4802
c@427	4803 /* Subroutine / int slassq_(integer n, real x, integer incx, real *scale,
c@427	4804 real *sumsq);
c@427	4805
c@427	4806 /* Subroutine / int slasv2_(real f, real g, real h__, real ssmin, real
c@427	4807 ssmax, real snr, real csr, real snl, real csl);
c@427	4808
c@427	4809 /* Subroutine / int slaswp_(integer n, real a, integer lda, integer *k1,
c@427	4810 integer k2, integer ipiv, integer *incx);
c@427	4811
c@427	4812 /* Subroutine / int slasy2_(logical ltranl, logical ltranr, integer isgn,
c@427	4813 integer n1, integer n2, real tl, integer ldtl, real tr, integer
c@427	4814 ldtr, real b, integer ldb, real scale, real x, integer *ldx, real
c@427	4815 xnorm, integer info);
c@427	4816
c@427	4817 /* Subroutine / int slasyf_(char uplo, integer n, integer nb, integer *kb,
c@427	4818 real a, integer lda, integer ipiv, real w, integer *ldw, integer
c@427	4819 *info);
c@427	4820
c@427	4821 /* Subroutine / int slatbs_(char uplo, char trans, char diag, char *
c@427	4822 normin, integer n, integer kd, real ab, integer ldab, real *x,
c@427	4823 real scale, real cnorm, integer *info);
c@427	4824
c@427	4825 /* Subroutine / int slatdf_(integer ijob, integer n, real z__, integer *
c@427	4826 ldz, real rhs, real rdsum, real rdscal, integer ipiv, integer *
c@427	4827 jpiv);
c@427	4828
c@427	4829 /* Subroutine / int slatps_(char uplo, char trans, char diag, char *
c@427	4830 normin, integer n, real ap, real x, real scale, real *cnorm,
c@427	4831 integer *info);
c@427	4832
c@427	4833 /* Subroutine / int slatrd_(char uplo, integer n, integer nb, real *a,
c@427	4834 integer lda, real e, real tau, real w, integer *ldw);
c@427	4835
c@427	4836 /* Subroutine / int slatrs_(char uplo, char trans, char diag, char *
c@427	4837 normin, integer n, real a, integer lda, real x, real *scale, real
c@427	4838 cnorm, integer info);
c@427	4839
c@427	4840 /* Subroutine / int slatrz_(integer m, integer n, integer l, real *a,
c@427	4841 integer lda, real tau, real *work);
c@427	4842
c@427	4843 /* Subroutine / int slatzm_(char side, integer m, integer n, real *v,
c@427	4844 integer incv, real tau, real c1, real c2, integer ldc, real
c@427	4845 work);
c@427	4846
c@427	4847 /* Subroutine / int slauu2_(char uplo, integer n, real a, integer *lda,
c@427	4848 integer *info);
c@427	4849
c@427	4850 /* Subroutine / int slauum_(char uplo, integer n, real a, integer *lda,
c@427	4851 integer *info);
c@427	4852
c@427	4853 /* Subroutine / int sopgtr_(char uplo, integer n, real ap, real *tau,
c@427	4854 real q, integer ldq, real work, integer info);
c@427	4855
c@427	4856 /* Subroutine / int sopmtr_(char side, char uplo, char trans, integer *m,
c@427	4857 integer n, real ap, real tau, real c__, integer ldc, real work,
c@427	4858 integer *info);
c@427	4859
c@427	4860 /* Subroutine / int sorg2l_(integer m, integer n, integer k, real *a,
c@427	4861 integer lda, real tau, real work, integer info);
c@427	4862
c@427	4863 /* Subroutine / int sorg2r_(integer m, integer n, integer k, real *a,
c@427	4864 integer lda, real tau, real work, integer info);
c@427	4865
c@427	4866 /* Subroutine / int sorgbr_(char vect, integer m, integer n, integer *k,
c@427	4867 real a, integer lda, real tau, real work, integer *lwork, integer
c@427	4868 *info);
c@427	4869
c@427	4870 /* Subroutine / int sorghr_(integer n, integer ilo, integer ihi, real *a,
c@427	4871 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4872
c@427	4873 /* Subroutine / int sorgl2_(integer m, integer n, integer k, real *a,
c@427	4874 integer lda, real tau, real work, integer info);
c@427	4875
c@427	4876 /* Subroutine / int sorglq_(integer m, integer n, integer k, real *a,
c@427	4877 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4878
c@427	4879 /* Subroutine / int sorgql_(integer m, integer n, integer k, real *a,
c@427	4880 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4881
c@427	4882 /* Subroutine / int sorgqr_(integer m, integer n, integer k, real *a,
c@427	4883 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4884
c@427	4885 /* Subroutine / int sorgr2_(integer m, integer n, integer k, real *a,
c@427	4886 integer lda, real tau, real work, integer info);
c@427	4887
c@427	4888 /* Subroutine / int sorgrq_(integer m, integer n, integer k, real *a,
c@427	4889 integer lda, real tau, real work, integer lwork, integer *info);
c@427	4890
c@427	4891 /* Subroutine / int sorgtr_(char uplo, integer n, real a, integer *lda,
c@427	4892 real tau, real work, integer lwork, integer info);
c@427	4893
c@427	4894 /* Subroutine / int sorm2l_(char side, char trans, integer m, integer *n,
c@427	4895 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4896 real work, integer info);
c@427	4897
c@427	4898 /* Subroutine / int sorm2r_(char side, char trans, integer m, integer *n,
c@427	4899 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4900 real work, integer info);
c@427	4901
c@427	4902 /* Subroutine / int sormbr_(char vect, char side, char trans, integer *m,
c@427	4903 integer n, integer k, real a, integer lda, real tau, real c__,
c@427	4904 integer ldc, real work, integer lwork, integer info);
c@427	4905
c@427	4906 /* Subroutine / int sormhr_(char side, char trans, integer m, integer *n,
c@427	4907 integer ilo, integer ihi, real a, integer lda, real tau, real
c@427	4908 c__, integer ldc, real work, integer lwork, integer info);
c@427	4909
c@427	4910 /* Subroutine / int sorml2_(char side, char trans, integer m, integer *n,
c@427	4911 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4912 real work, integer info);
c@427	4913
c@427	4914 /* Subroutine / int sormlq_(char side, char trans, integer m, integer *n,
c@427	4915 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4916 real work, integer lwork, integer *info);
c@427	4917
c@427	4918 /* Subroutine / int sormql_(char side, char trans, integer m, integer *n,
c@427	4919 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4920 real work, integer lwork, integer *info);
c@427	4921
c@427	4922 /* Subroutine / int sormqr_(char side, char trans, integer m, integer *n,
c@427	4923 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4924 real work, integer lwork, integer *info);
c@427	4925
c@427	4926 /* Subroutine / int sormr2_(char side, char trans, integer m, integer *n,
c@427	4927 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4928 real work, integer info);
c@427	4929
c@427	4930 /* Subroutine / int sormr3_(char side, char trans, integer m, integer *n,
c@427	4931 integer k, integer l, real a, integer lda, real tau, real c__,
c@427	4932 integer ldc, real work, integer *info);
c@427	4933
c@427	4934 /* Subroutine / int sormrq_(char side, char trans, integer m, integer *n,
c@427	4935 integer k, real a, integer lda, real tau, real c__, integer ldc,
c@427	4936 real work, integer lwork, integer *info);
c@427	4937
c@427	4938 /* Subroutine / int sormrz_(char side, char trans, integer m, integer *n,
c@427	4939 integer k, integer l, real a, integer lda, real tau, real c__,
c@427	4940 integer ldc, real work, integer lwork, integer info);
c@427	4941
c@427	4942 /* Subroutine / int sormtr_(char side, char uplo, char trans, integer *m,
c@427	4943 integer n, real a, integer lda, real tau, real c__, integer ldc,
c@427	4944 real work, integer lwork, integer *info);
c@427	4945
c@427	4946 /* Subroutine / int spbcon_(char uplo, integer n, integer kd, real *ab,
c@427	4947 integer ldab, real anorm, real rcond, real work, integer *iwork,
c@427	4948 integer *info);
c@427	4949
c@427	4950 /* Subroutine / int spbequ_(char uplo, integer n, integer kd, real *ab,
c@427	4951 integer ldab, real s, real scond, real amax, integer *info);
c@427	4952
c@427	4953 /* Subroutine / int spbrfs_(char uplo, integer n, integer kd, integer *
c@427	4954 nrhs, real ab, integer ldab, real afb, integer ldafb, real *b,
c@427	4955 integer ldb, real x, integer ldx, real ferr, real berr, real
c@427	4956 work, integer iwork, integer info);
c@427	4957
c@427	4958 /* Subroutine / int spbstf_(char uplo, integer n, integer kd, real *ab,
c@427	4959 integer ldab, integer info);
c@427	4960
c@427	4961 /* Subroutine / int spbsv_(char uplo, integer n, integer kd, integer *
c@427	4962 nrhs, real ab, integer ldab, real b, integer ldb, integer *info);
c@427	4963
c@427	4964 /* Subroutine / int spbsvx_(char fact, char uplo, integer n, integer *kd,
c@427	4965 integer nrhs, real ab, integer ldab, real afb, integer *ldafb,
c@427	4966 char equed, real s, real b, integer ldb, real x, integer ldx,
c@427	4967 real rcond, real ferr, real berr, real work, integer *iwork,
c@427	4968 integer *info);
c@427	4969
c@427	4970 /* Subroutine / int spbtf2_(char uplo, integer n, integer kd, real *ab,
c@427	4971 integer ldab, integer info);
c@427	4972
c@427	4973 /* Subroutine / int spbtrf_(char uplo, integer n, integer kd, real *ab,
c@427	4974 integer ldab, integer info);
c@427	4975
c@427	4976 /* Subroutine / int spbtrs_(char uplo, integer n, integer kd, integer *
c@427	4977 nrhs, real ab, integer ldab, real b, integer ldb, integer *info);
c@427	4978
c@427	4979 /* Subroutine / int spftrf_(char transr, char uplo, integer n, real *a,
c@427	4980 integer *info);
c@427	4981
c@427	4982 /* Subroutine / int spftri_(char transr, char uplo, integer n, real *a,
c@427	4983 integer *info);
c@427	4984
c@427	4985 /* Subroutine / int spftrs_(char transr, char uplo, integer n, integer *
c@427	4986 nrhs, real a, real b, integer ldb, integer info);
c@427	4987
c@427	4988 /* Subroutine / int spocon_(char uplo, integer n, real a, integer *lda,
c@427	4989 real anorm, real rcond, real work, integer iwork, integer *info);
c@427	4990
c@427	4991 /* Subroutine / int spoequ_(integer n, real a, integer lda, real *s, real
c@427	4992 scond, real amax, integer *info);
c@427	4993
c@427	4994 /* Subroutine / int spoequb_(integer n, real a, integer lda, real *s,
c@427	4995 real scond, real amax, integer *info);
c@427	4996
c@427	4997 /* Subroutine / int sporfs_(char uplo, integer n, integer nrhs, real *a,
c@427	4998 integer lda, real af, integer ldaf, real b, integer ldb, real x,
c@427	4999 integer ldx, real ferr, real berr, real work, integer *iwork,
c@427	5000 integer *info);
c@427	5001
c@427	5002 /* Subroutine / int sporfsx_(char uplo, char equed, integer n, integer *
c@427	5003 nrhs, real a, integer lda, real af, integer ldaf, real s, real
c@427	5004 b, integer ldb, real x, integer ldx, real rcond, real *berr,
c@427	5005 integer n_err_bnds__, real err_bnds_norm__, real *err_bnds_comp__,
c@427	5006 integer nparams, real params, real work, integer iwork, integer *
c@427	5007 info);
c@427	5008
c@427	5009 /* Subroutine / int sposv_(char uplo, integer n, integer nrhs, real *a,
c@427	5010 integer lda, real b, integer ldb, integer info);
c@427	5011
c@427	5012 /* Subroutine / int sposvx_(char fact, char uplo, integer n, integer *
c@427	5013 nrhs, real a, integer lda, real af, integer ldaf, char *equed,
c@427	5014 real s, real b, integer ldb, real x, integer ldx, real rcond,
c@427	5015 real ferr, real berr, real work, integer iwork, integer *info);
c@427	5016
c@427	5017 /* Subroutine / int sposvxx_(char fact, char uplo, integer n, integer *
c@427	5018 nrhs, real a, integer lda, real af, integer ldaf, char *equed,
c@427	5019 real s, real b, integer ldb, real x, integer ldx, real rcond,
c@427	5020 real rpvgrw, real berr, integer n_err_bnds__, real
c@427	5021 err_bnds_norm__, real err_bnds_comp__, integer nparams, real *
c@427	5022 params, real work, integer iwork, integer *info);
c@427	5023
c@427	5024 /* Subroutine / int spotf2_(char uplo, integer n, real a, integer *lda,
c@427	5025 integer *info);
c@427	5026
c@427	5027 /* Subroutine / int spotrf_(char uplo, integer n, real a, integer *lda,
c@427	5028 integer *info);
c@427	5029
c@427	5030 /* Subroutine / int spotri_(char uplo, integer n, real a, integer *lda,
c@427	5031 integer *info);
c@427	5032
c@427	5033 /* Subroutine / int spotrs_(char uplo, integer n, integer nrhs, real *a,
c@427	5034 integer lda, real b, integer ldb, integer info);
c@427	5035
c@427	5036 /* Subroutine / int sppcon_(char uplo, integer n, real ap, real *anorm,
c@427	5037 real rcond, real work, integer iwork, integer info);
c@427	5038
c@427	5039 /* Subroutine / int sppequ_(char uplo, integer n, real ap, real s, real
c@427	5040 scond, real amax, integer info);
c@427	5041
c@427	5042 /* Subroutine / int spprfs_(char uplo, integer n, integer nrhs, real *ap,
c@427	5043 real afp, real b, integer ldb, real x, integer ldx, real ferr,
c@427	5044 real berr, real work, integer iwork, integer info);
c@427	5045
c@427	5046 /* Subroutine / int sppsv_(char uplo, integer n, integer nrhs, real *ap,
c@427	5047 real b, integer ldb, integer *info);
c@427	5048
c@427	5049 /* Subroutine / int sppsvx_(char fact, char uplo, integer n, integer *
c@427	5050 nrhs, real ap, real afp, char equed, real s, real b, integer
c@427	5051 ldb, real x, integer ldx, real rcond, real ferr, real *berr, real
c@427	5052 work, integer iwork, integer *info);
c@427	5053
c@427	5054 /* Subroutine / int spptrf_(char uplo, integer n, real ap, integer *info);
c@427	5055
c@427	5056 /* Subroutine / int spptri_(char uplo, integer n, real ap, integer *info);
c@427	5057
c@427	5058 /* Subroutine / int spptrs_(char uplo, integer n, integer nrhs, real *ap,
c@427	5059 real b, integer ldb, integer *info);
c@427	5060
c@427	5061 /* Subroutine / int spstf2_(char uplo, integer n, real a, integer *lda,
c@427	5062 integer piv, integer rank, real tol, real work, integer *info);
c@427	5063
c@427	5064 /* Subroutine / int spstrf_(char uplo, integer n, real a, integer *lda,
c@427	5065 integer piv, integer rank, real tol, real work, integer *info);
c@427	5066
c@427	5067 /* Subroutine / int sptcon_(integer n, real d__, real e, real *anorm,
c@427	5068 real rcond, real work, integer *info);
c@427	5069
c@427	5070 /* Subroutine / int spteqr_(char compz, integer n, real d__, real *e,
c@427	5071 real z__, integer ldz, real work, integer info);
c@427	5072
c@427	5073 /* Subroutine / int sptrfs_(integer n, integer nrhs, real d__, real *e,
c@427	5074 real df, real ef, real b, integer ldb, real x, integer ldx,
c@427	5075 real ferr, real berr, real work, integer info);
c@427	5076
c@427	5077 /* Subroutine / int sptsv_(integer n, integer nrhs, real d__, real *e,
c@427	5078 real b, integer ldb, integer *info);
c@427	5079
c@427	5080 /* Subroutine / int sptsvx_(char fact, integer n, integer nrhs, real *d__,
c@427	5081 real e, real df, real ef, real b, integer ldb, real x, integer
c@427	5082 ldx, real rcond, real ferr, real berr, real work, integer info);
c@427	5083
c@427	5084 /* Subroutine / int spttrf_(integer n, real d__, real e, integer *info);
c@427	5085
c@427	5086 /* Subroutine / int spttrs_(integer n, integer nrhs, real d__, real *e,
c@427	5087 real b, integer ldb, integer *info);
c@427	5088
c@427	5089 /* Subroutine / int sptts2_(integer n, integer nrhs, real d__, real *e,
c@427	5090 real b, integer ldb);
c@427	5091
c@427	5092 /* Subroutine / int srscl_(integer n, real sa, real sx, integer *incx);
c@427	5093
c@427	5094 /* Subroutine / int ssbev_(char jobz, char uplo, integer n, integer *kd,
c@427	5095 real ab, integer ldab, real w, real z__, integer ldz, real work,
c@427	5096 integer *info);
c@427	5097
c@427	5098 /* Subroutine / int ssbevd_(char jobz, char uplo, integer n, integer *kd,
c@427	5099 real ab, integer ldab, real w, real z__, integer ldz, real work,
c@427	5100 integer lwork, integer iwork, integer liwork, integer info);
c@427	5101
c@427	5102 /* Subroutine / int ssbevx_(char jobz, char range, char uplo, integer *n,
c@427	5103 integer kd, real ab, integer ldab, real q, integer ldq, real vl,
c@427	5104 real vu, integer il, integer iu, real abstol, integer m, real
c@427	5105 w, real z__, integer ldz, real work, integer iwork, integer *
c@427	5106 ifail, integer *info);
c@427	5107
c@427	5108 /* Subroutine / int ssbgst_(char vect, char uplo, integer n, integer *ka,
c@427	5109 integer kb, real ab, integer ldab, real bb, integer ldbb, real
c@427	5110 x, integer ldx, real work, integer *info);
c@427	5111
c@427	5112 /* Subroutine / int ssbgv_(char jobz, char uplo, integer n, integer *ka,
c@427	5113 integer kb, real ab, integer ldab, real bb, integer ldbb, real
c@427	5114 w, real z__, integer ldz, real work, integer info);
c@427	5115
c@427	5116 /* Subroutine / int ssbgvd_(char jobz, char uplo, integer n, integer *ka,
c@427	5117 integer kb, real ab, integer ldab, real bb, integer ldbb, real
c@427	5118 w, real z__, integer ldz, real work, integer lwork, integer *
c@427	5119 iwork, integer liwork, integer info);
c@427	5120
c@427	5121 /* Subroutine / int ssbgvx_(char jobz, char range, char uplo, integer *n,
c@427	5122 integer ka, integer kb, real ab, integer ldab, real bb, integer
c@427	5123 ldbb, real q, integer ldq, real vl, real vu, integer *il, integer
c@427	5124 iu, real abstol, integer m, real w, real z__, integer ldz, real
c@427	5125 work, integer iwork, integer ifail, integer info);
c@427	5126
c@427	5127 /* Subroutine / int ssbtrd_(char vect, char uplo, integer n, integer *kd,
c@427	5128 real ab, integer ldab, real d__, real e, real q, integer ldq,
c@427	5129 real work, integer info);
c@427	5130
c@427	5131 /* Subroutine / int ssfrk_(char transr, char uplo, char trans, integer *n,
c@427	5132 integer k, real alpha, real a, integer lda, real beta, real
c@427	5133 c__);
c@427	5134
c@427	5135 /* Subroutine / int sspcon_(char uplo, integer n, real ap, integer *ipiv,
c@427	5136 real anorm, real rcond, real work, integer iwork, integer *info);
c@427	5137
c@427	5138 /* Subroutine / int sspev_(char jobz, char uplo, integer n, real *ap,
c@427	5139 real w, real z__, integer ldz, real work, integer *info);
c@427	5140
c@427	5141 /* Subroutine / int sspevd_(char jobz, char uplo, integer n, real *ap,
c@427	5142 real w, real z__, integer ldz, real work, integer *lwork, integer
c@427	5143 iwork, integer liwork, integer *info);
c@427	5144
c@427	5145 /* Subroutine / int sspevx_(char jobz, char range, char uplo, integer *n,
c@427	5146 real ap, real vl, real vu, integer il, integer iu, real abstol,
c@427	5147 integer m, real w, real z__, integer ldz, real work, integer
c@427	5148 iwork, integer ifail, integer info);
c@427	5149
c@427	5150 /* Subroutine / int sspgst_(integer itype, char uplo, integer n, real *ap,
c@427	5151 real bp, integer info);
c@427	5152
c@427	5153 /* Subroutine / int sspgv_(integer itype, char jobz, char uplo, integer *
c@427	5154 n, real ap, real bp, real w, real z__, integer ldz, real work,
c@427	5155 integer *info);
c@427	5156
c@427	5157 /* Subroutine / int sspgvd_(integer itype, char jobz, char uplo, integer *
c@427	5158 n, real ap, real bp, real w, real z__, integer ldz, real work,
c@427	5159 integer lwork, integer iwork, integer liwork, integer info);
c@427	5160
c@427	5161 /* Subroutine / int sspgvx_(integer itype, char jobz, char range, char *
c@427	5162 uplo, integer n, real ap, real bp, real vl, real vu, integer il,
c@427	5163 integer iu, real abstol, integer m, real w, real z__, integer
c@427	5164 ldz, real work, integer iwork, integer ifail, integer info);
c@427	5165
c@427	5166 /* Subroutine / int ssprfs_(char uplo, integer n, integer nrhs, real *ap,
c@427	5167 real afp, integer ipiv, real b, integer ldb, real x, integer
c@427	5168 ldx, real ferr, real berr, real work, integer iwork, integer *
c@427	5169 info);
c@427	5170
c@427	5171 /* Subroutine / int sspsv_(char uplo, integer n, integer nrhs, real *ap,
c@427	5172 integer ipiv, real b, integer ldb, integer info);
c@427	5173
c@427	5174 /* Subroutine / int sspsvx_(char fact, char uplo, integer n, integer *
c@427	5175 nrhs, real ap, real afp, integer ipiv, real b, integer *ldb, real
c@427	5176 x, integer ldx, real rcond, real ferr, real berr, real work,
c@427	5177 integer iwork, integer info);
c@427	5178
c@427	5179 /* Subroutine / int ssptrd_(char uplo, integer n, real ap, real *d__,
c@427	5180 real e, real tau, integer *info);
c@427	5181
c@427	5182 /* Subroutine / int ssptrf_(char uplo, integer n, real ap, integer *ipiv,
c@427	5183 integer *info);
c@427	5184
c@427	5185 /* Subroutine / int ssptri_(char uplo, integer n, real ap, integer *ipiv,
c@427	5186 real work, integer info);
c@427	5187
c@427	5188 /* Subroutine / int ssptrs_(char uplo, integer n, integer nrhs, real *ap,
c@427	5189 integer ipiv, real b, integer ldb, integer info);
c@427	5190
c@427	5191 /* Subroutine / int sstebz_(char range, char order, integer n, real *vl,
c@427	5192 real vu, integer il, integer iu, real abstol, real d__, real e,
c@427	5193 integer m, integer nsplit, real w, integer iblock, integer *
c@427	5194 isplit, real work, integer iwork, integer *info);
c@427	5195
c@427	5196 /* Subroutine / int sstedc_(char compz, integer n, real d__, real *e,
c@427	5197 real z__, integer ldz, real work, integer lwork, integer *iwork,
c@427	5198 integer liwork, integer info);
c@427	5199
c@427	5200 /* Subroutine / int sstegr_(char jobz, char range, integer n, real *d__,
c@427	5201 real e, real vl, real vu, integer il, integer iu, real abstol,
c@427	5202 integer m, real w, real z__, integer ldz, integer isuppz, real
c@427	5203 work, integer lwork, integer iwork, integer liwork, integer info);
c@427	5204
c@427	5205 /* Subroutine / int sstein_(integer n, real d__, real e, integer *m, real
c@427	5206 w, integer iblock, integer isplit, real z__, integer ldz, real
c@427	5207 work, integer iwork, integer ifail, integer *info);
c@427	5208
c@427	5209 /* Subroutine / int sstemr_(char jobz, char range, integer n, real *d__,
c@427	5210 real e, real vl, real vu, integer il, integer iu, integer m,
c@427	5211 real w, real z__, integer ldz, integer nzc, integer *isuppz,
c@427	5212 logical tryrac, real work, integer lwork, integer iwork, integer *
c@427	5213 liwork, integer *info);
c@427	5214
c@427	5215 /* Subroutine / int ssteqr_(char compz, integer n, real d__, real *e,
c@427	5216 real z__, integer ldz, real work, integer info);
c@427	5217
c@427	5218 /* Subroutine / int ssterf_(integer n, real d__, real e, integer *info);
c@427	5219
c@427	5220 /* Subroutine / int sstev_(char jobz, integer n, real d__, real e, real
c@427	5221 z__, integer ldz, real work, integer *info);
c@427	5222
c@427	5223 /* Subroutine / int sstevd_(char jobz, integer n, real d__, real *e, real
c@427	5224 z__, integer ldz, real work, integer lwork, integer *iwork,
c@427	5225 integer liwork, integer info);
c@427	5226
c@427	5227 /* Subroutine / int sstevr_(char jobz, char range, integer n, real *d__,
c@427	5228 real e, real vl, real vu, integer il, integer iu, real abstol,
c@427	5229 integer m, real w, real z__, integer ldz, integer isuppz, real
c@427	5230 work, integer lwork, integer iwork, integer liwork, integer info);
c@427	5231
c@427	5232 /* Subroutine / int sstevx_(char jobz, char range, integer n, real *d__,
c@427	5233 real e, real vl, real vu, integer il, integer iu, real abstol,
c@427	5234 integer m, real w, real z__, integer ldz, real work, integer
c@427	5235 iwork, integer ifail, integer info);
c@427	5236
c@427	5237 /* Subroutine / int ssycon_(char uplo, integer n, real a, integer *lda,
c@427	5238 integer ipiv, real anorm, real rcond, real work, integer *iwork,
c@427	5239 integer *info);
c@427	5240
c@427	5241 /* Subroutine / int ssyequb_(char uplo, integer n, real a, integer *lda,
c@427	5242 real s, real scond, real amax, real work, integer *info);
c@427	5243
c@427	5244 /* Subroutine / int ssyev_(char jobz, char uplo, integer n, real *a,
c@427	5245 integer lda, real w, real work, integer lwork, integer *info);
c@427	5246
c@427	5247 /* Subroutine / int ssyevd_(char jobz, char uplo, integer n, real *a,
c@427	5248 integer lda, real w, real work, integer lwork, integer *iwork,
c@427	5249 integer liwork, integer info);
c@427	5250
c@427	5251 /* Subroutine / int ssyevr_(char jobz, char range, char uplo, integer *n,
c@427	5252 real a, integer lda, real vl, real vu, integer il, integer iu,
c@427	5253 real abstol, integer m, real w, real z__, integer ldz, integer
c@427	5254 isuppz, real work, integer lwork, integer iwork, integer liwork,
c@427	5255 integer *info);
c@427	5256
c@427	5257 /* Subroutine / int ssyevx_(char jobz, char range, char uplo, integer *n,
c@427	5258 real a, integer lda, real vl, real vu, integer il, integer iu,
c@427	5259 real abstol, integer m, real w, real z__, integer ldz, real
c@427	5260 work, integer lwork, integer iwork, integer ifail, integer info);
c@427	5261
c@427	5262 /* Subroutine / int ssygs2_(integer itype, char uplo, integer n, real *a,
c@427	5263 integer lda, real b, integer ldb, integer info);
c@427	5264
c@427	5265 /* Subroutine / int ssygst_(integer itype, char uplo, integer n, real *a,
c@427	5266 integer lda, real b, integer ldb, integer info);
c@427	5267
c@427	5268 /* Subroutine / int ssygv_(integer itype, char jobz, char uplo, integer *
c@427	5269 n, real a, integer lda, real b, integer ldb, real w, real work,
c@427	5270 integer lwork, integer info);
c@427	5271
c@427	5272 /* Subroutine / int ssygvd_(integer itype, char jobz, char uplo, integer *
c@427	5273 n, real a, integer lda, real b, integer ldb, real w, real work,
c@427	5274 integer lwork, integer iwork, integer liwork, integer info);
c@427	5275
c@427	5276 /* Subroutine / int ssygvx_(integer itype, char jobz, char range, char *
c@427	5277 uplo, integer n, real a, integer lda, real b, integer ldb, real
c@427	5278 vl, real vu, integer il, integer iu, real abstol, integer *m,
c@427	5279 real w, real z__, integer ldz, real work, integer *lwork, integer
c@427	5280 iwork, integer ifail, integer *info);
c@427	5281
c@427	5282 /* Subroutine / int ssyrfs_(char uplo, integer n, integer nrhs, real *a,
c@427	5283 integer lda, real af, integer ldaf, integer ipiv, real *b,
c@427	5284 integer ldb, real x, integer ldx, real ferr, real berr, real
c@427	5285 work, integer iwork, integer info);
c@427	5286
c@427	5287 /* Subroutine / int ssyrfsx_(char uplo, char equed, integer n, integer *
c@427	5288 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	5289 real s, real b, integer ldb, real x, integer ldx, real rcond,
c@427	5290 real berr, integer n_err_bnds__, real err_bnds_norm__, real
c@427	5291 err_bnds_comp__, integer nparams, real params, real work, integer
c@427	5292 iwork, integer *info);
c@427	5293
c@427	5294 /* Subroutine / int ssysv_(char uplo, integer n, integer nrhs, real *a,
c@427	5295 integer lda, integer ipiv, real b, integer ldb, real *work,
c@427	5296 integer lwork, integer info);
c@427	5297
c@427	5298 /* Subroutine / int ssysvx_(char fact, char uplo, integer n, integer *
c@427	5299 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	5300 real b, integer ldb, real x, integer ldx, real rcond, real ferr,
c@427	5301 real berr, real work, integer lwork, integer iwork, integer *
c@427	5302 info);
c@427	5303
c@427	5304 /* Subroutine / int ssysvxx_(char fact, char uplo, integer n, integer *
c@427	5305 nrhs, real a, integer lda, real af, integer ldaf, integer *ipiv,
c@427	5306 char equed, real s, real b, integer ldb, real x, integer ldx,
c@427	5307 real rcond, real rpvgrw, real berr, integer n_err_bnds__, real *
c@427	5308 err_bnds_norm__, real err_bnds_comp__, integer nparams, real *
c@427	5309 params, real work, integer iwork, integer *info);
c@427	5310
c@427	5311 /* Subroutine / int ssytd2_(char uplo, integer n, real a, integer *lda,
c@427	5312 real d__, real e, real tau, integer info);
c@427	5313
c@427	5314 /* Subroutine / int ssytf2_(char uplo, integer n, real a, integer *lda,
c@427	5315 integer ipiv, integer info);
c@427	5316
c@427	5317 /* Subroutine / int ssytrd_(char uplo, integer n, real a, integer *lda,
c@427	5318 real d__, real e, real tau, real work, integer lwork, integer
c@427	5319 info);
c@427	5320
c@427	5321 /* Subroutine / int ssytrf_(char uplo, integer n, real a, integer *lda,
c@427	5322 integer ipiv, real work, integer lwork, integer info);
c@427	5323
c@427	5324 /* Subroutine / int ssytri_(char uplo, integer n, real a, integer *lda,
c@427	5325 integer ipiv, real work, integer *info);
c@427	5326
c@427	5327 /* Subroutine / int ssytrs_(char uplo, integer n, integer nrhs, real *a,
c@427	5328 integer lda, integer ipiv, real b, integer ldb, integer *info);
c@427	5329
c@427	5330 /* Subroutine / int stbcon_(char norm, char uplo, char diag, integer *n,
c@427	5331 integer kd, real ab, integer ldab, real rcond, real *work,
c@427	5332 integer iwork, integer info);
c@427	5333
c@427	5334 /* Subroutine / int stbrfs_(char uplo, char trans, char diag, integer *n,
c@427	5335 integer kd, integer nrhs, real ab, integer ldab, real *b, integer
c@427	5336 ldb, real x, integer ldx, real ferr, real berr, real work,
c@427	5337 integer iwork, integer info);
c@427	5338
c@427	5339 /* Subroutine / int stbtrs_(char uplo, char trans, char diag, integer *n,
c@427	5340 integer kd, integer nrhs, real ab, integer ldab, real *b, integer
c@427	5341 ldb, integer info);
c@427	5342
c@427	5343 /* Subroutine / int stfsm_(char transr, char side, char uplo, char *trans,
c@427	5344 char diag, integer m, integer n, real alpha, real a, real b,
c@427	5345 integer *ldb);
c@427	5346
c@427	5347 /* Subroutine / int stftri_(char transr, char uplo, char diag, integer *n,
c@427	5348 real a, integer info);
c@427	5349
c@427	5350 /* Subroutine / int stfttp_(char transr, char uplo, integer n, real *arf,
c@427	5351 real ap, integer info);
c@427	5352
c@427	5353 /* Subroutine / int stfttr_(char transr, char uplo, integer n, real *arf,
c@427	5354 real a, integer lda, integer *info);
c@427	5355
c@427	5356 /* Subroutine / int stgevc_(char side, char howmny, logical select,
c@427	5357 integer n, real s, integer lds, real p, integer ldp, real vl,
c@427	5358 integer ldvl, real vr, integer ldvr, integer mm, integer *m, real
c@427	5359 work, integer info);
c@427	5360
c@427	5361 /* Subroutine / int stgex2_(logical wantq, logical wantz, integer n, real
c@427	5362 a, integer lda, real b, integer ldb, real q, integer ldq, real *
c@427	5363 z__, integer ldz, integer j1, integer n1, integer n2, real *work,
c@427	5364 integer lwork, integer info);
c@427	5365
c@427	5366 /* Subroutine / int stgexc_(logical wantq, logical wantz, integer n, real
c@427	5367 a, integer lda, real b, integer ldb, real q, integer ldq, real *
c@427	5368 z__, integer ldz, integer ifst, integer ilst, real work, integer *
c@427	5369 lwork, integer *info);
c@427	5370
c@427	5371 /* Subroutine / int stgsen_(integer ijob, logical wantq, logical wantz,
c@427	5372 logical select, integer n, real a, integer lda, real b, integer
c@427	5373 ldb, real alphar, real alphai, real beta, real q, integer *ldq,
c@427	5374 real z__, integer ldz, integer m, real pl, real pr, real dif,
c@427	5375 real work, integer lwork, integer iwork, integer liwork, integer *
c@427	5376 info);
c@427	5377
c@427	5378 /* Subroutine / int stgsja_(char jobu, char jobv, char jobq, integer *m,
c@427	5379 integer p, integer n, integer k, integer l, real a, integer lda,
c@427	5380 real b, integer ldb, real tola, real tolb, real alpha, real
c@427	5381 beta, real u, integer ldu, real v, integer ldv, real q, integer
c@427	5382 ldq, real work, integer ncycle, integer *info);
c@427	5383
c@427	5384 /* Subroutine / int stgsna_(char job, char howmny, logical select,
c@427	5385 integer n, real a, integer lda, real b, integer ldb, real vl,
c@427	5386 integer ldvl, real vr, integer ldvr, real s, real dif, integer
c@427	5387 mm, integer m, real work, integer lwork, integer iwork, integer *
c@427	5388 info);
c@427	5389
c@427	5390 /* Subroutine / int stgsy2_(char trans, integer ijob, integer m, integer *
c@427	5391 n, real a, integer lda, real b, integer ldb, real c__, integer
c@427	5392 ldc, real d__, integer ldd, real e, integer lde, real *f, integer
c@427	5393 ldf, real scale, real rdsum, real rdscal, integer *iwork, integer
c@427	5394 pq, integer info);
c@427	5395
c@427	5396 /* Subroutine / int stgsyl_(char trans, integer ijob, integer m, integer *
c@427	5397 n, real a, integer lda, real b, integer ldb, real c__, integer
c@427	5398 ldc, real d__, integer ldd, real e, integer lde, real *f, integer
c@427	5399 ldf, real scale, real dif, real work, integer lwork, integer
c@427	5400 iwork, integer *info);
c@427	5401
c@427	5402 /* Subroutine / int stpcon_(char norm, char uplo, char diag, integer *n,
c@427	5403 real ap, real rcond, real work, integer iwork, integer *info);
c@427	5404
c@427	5405 /* Subroutine / int stprfs_(char uplo, char trans, char diag, integer *n,
c@427	5406 integer nrhs, real ap, real b, integer ldb, real x, integer ldx,
c@427	5407 real ferr, real berr, real work, integer iwork, integer *info);
c@427	5408
c@427	5409 /* Subroutine / int stptri_(char uplo, char diag, integer n, real *ap,
c@427	5410 integer *info);
c@427	5411
c@427	5412 /* Subroutine / int stptrs_(char uplo, char trans, char diag, integer *n,
c@427	5413 integer nrhs, real ap, real b, integer ldb, integer *info);
c@427	5414
c@427	5415 /* Subroutine / int stpttf_(char transr, char uplo, integer n, real *ap,
c@427	5416 real arf, integer info);
c@427	5417
c@427	5418 /* Subroutine / int stpttr_(char uplo, integer n, real ap, real *a,
c@427	5419 integer lda, integer info);
c@427	5420
c@427	5421 /* Subroutine / int strcon_(char norm, char uplo, char diag, integer *n,
c@427	5422 real a, integer lda, real rcond, real work, integer *iwork,
c@427	5423 integer *info);
c@427	5424
c@427	5425 /* Subroutine / int strevc_(char side, char howmny, logical select,
c@427	5426 integer n, real t, integer ldt, real vl, integer ldvl, real vr,
c@427	5427 integer ldvr, integer mm, integer m, real work, integer *info);
c@427	5428
c@427	5429 /* Subroutine / int strexc_(char compq, integer n, real t, integer *ldt,
c@427	5430 real q, integer ldq, integer ifst, integer ilst, real *work,
c@427	5431 integer *info);
c@427	5432
c@427	5433 /* Subroutine / int strrfs_(char uplo, char trans, char diag, integer *n,
c@427	5434 integer nrhs, real a, integer lda, real b, integer ldb, real x,
c@427	5435 integer ldx, real ferr, real berr, real work, integer *iwork,
c@427	5436 integer *info);
c@427	5437
c@427	5438 /* Subroutine / int strsen_(char job, char compq, logical select, integer
c@427	5439 n, real t, integer ldt, real q, integer ldq, real wr, real *wi,
c@427	5440 integer m, real s, real sep, real work, integer lwork, integer
c@427	5441 iwork, integer liwork, integer info);
c@427	5442
c@427	5443 /* Subroutine / int strsna_(char job, char howmny, logical select,
c@427	5444 integer n, real t, integer ldt, real vl, integer ldvl, real vr,
c@427	5445 integer ldvr, real s, real sep, integer mm, integer m, real
c@427	5446 work, integer ldwork, integer iwork, integer *info);
c@427	5447
c@427	5448 /* Subroutine / int strsyl_(char trana, char tranb, integer isgn, integer
c@427	5449 m, integer n, real a, integer lda, real b, integer ldb, real *
c@427	5450 c__, integer ldc, real scale, integer *info);
c@427	5451
c@427	5452 /* Subroutine / int strti2_(char uplo, char diag, integer n, real *a,
c@427	5453 integer lda, integer info);
c@427	5454
c@427	5455 /* Subroutine / int strtri_(char uplo, char diag, integer n, real *a,
c@427	5456 integer lda, integer info);
c@427	5457
c@427	5458 /* Subroutine / int strtrs_(char uplo, char trans, char diag, integer *n,
c@427	5459 integer nrhs, real a, integer lda, real b, integer ldb, integer
c@427	5460 info);
c@427	5461
c@427	5462 /* Subroutine / int strttf_(char transr, char uplo, integer n, real *a,
c@427	5463 integer lda, real arf, integer *info);
c@427	5464
c@427	5465 /* Subroutine / int strttp_(char uplo, integer n, real a, integer *lda,
c@427	5466 real ap, integer info);
c@427	5467
c@427	5468 /* Subroutine / int stzrqf_(integer m, integer n, real a, integer *lda,
c@427	5469 real tau, integer info);
c@427	5470
c@427	5471 /* Subroutine / int stzrzf_(integer m, integer n, real a, integer *lda,
c@427	5472 real tau, real work, integer lwork, integer info);
c@427	5473
c@427	5474 /* Subroutine / int xerbla_(char srname, integer *info);
c@427	5475
c@427	5476 /* Subroutine / int xerbla_array__(char srname_array__, integer *
c@427	5477 srname_len__, integer *info, ftnlen srname_array_len);
c@427	5478
c@427	5479 /* Subroutine / int zbdsqr_(char uplo, integer n, integer ncvt, integer *
c@427	5480 nru, integer ncc, doublereal d__, doublereal e, doublecomplex vt,
c@427	5481 integer ldvt, doublecomplex u, integer ldu, doublecomplex c__,
c@427	5482 integer ldc, doublereal rwork, integer *info);
c@427	5483
c@427	5484 /* Subroutine / int zcgesv_(integer n, integer nrhs, doublecomplex a,
c@427	5485 integer lda, integer ipiv, doublecomplex b, integer ldb,
c@427	5486 doublecomplex x, integer ldx, doublecomplex work, complex swork,
c@427	5487 doublereal rwork, integer iter, integer *info);
c@427	5488
c@427	5489 /* Subroutine / int zcposv_(char uplo, integer n, integer nrhs,
c@427	5490 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5491 doublecomplex x, integer ldx, doublecomplex work, complex swork,
c@427	5492 doublereal rwork, integer iter, integer *info);
c@427	5493
c@427	5494 /* Subroutine / int zdrscl_(integer n, doublereal sa, doublecomplex sx,
c@427	5495 integer *incx);
c@427	5496
c@427	5497 /* Subroutine / int zgbbrd_(char vect, integer m, integer n, integer *ncc,
c@427	5498 integer kl, integer ku, doublecomplex ab, integer ldab,
c@427	5499 doublereal d__, doublereal e, doublecomplex q, integer ldq,
c@427	5500 doublecomplex pt, integer ldpt, doublecomplex c__, integer ldc,
c@427	5501 doublecomplex work, doublereal rwork, integer *info);
c@427	5502
c@427	5503 /* Subroutine / int zgbcon_(char norm, integer n, integer kl, integer *ku,
c@427	5504 doublecomplex ab, integer ldab, integer ipiv, doublereal anorm,
c@427	5505 doublereal rcond, doublecomplex work, doublereal rwork, integer
c@427	5506 info);
c@427	5507
c@427	5508 /* Subroutine / int zgbequ_(integer m, integer n, integer kl, integer *ku,
c@427	5509 doublecomplex ab, integer ldab, doublereal r__, doublereal c__,
c@427	5510 doublereal rowcnd, doublereal colcnd, doublereal amax, integer
c@427	5511 info);
c@427	5512
c@427	5513 /* Subroutine / int zgbequb_(integer m, integer n, integer kl, integer *
c@427	5514 ku, doublecomplex ab, integer ldab, doublereal r__, doublereal
c@427	5515 c__, doublereal rowcnd, doublereal colcnd, doublereal *amax,
c@427	5516 integer *info);
c@427	5517
c@427	5518 /* Subroutine / int zgbrfs_(char trans, integer n, integer kl, integer *
c@427	5519 ku, integer nrhs, doublecomplex ab, integer ldab, doublecomplex
c@427	5520 afb, integer ldafb, integer ipiv, doublecomplex b, integer ldb,
c@427	5521 doublecomplex x, integer ldx, doublereal ferr, doublereal berr,
c@427	5522 doublecomplex work, doublereal rwork, integer *info);
c@427	5523
c@427	5524 /* Subroutine / int zgbrfsx_(char trans, char equed, integer n, integer *
c@427	5525 kl, integer ku, integer nrhs, doublecomplex ab, integer ldab,
c@427	5526 doublecomplex afb, integer ldafb, integer ipiv, doublereal r__,
c@427	5527 doublereal c__, doublecomplex b, integer ldb, doublecomplex x,
c@427	5528 integer ldx, doublereal rcond, doublereal berr, integer
c@427	5529 n_err_bnds__, doublereal err_bnds_norm__, doublereal
c@427	5530 err_bnds_comp__, integer nparams, doublereal params, doublecomplex *
c@427	5531 work, doublereal rwork, integer info);
c@427	5532
c@427	5533 /* Subroutine / int zgbsv_(integer n, integer kl, integer ku, integer *
c@427	5534 nrhs, doublecomplex ab, integer ldab, integer ipiv, doublecomplex
c@427	5535 b, integer ldb, integer info);
c@427	5536
c@427	5537 /* Subroutine / int zgbsvx_(char fact, char trans, integer n, integer *kl,
c@427	5538 integer ku, integer nrhs, doublecomplex ab, integer ldab,
c@427	5539 doublecomplex afb, integer ldafb, integer ipiv, char equed,
c@427	5540 doublereal r__, doublereal c__, doublecomplex b, integer ldb,
c@427	5541 doublecomplex x, integer ldx, doublereal rcond, doublereal ferr,
c@427	5542 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	5543 info);
c@427	5544
c@427	5545 /* Subroutine / int zgbsvxx_(char fact, char trans, integer n, integer *
c@427	5546 kl, integer ku, integer nrhs, doublecomplex ab, integer ldab,
c@427	5547 doublecomplex afb, integer ldafb, integer ipiv, char equed,
c@427	5548 doublereal r__, doublereal c__, doublecomplex b, integer ldb,
c@427	5549 doublecomplex x, integer ldx, doublereal rcond, doublereal rpvgrw,
c@427	5550 doublereal berr, integer n_err_bnds__, doublereal *err_bnds_norm__,
c@427	5551 doublereal err_bnds_comp__, integer nparams, doublereal *params,
c@427	5552 doublecomplex work, doublereal rwork, integer *info);
c@427	5553
c@427	5554 /* Subroutine / int zgbtf2_(integer m, integer n, integer kl, integer *ku,
c@427	5555 doublecomplex ab, integer ldab, integer ipiv, integer info);
c@427	5556
c@427	5557 /* Subroutine / int zgbtrf_(integer m, integer n, integer kl, integer *ku,
c@427	5558 doublecomplex ab, integer ldab, integer ipiv, integer info);
c@427	5559
c@427	5560 /* Subroutine / int zgbtrs_(char trans, integer n, integer kl, integer *
c@427	5561 ku, integer nrhs, doublecomplex ab, integer ldab, integer ipiv,
c@427	5562 doublecomplex b, integer ldb, integer *info);
c@427	5563
c@427	5564 /* Subroutine / int zgebak_(char job, char side, integer n, integer *ilo,
c@427	5565 integer ihi, doublereal scale, integer m, doublecomplex v,
c@427	5566 integer ldv, integer info);
c@427	5567
c@427	5568 /* Subroutine / int zgebal_(char job, integer n, doublecomplex a, integer
c@427	5569 lda, integer ilo, integer ihi, doublereal scale, integer *info);
c@427	5570
c@427	5571 /* Subroutine / int zgebd2_(integer m, integer n, doublecomplex a,
c@427	5572 integer lda, doublereal d__, doublereal e, doublecomplex tauq,
c@427	5573 doublecomplex taup, doublecomplex work, integer *info);
c@427	5574
c@427	5575 /* Subroutine / int zgebrd_(integer m, integer n, doublecomplex a,
c@427	5576 integer lda, doublereal d__, doublereal e, doublecomplex tauq,
c@427	5577 doublecomplex taup, doublecomplex work, integer lwork, integer
c@427	5578 info);
c@427	5579
c@427	5580 /* Subroutine / int zgecon_(char norm, integer n, doublecomplex a,
c@427	5581 integer lda, doublereal anorm, doublereal rcond, doublecomplex
c@427	5582 work, doublereal rwork, integer info);
c@427	5583
c@427	5584 /* Subroutine / int zgeequ_(integer m, integer n, doublecomplex a,
c@427	5585 integer lda, doublereal r__, doublereal c__, doublereal rowcnd,
c@427	5586 doublereal colcnd, doublereal amax, integer *info);
c@427	5587
c@427	5588 /* Subroutine / int zgeequb_(integer m, integer n, doublecomplex a,
c@427	5589 integer lda, doublereal r__, doublereal c__, doublereal rowcnd,
c@427	5590 doublereal colcnd, doublereal amax, integer *info);
c@427	5591
c@427	5592 /* Subroutine / int zgees_(char jobvs, char sort, L_fp select, integer n,
c@427	5593 doublecomplex a, integer lda, integer sdim, doublecomplex w,
c@427	5594 doublecomplex vs, integer ldvs, doublecomplex work, integer lwork,
c@427	5595 doublereal rwork, logical bwork, integer *info);
c@427	5596
c@427	5597 /* Subroutine / int zgeesx_(char jobvs, char sort, L_fp select, char
c@427	5598 sense, integer n, doublecomplex a, integer lda, integer sdim,
c@427	5599 doublecomplex w, doublecomplex vs, integer ldvs, doublereal
c@427	5600 rconde, doublereal rcondv, doublecomplex work, integer *lwork,
c@427	5601 doublereal rwork, logical bwork, integer *info);
c@427	5602
c@427	5603 /* Subroutine / int zgeev_(char jobvl, char jobvr, integer n,
c@427	5604 doublecomplex a, integer lda, doublecomplex w, doublecomplex vl,
c@427	5605 integer ldvl, doublecomplex vr, integer ldvr, doublecomplex work,
c@427	5606 integer lwork, doublereal rwork, integer *info);
c@427	5607
c@427	5608 /* Subroutine / int zgeevx_(char balanc, char jobvl, char jobvr, char *
c@427	5609 sense, integer n, doublecomplex a, integer lda, doublecomplex w,
c@427	5610 doublecomplex vl, integer ldvl, doublecomplex vr, integer ldvr,
c@427	5611 integer ilo, integer ihi, doublereal scale, doublereal abnrm,
c@427	5612 doublereal rconde, doublereal rcondv, doublecomplex work, integer
c@427	5613 lwork, doublereal rwork, integer info);
c@427	5614
c@427	5615 /* Subroutine / int zgegs_(char jobvsl, char jobvsr, integer n,
c@427	5616 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5617 doublecomplex alpha, doublecomplex beta, doublecomplex *vsl,
c@427	5618 integer ldvsl, doublecomplex vsr, integer ldvsr, doublecomplex
c@427	5619 work, integer lwork, doublereal rwork, integer *info);
c@427	5620
c@427	5621 /* Subroutine / int zgegv_(char jobvl, char jobvr, integer n,
c@427	5622 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5623 doublecomplex alpha, doublecomplex beta, doublecomplex *vl, integer
c@427	5624 ldvl, doublecomplex vr, integer ldvr, doublecomplex work, integer
c@427	5625 lwork, doublereal rwork, integer *info);
c@427	5626
c@427	5627 /* Subroutine / int zgehd2_(integer n, integer ilo, integer ihi,
c@427	5628 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	5629 work, integer *info);
c@427	5630
c@427	5631 /* Subroutine / int zgehrd_(integer n, integer ilo, integer ihi,
c@427	5632 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	5633 work, integer lwork, integer info);
c@427	5634
c@427	5635 /* Subroutine / int zgelq2_(integer m, integer n, doublecomplex a,
c@427	5636 integer lda, doublecomplex tau, doublecomplex work, integer info);
c@427	5637
c@427	5638 /* Subroutine / int zgelqf_(integer m, integer n, doublecomplex a,
c@427	5639 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	5640 integer *info);
c@427	5641
c@427	5642 /* Subroutine / int zgels_(char trans, integer m, integer n, integer *
c@427	5643 nrhs, doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5644 doublecomplex work, integer lwork, integer *info);
c@427	5645
c@427	5646 /* Subroutine / int zgelsd_(integer m, integer n, integer nrhs,
c@427	5647 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5648 doublereal s, doublereal rcond, integer rank, doublecomplex work,
c@427	5649 integer lwork, doublereal rwork, integer iwork, integer info);
c@427	5650
c@427	5651 /* Subroutine / int zgelss_(integer m, integer n, integer nrhs,
c@427	5652 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5653 doublereal s, doublereal rcond, integer rank, doublecomplex work,
c@427	5654 integer lwork, doublereal rwork, integer *info);
c@427	5655
c@427	5656 /* Subroutine / int zgelsx_(integer m, integer n, integer nrhs,
c@427	5657 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5658 integer jpvt, doublereal rcond, integer rank, doublecomplex work,
c@427	5659 doublereal rwork, integer info);
c@427	5660
c@427	5661 /* Subroutine / int zgelsy_(integer m, integer n, integer nrhs,
c@427	5662 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5663 integer jpvt, doublereal rcond, integer rank, doublecomplex work,
c@427	5664 integer lwork, doublereal rwork, integer *info);
c@427	5665
c@427	5666 /* Subroutine / int zgeql2_(integer m, integer n, doublecomplex a,
c@427	5667 integer lda, doublecomplex tau, doublecomplex work, integer info);
c@427	5668
c@427	5669 /* Subroutine / int zgeqlf_(integer m, integer n, doublecomplex a,
c@427	5670 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	5671 integer *info);
c@427	5672
c@427	5673 /* Subroutine / int zgeqp3_(integer m, integer n, doublecomplex a,
c@427	5674 integer lda, integer jpvt, doublecomplex tau, doublecomplex work,
c@427	5675 integer lwork, doublereal rwork, integer *info);
c@427	5676
c@427	5677 /* Subroutine / int zgeqpf_(integer m, integer n, doublecomplex a,
c@427	5678 integer lda, integer jpvt, doublecomplex tau, doublecomplex work,
c@427	5679 doublereal rwork, integer info);
c@427	5680
c@427	5681 /* Subroutine / int zgeqr2_(integer m, integer n, doublecomplex a,
c@427	5682 integer lda, doublecomplex tau, doublecomplex work, integer info);
c@427	5683
c@427	5684 /* Subroutine / int zgeqrf_(integer m, integer n, doublecomplex a,
c@427	5685 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	5686 integer *info);
c@427	5687
c@427	5688 /* Subroutine / int zgerfs_(char trans, integer n, integer nrhs,
c@427	5689 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	5690 integer ipiv, doublecomplex b, integer ldb, doublecomplex x,
c@427	5691 integer ldx, doublereal ferr, doublereal berr, doublecomplex work,
c@427	5692 doublereal rwork, integer info);
c@427	5693
c@427	5694 /* Subroutine / int zgerfsx_(char trans, char equed, integer n, integer *
c@427	5695 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5696 ldaf, integer ipiv, doublereal r__, doublereal c__, doublecomplex
c@427	5697 b, integer ldb, doublecomplex x, integer ldx, doublereal rcond,
c@427	5698 doublereal berr, integer n_err_bnds__, doublereal *err_bnds_norm__,
c@427	5699 doublereal err_bnds_comp__, integer nparams, doublereal *params,
c@427	5700 doublecomplex work, doublereal rwork, integer *info);
c@427	5701
c@427	5702 /* Subroutine / int zgerq2_(integer m, integer n, doublecomplex a,
c@427	5703 integer lda, doublecomplex tau, doublecomplex work, integer info);
c@427	5704
c@427	5705 /* Subroutine / int zgerqf_(integer m, integer n, doublecomplex a,
c@427	5706 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	5707 integer *info);
c@427	5708
c@427	5709 /* Subroutine / int zgesc2_(integer n, doublecomplex a, integer lda,
c@427	5710 doublecomplex rhs, integer ipiv, integer jpiv, doublereal scale);
c@427	5711
c@427	5712 /* Subroutine / int zgesdd_(char jobz, integer m, integer n,
c@427	5713 doublecomplex a, integer lda, doublereal s, doublecomplex u,
c@427	5714 integer ldu, doublecomplex vt, integer ldvt, doublecomplex work,
c@427	5715 integer lwork, doublereal rwork, integer iwork, integer info);
c@427	5716
c@427	5717 /* Subroutine / int zgesv_(integer n, integer nrhs, doublecomplex a,
c@427	5718 integer lda, integer ipiv, doublecomplex b, integer ldb, integer *
c@427	5719 info);
c@427	5720
c@427	5721 /* Subroutine / int zgesvd_(char jobu, char jobvt, integer m, integer *n,
c@427	5722 doublecomplex a, integer lda, doublereal s, doublecomplex u,
c@427	5723 integer ldu, doublecomplex vt, integer ldvt, doublecomplex work,
c@427	5724 integer lwork, doublereal rwork, integer *info);
c@427	5725
c@427	5726 /* Subroutine / int zgesvx_(char fact, char trans, integer n, integer *
c@427	5727 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5728 ldaf, integer ipiv, char equed, doublereal r__, doublereal c__,
c@427	5729 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	5730 doublereal rcond, doublereal ferr, doublereal berr, doublecomplex
c@427	5731 work, doublereal rwork, integer info);
c@427	5732
c@427	5733 /* Subroutine / int zgesvxx_(char fact, char trans, integer n, integer *
c@427	5734 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5735 ldaf, integer ipiv, char equed, doublereal r__, doublereal c__,
c@427	5736 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	5737 doublereal rcond, doublereal rpvgrw, doublereal berr, integer
c@427	5738 n_err_bnds__, doublereal err_bnds_norm__, doublereal
c@427	5739 err_bnds_comp__, integer nparams, doublereal params, doublecomplex *
c@427	5740 work, doublereal rwork, integer info);
c@427	5741
c@427	5742 /* Subroutine / int zgetc2_(integer n, doublecomplex a, integer lda,
c@427	5743 integer ipiv, integer jpiv, integer *info);
c@427	5744
c@427	5745 /* Subroutine / int zgetf2_(integer m, integer n, doublecomplex a,
c@427	5746 integer lda, integer ipiv, integer *info);
c@427	5747
c@427	5748 /* Subroutine / int zgetrf_(integer m, integer n, doublecomplex a,
c@427	5749 integer lda, integer ipiv, integer *info);
c@427	5750
c@427	5751 /* Subroutine / int zgetri_(integer n, doublecomplex a, integer lda,
c@427	5752 integer ipiv, doublecomplex work, integer lwork, integer info);
c@427	5753
c@427	5754 /* Subroutine / int zgetrs_(char trans, integer n, integer nrhs,
c@427	5755 doublecomplex a, integer lda, integer ipiv, doublecomplex b,
c@427	5756 integer ldb, integer info);
c@427	5757
c@427	5758 /* Subroutine / int zggbak_(char job, char side, integer n, integer *ilo,
c@427	5759 integer ihi, doublereal lscale, doublereal rscale, integer m,
c@427	5760 doublecomplex v, integer ldv, integer *info);
c@427	5761
c@427	5762 /* Subroutine / int zggbal_(char job, integer n, doublecomplex a, integer
c@427	5763 lda, doublecomplex b, integer ldb, integer ilo, integer *ihi,
c@427	5764 doublereal lscale, doublereal rscale, doublereal work, integer
c@427	5765 info);
c@427	5766
c@427	5767 /* Subroutine / int zgges_(char jobvsl, char jobvsr, char sort, L_fp
c@427	5768 selctg, integer n, doublecomplex a, integer lda, doublecomplex b,
c@427	5769 integer ldb, integer sdim, doublecomplex alpha, doublecomplex
c@427	5770 beta, doublecomplex vsl, integer ldvsl, doublecomplex *vsr, integer
c@427	5771 ldvsr, doublecomplex work, integer lwork, doublereal rwork,
c@427	5772 logical bwork, integer info);
c@427	5773
c@427	5774 /* Subroutine / int zggesx_(char jobvsl, char jobvsr, char sort, L_fp
c@427	5775 selctg, char sense, integer n, doublecomplex a, integer lda,
c@427	5776 doublecomplex b, integer ldb, integer sdim, doublecomplex alpha,
c@427	5777 doublecomplex beta, doublecomplex vsl, integer *ldvsl,
c@427	5778 doublecomplex vsr, integer ldvsr, doublereal rconde, doublereal
c@427	5779 rcondv, doublecomplex work, integer lwork, doublereal *rwork,
c@427	5780 integer iwork, integer liwork, logical bwork, integer info);
c@427	5781
c@427	5782 /* Subroutine / int zggev_(char jobvl, char jobvr, integer n,
c@427	5783 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5784 doublecomplex alpha, doublecomplex beta, doublecomplex *vl, integer
c@427	5785 ldvl, doublecomplex vr, integer ldvr, doublecomplex work, integer
c@427	5786 lwork, doublereal rwork, integer *info);
c@427	5787
c@427	5788 /* Subroutine / int zggevx_(char balanc, char jobvl, char jobvr, char *
c@427	5789 sense, integer n, doublecomplex a, integer lda, doublecomplex b,
c@427	5790 integer ldb, doublecomplex alpha, doublecomplex *beta,
c@427	5791 doublecomplex vl, integer ldvl, doublecomplex vr, integer ldvr,
c@427	5792 integer ilo, integer ihi, doublereal lscale, doublereal rscale,
c@427	5793 doublereal abnrm, doublereal bbnrm, doublereal rconde, doublereal
c@427	5794 rcondv, doublecomplex work, integer lwork, doublereal *rwork,
c@427	5795 integer iwork, logical bwork, integer *info);
c@427	5796
c@427	5797 /* Subroutine / int zggglm_(integer n, integer m, integer p,
c@427	5798 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5799 doublecomplex d__, doublecomplex x, doublecomplex *y, doublecomplex
c@427	5800 work, integer lwork, integer *info);
c@427	5801
c@427	5802 /* Subroutine / int zgghrd_(char compq, char compz, integer n, integer *
c@427	5803 ilo, integer ihi, doublecomplex a, integer lda, doublecomplex b,
c@427	5804 integer ldb, doublecomplex q, integer ldq, doublecomplex z__,
c@427	5805 integer ldz, integer info);
c@427	5806
c@427	5807 /* Subroutine / int zgglse_(integer m, integer n, integer p,
c@427	5808 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5809 doublecomplex c__, doublecomplex d__, doublecomplex *x,
c@427	5810 doublecomplex work, integer lwork, integer *info);
c@427	5811
c@427	5812 /* Subroutine / int zggqrf_(integer n, integer m, integer p,
c@427	5813 doublecomplex a, integer lda, doublecomplex taua, doublecomplex b,
c@427	5814 integer ldb, doublecomplex taub, doublecomplex work, integer
c@427	5815 lwork, integer *info);
c@427	5816
c@427	5817 /* Subroutine / int zggrqf_(integer m, integer p, integer n,
c@427	5818 doublecomplex a, integer lda, doublecomplex taua, doublecomplex b,
c@427	5819 integer ldb, doublecomplex taub, doublecomplex work, integer
c@427	5820 lwork, integer *info);
c@427	5821
c@427	5822 /* Subroutine / int zggsvd_(char jobu, char jobv, char jobq, integer *m,
c@427	5823 integer n, integer p, integer k, integer l, doublecomplex *a,
c@427	5824 integer lda, doublecomplex b, integer ldb, doublereal alpha,
c@427	5825 doublereal beta, doublecomplex u, integer ldu, doublecomplex v,
c@427	5826 integer ldv, doublecomplex q, integer ldq, doublecomplex work,
c@427	5827 doublereal rwork, integer iwork, integer *info);
c@427	5828
c@427	5829 /* Subroutine / int zggsvp_(char jobu, char jobv, char jobq, integer *m,
c@427	5830 integer p, integer n, doublecomplex a, integer lda, doublecomplex
c@427	5831 b, integer ldb, doublereal tola, doublereal tolb, integer *k,
c@427	5832 integer l, doublecomplex u, integer ldu, doublecomplex v, integer
c@427	5833 ldv, doublecomplex q, integer ldq, integer iwork, doublereal *
c@427	5834 rwork, doublecomplex tau, doublecomplex work, integer *info);
c@427	5835
c@427	5836 /* Subroutine / int zgtcon_(char norm, integer n, doublecomplex dl,
c@427	5837 doublecomplex d__, doublecomplex du, doublecomplex du2, integer
c@427	5838 ipiv, doublereal anorm, doublereal rcond, doublecomplex *work,
c@427	5839 integer *info);
c@427	5840
c@427	5841 /* Subroutine / int zgtrfs_(char trans, integer n, integer nrhs,
c@427	5842 doublecomplex dl, doublecomplex d__, doublecomplex *du,
c@427	5843 doublecomplex dlf, doublecomplex df, doublecomplex *duf,
c@427	5844 doublecomplex du2, integer ipiv, doublecomplex b, integer ldb,
c@427	5845 doublecomplex x, integer ldx, doublereal ferr, doublereal berr,
c@427	5846 doublecomplex work, doublereal rwork, integer *info);
c@427	5847
c@427	5848 /* Subroutine / int zgtsv_(integer n, integer nrhs, doublecomplex dl,
c@427	5849 doublecomplex d__, doublecomplex du, doublecomplex b, integer ldb,
c@427	5850 integer *info);
c@427	5851
c@427	5852 /* Subroutine / int zgtsvx_(char fact, char trans, integer n, integer *
c@427	5853 nrhs, doublecomplex dl, doublecomplex d__, doublecomplex *du,
c@427	5854 doublecomplex dlf, doublecomplex df, doublecomplex *duf,
c@427	5855 doublecomplex du2, integer ipiv, doublecomplex b, integer ldb,
c@427	5856 doublecomplex x, integer ldx, doublereal rcond, doublereal ferr,
c@427	5857 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	5858 info);
c@427	5859
c@427	5860 /* Subroutine / int zgttrf_(integer n, doublecomplex dl, doublecomplex
c@427	5861 d__, doublecomplex du, doublecomplex du2, integer ipiv, integer
c@427	5862 info);
c@427	5863
c@427	5864 /* Subroutine / int zgttrs_(char trans, integer n, integer nrhs,
c@427	5865 doublecomplex dl, doublecomplex d__, doublecomplex *du,
c@427	5866 doublecomplex du2, integer ipiv, doublecomplex b, integer ldb,
c@427	5867 integer *info);
c@427	5868
c@427	5869 /* Subroutine / int zgtts2_(integer itrans, integer n, integer nrhs,
c@427	5870 doublecomplex dl, doublecomplex d__, doublecomplex *du,
c@427	5871 doublecomplex du2, integer ipiv, doublecomplex b, integer ldb);
c@427	5872
c@427	5873 /* Subroutine / int zhbev_(char jobz, char uplo, integer n, integer *kd,
c@427	5874 doublecomplex ab, integer ldab, doublereal w, doublecomplex z__,
c@427	5875 integer ldz, doublecomplex work, doublereal rwork, integer info);
c@427	5876
c@427	5877 /* Subroutine / int zhbevd_(char jobz, char uplo, integer n, integer *kd,
c@427	5878 doublecomplex ab, integer ldab, doublereal w, doublecomplex z__,
c@427	5879 integer ldz, doublecomplex work, integer lwork, doublereal rwork,
c@427	5880 integer lrwork, integer iwork, integer liwork, integer info);
c@427	5881
c@427	5882 /* Subroutine / int zhbevx_(char jobz, char range, char uplo, integer *n,
c@427	5883 integer kd, doublecomplex ab, integer ldab, doublecomplex q,
c@427	5884 integer ldq, doublereal vl, doublereal vu, integer il, integer *
c@427	5885 iu, doublereal abstol, integer m, doublereal w, doublecomplex z__,
c@427	5886 integer ldz, doublecomplex work, doublereal rwork, integer iwork,
c@427	5887 integer ifail, integer info);
c@427	5888
c@427	5889 /* Subroutine / int zhbgst_(char vect, char uplo, integer n, integer *ka,
c@427	5890 integer kb, doublecomplex ab, integer ldab, doublecomplex bb,
c@427	5891 integer ldbb, doublecomplex x, integer ldx, doublecomplex work,
c@427	5892 doublereal rwork, integer info);
c@427	5893
c@427	5894 /* Subroutine / int zhbgv_(char jobz, char uplo, integer n, integer *ka,
c@427	5895 integer kb, doublecomplex ab, integer ldab, doublecomplex bb,
c@427	5896 integer ldbb, doublereal w, doublecomplex z__, integer ldz,
c@427	5897 doublecomplex work, doublereal rwork, integer *info);
c@427	5898
c@427	5899 /* Subroutine / int zhbgvd_(char jobz, char uplo, integer n, integer *ka,
c@427	5900 integer kb, doublecomplex ab, integer ldab, doublecomplex bb,
c@427	5901 integer ldbb, doublereal w, doublecomplex z__, integer ldz,
c@427	5902 doublecomplex work, integer lwork, doublereal rwork, integer
c@427	5903 lrwork, integer iwork, integer liwork, integer *info);
c@427	5904
c@427	5905 /* Subroutine / int zhbgvx_(char jobz, char range, char uplo, integer *n,
c@427	5906 integer ka, integer kb, doublecomplex ab, integer ldab,
c@427	5907 doublecomplex bb, integer ldbb, doublecomplex q, integer ldq,
c@427	5908 doublereal vl, doublereal vu, integer il, integer iu, doublereal *
c@427	5909 abstol, integer m, doublereal w, doublecomplex z__, integer ldz,
c@427	5910 doublecomplex work, doublereal rwork, integer iwork, integer
c@427	5911 ifail, integer *info);
c@427	5912
c@427	5913 /* Subroutine / int zhbtrd_(char vect, char uplo, integer n, integer *kd,
c@427	5914 doublecomplex ab, integer ldab, doublereal d__, doublereal e,
c@427	5915 doublecomplex q, integer ldq, doublecomplex work, integer info);
c@427	5916
c@427	5917 /* Subroutine / int zhecon_(char uplo, integer n, doublecomplex a,
c@427	5918 integer lda, integer ipiv, doublereal anorm, doublereal rcond,
c@427	5919 doublecomplex work, integer info);
c@427	5920
c@427	5921 /* Subroutine / int zheequb_(char uplo, integer n, doublecomplex a,
c@427	5922 integer lda, doublereal s, doublereal scond, doublereal amax,
c@427	5923 doublecomplex work, integer info);
c@427	5924
c@427	5925 /* Subroutine / int zheev_(char jobz, char uplo, integer n, doublecomplex
c@427	5926 a, integer lda, doublereal w, doublecomplex work, integer *lwork,
c@427	5927 doublereal rwork, integer info);
c@427	5928
c@427	5929 /* Subroutine / int zheevd_(char jobz, char uplo, integer n,
c@427	5930 doublecomplex a, integer lda, doublereal w, doublecomplex work,
c@427	5931 integer lwork, doublereal rwork, integer lrwork, integer iwork,
c@427	5932 integer liwork, integer info);
c@427	5933
c@427	5934 /* Subroutine / int zheevr_(char jobz, char range, char uplo, integer *n,
c@427	5935 doublecomplex a, integer lda, doublereal vl, doublereal vu,
c@427	5936 integer il, integer iu, doublereal abstol, integer m, doublereal *
c@427	5937 w, doublecomplex z__, integer ldz, integer isuppz, doublecomplex
c@427	5938 work, integer lwork, doublereal rwork, integer lrwork, integer
c@427	5939 iwork, integer liwork, integer info);
c@427	5940
c@427	5941 /* Subroutine / int zheevx_(char jobz, char range, char uplo, integer *n,
c@427	5942 doublecomplex a, integer lda, doublereal vl, doublereal vu,
c@427	5943 integer il, integer iu, doublereal abstol, integer m, doublereal *
c@427	5944 w, doublecomplex z__, integer ldz, doublecomplex work, integer
c@427	5945 lwork, doublereal rwork, integer iwork, integer ifail, integer
c@427	5946 info);
c@427	5947
c@427	5948 /* Subroutine / int zhegs2_(integer itype, char uplo, integer n,
c@427	5949 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5950 integer *info);
c@427	5951
c@427	5952 /* Subroutine / int zhegst_(integer itype, char uplo, integer n,
c@427	5953 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5954 integer *info);
c@427	5955
c@427	5956 /* Subroutine / int zhegv_(integer itype, char jobz, char uplo, integer *
c@427	5957 n, doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5958 doublereal w, doublecomplex work, integer lwork, doublereal rwork,
c@427	5959 integer *info);
c@427	5960
c@427	5961 /* Subroutine / int zhegvd_(integer itype, char jobz, char uplo, integer *
c@427	5962 n, doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	5963 doublereal w, doublecomplex work, integer lwork, doublereal rwork,
c@427	5964 integer lrwork, integer iwork, integer liwork, integer info);
c@427	5965
c@427	5966 /* Subroutine / int zhegvx_(integer itype, char jobz, char range, char *
c@427	5967 uplo, integer n, doublecomplex a, integer lda, doublecomplex b,
c@427	5968 integer ldb, doublereal vl, doublereal vu, integer il, integer *
c@427	5969 iu, doublereal abstol, integer m, doublereal w, doublecomplex z__,
c@427	5970 integer ldz, doublecomplex work, integer lwork, doublereal rwork,
c@427	5971 integer iwork, integer ifail, integer *info);
c@427	5972
c@427	5973 /* Subroutine / int zherfs_(char uplo, integer n, integer nrhs,
c@427	5974 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	5975 integer ipiv, doublecomplex b, integer ldb, doublecomplex x,
c@427	5976 integer ldx, doublereal ferr, doublereal berr, doublecomplex work,
c@427	5977 doublereal rwork, integer info);
c@427	5978
c@427	5979 /* Subroutine / int zherfsx_(char uplo, char equed, integer n, integer *
c@427	5980 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5981 ldaf, integer ipiv, doublereal s, doublecomplex b, integer ldb,
c@427	5982 doublecomplex x, integer ldx, doublereal rcond, doublereal berr,
c@427	5983 integer n_err_bnds__, doublereal err_bnds_norm__, doublereal *
c@427	5984 err_bnds_comp__, integer nparams, doublereal params, doublecomplex *
c@427	5985 work, doublereal rwork, integer info);
c@427	5986
c@427	5987 /* Subroutine / int zhesv_(char uplo, integer n, integer nrhs,
c@427	5988 doublecomplex a, integer lda, integer ipiv, doublecomplex b,
c@427	5989 integer ldb, doublecomplex work, integer lwork, integer info);
c@427	5990
c@427	5991 /* Subroutine / int zhesvx_(char fact, char uplo, integer n, integer *
c@427	5992 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5993 ldaf, integer ipiv, doublecomplex b, integer ldb, doublecomplex x,
c@427	5994 integer ldx, doublereal rcond, doublereal ferr, doublereal berr,
c@427	5995 doublecomplex work, integer lwork, doublereal rwork, integer info);
c@427	5996
c@427	5997 /* Subroutine / int zhesvxx_(char fact, char uplo, integer n, integer *
c@427	5998 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	5999 ldaf, integer ipiv, char equed, doublereal s, doublecomplex b,
c@427	6000 integer ldb, doublecomplex x, integer ldx, doublereal rcond,
c@427	6001 doublereal rpvgrw, doublereal berr, integer *n_err_bnds__,
c@427	6002 doublereal err_bnds_norm__, doublereal err_bnds_comp__, integer *
c@427	6003 nparams, doublereal params, doublecomplex work, doublereal *rwork,
c@427	6004 integer *info);
c@427	6005
c@427	6006 /* Subroutine / int zhetd2_(char uplo, integer n, doublecomplex a,
c@427	6007 integer lda, doublereal d__, doublereal e, doublecomplex tau,
c@427	6008 integer *info);
c@427	6009
c@427	6010 /* Subroutine / int zhetf2_(char uplo, integer n, doublecomplex a,
c@427	6011 integer lda, integer ipiv, integer *info);
c@427	6012
c@427	6013 /* Subroutine / int zhetrd_(char uplo, integer n, doublecomplex a,
c@427	6014 integer lda, doublereal d__, doublereal e, doublecomplex tau,
c@427	6015 doublecomplex work, integer lwork, integer *info);
c@427	6016
c@427	6017 /* Subroutine / int zhetrf_(char uplo, integer n, doublecomplex a,
c@427	6018 integer lda, integer ipiv, doublecomplex work, integer lwork,
c@427	6019 integer *info);
c@427	6020
c@427	6021 /* Subroutine / int zhetri_(char uplo, integer n, doublecomplex a,
c@427	6022 integer lda, integer ipiv, doublecomplex work, integer info);
c@427	6023
c@427	6024 /* Subroutine / int zhetrs_(char uplo, integer n, integer nrhs,
c@427	6025 doublecomplex a, integer lda, integer ipiv, doublecomplex b,
c@427	6026 integer ldb, integer info);
c@427	6027
c@427	6028 /* Subroutine / int zhfrk_(char transr, char uplo, char trans, integer *n,
c@427	6029 integer k, doublereal alpha, doublecomplex a, integer lda,
c@427	6030 doublereal beta, doublecomplex c__);
c@427	6031
c@427	6032 /* Subroutine / int zhgeqz_(char job, char compq, char compz, integer *n,
c@427	6033 integer ilo, integer ihi, doublecomplex h__, integer ldh,
c@427	6034 doublecomplex t, integer ldt, doublecomplex alpha, doublecomplex
c@427	6035 beta, doublecomplex q, integer ldq, doublecomplex z__, integer
c@427	6036 ldz, doublecomplex work, integer lwork, doublereal rwork, integer
c@427	6037 info);
c@427	6038
c@427	6039 /* Subroutine / int zhpcon_(char uplo, integer n, doublecomplex ap,
c@427	6040 integer ipiv, doublereal anorm, doublereal rcond, doublecomplex
c@427	6041 work, integer *info);
c@427	6042
c@427	6043 /* Subroutine / int zhpev_(char jobz, char uplo, integer n, doublecomplex
c@427	6044 ap, doublereal w, doublecomplex z__, integer ldz, doublecomplex *
c@427	6045 work, doublereal rwork, integer info);
c@427	6046
c@427	6047 /* Subroutine / int zhpevd_(char jobz, char uplo, integer n,
c@427	6048 doublecomplex ap, doublereal w, doublecomplex z__, integer ldz,
c@427	6049 doublecomplex work, integer lwork, doublereal rwork, integer
c@427	6050 lrwork, integer iwork, integer liwork, integer *info);
c@427	6051
c@427	6052 /* Subroutine / int zhpevx_(char jobz, char range, char uplo, integer *n,
c@427	6053 doublecomplex ap, doublereal vl, doublereal vu, integer il,
c@427	6054 integer iu, doublereal abstol, integer m, doublereal w,
c@427	6055 doublecomplex z__, integer ldz, doublecomplex work, doublereal
c@427	6056 rwork, integer iwork, integer ifail, integer *info);
c@427	6057
c@427	6058 /* Subroutine / int zhpgst_(integer itype, char uplo, integer n,
c@427	6059 doublecomplex ap, doublecomplex bp, integer *info);
c@427	6060
c@427	6061 /* Subroutine / int zhpgv_(integer itype, char jobz, char uplo, integer *
c@427	6062 n, doublecomplex ap, doublecomplex bp, doublereal *w, doublecomplex
c@427	6063 z__, integer ldz, doublecomplex work, doublereal rwork, integer *
c@427	6064 info);
c@427	6065
c@427	6066 /* Subroutine / int zhpgvd_(integer itype, char jobz, char uplo, integer *
c@427	6067 n, doublecomplex ap, doublecomplex bp, doublereal *w, doublecomplex
c@427	6068 z__, integer ldz, doublecomplex work, integer lwork, doublereal *
c@427	6069 rwork, integer lrwork, integer iwork, integer liwork, integer
c@427	6070 info);
c@427	6071
c@427	6072 /* Subroutine / int zhpgvx_(integer itype, char jobz, char range, char *
c@427	6073 uplo, integer n, doublecomplex ap, doublecomplex bp, doublereal
c@427	6074 vl, doublereal vu, integer il, integer iu, doublereal abstol,
c@427	6075 integer m, doublereal w, doublecomplex z__, integer ldz,
c@427	6076 doublecomplex work, doublereal rwork, integer iwork, integer
c@427	6077 ifail, integer *info);
c@427	6078
c@427	6079 /* Subroutine / int zhprfs_(char uplo, integer n, integer nrhs,
c@427	6080 doublecomplex ap, doublecomplex afp, integer ipiv, doublecomplex
c@427	6081 b, integer ldb, doublecomplex x, integer ldx, doublereal ferr,
c@427	6082 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	6083 info);
c@427	6084
c@427	6085 /* Subroutine / int zhpsv_(char uplo, integer n, integer nrhs,
c@427	6086 doublecomplex ap, integer ipiv, doublecomplex b, integer ldb,
c@427	6087 integer *info);
c@427	6088
c@427	6089 /* Subroutine / int zhpsvx_(char fact, char uplo, integer n, integer *
c@427	6090 nrhs, doublecomplex ap, doublecomplex afp, integer *ipiv,
c@427	6091 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6092 doublereal rcond, doublereal ferr, doublereal berr, doublecomplex
c@427	6093 work, doublereal rwork, integer info);
c@427	6094
c@427	6095 /* Subroutine / int zhptrd_(char uplo, integer n, doublecomplex ap,
c@427	6096 doublereal d__, doublereal e, doublecomplex tau, integer info);
c@427	6097
c@427	6098 /* Subroutine / int zhptrf_(char uplo, integer n, doublecomplex ap,
c@427	6099 integer ipiv, integer info);
c@427	6100
c@427	6101 /* Subroutine / int zhptri_(char uplo, integer n, doublecomplex ap,
c@427	6102 integer ipiv, doublecomplex work, integer *info);
c@427	6103
c@427	6104 /* Subroutine / int zhptrs_(char uplo, integer n, integer nrhs,
c@427	6105 doublecomplex ap, integer ipiv, doublecomplex b, integer ldb,
c@427	6106 integer *info);
c@427	6107
c@427	6108 /* Subroutine / int zhsein_(char side, char eigsrc, char initv, logical *
c@427	6109 select, integer n, doublecomplex h__, integer ldh, doublecomplex
c@427	6110 w, doublecomplex vl, integer ldvl, doublecomplex vr, integer ldvr,
c@427	6111 integer mm, integer m, doublecomplex work, doublereal rwork,
c@427	6112 integer ifaill, integer ifailr, integer *info);
c@427	6113
c@427	6114 /* Subroutine / int zhseqr_(char job, char compz, integer n, integer *ilo,
c@427	6115 integer ihi, doublecomplex h__, integer ldh, doublecomplex w,
c@427	6116 doublecomplex z__, integer ldz, doublecomplex work, integer lwork,
c@427	6117 integer *info);
c@427	6118
c@427	6119 /* Subroutine / int zla_gbamv__(integer trans, integer m, integer n,
c@427	6120 integer kl, integer ku, doublereal alpha, doublecomplex ab,
c@427	6121 integer ldab, doublecomplex x, integer incx, doublereal beta,
c@427	6122 doublereal y, integer incy);
c@427	6123
c@427	6124 doublereal zla_gbrcond_c__(char trans, integer n, integer kl, integer ku,
c@427	6125 doublecomplex ab, integer ldab, doublecomplex afb, integer ldafb,
c@427	6126 integer ipiv, doublereal c__, logical capply, integer info,
c@427	6127 doublecomplex work, doublereal rwork, ftnlen trans_len);
c@427	6128
c@427	6129 doublereal zla_gbrcond_x__(char trans, integer n, integer kl, integer ku,
c@427	6130 doublecomplex ab, integer ldab, doublecomplex afb, integer ldafb,
c@427	6131 integer ipiv, doublecomplex x, integer info, doublecomplex work,
c@427	6132 doublereal *rwork, ftnlen trans_len);
c@427	6133
c@427	6134 /* Subroutine / int zla_gbrfsx_extended__(integer prec_type__, integer *
c@427	6135 trans_type__, integer n, integer kl, integer ku, integer nrhs,
c@427	6136 doublecomplex ab, integer ldab, doublecomplex afb, integer ldafb,
c@427	6137 integer ipiv, logical colequ, doublereal c__, doublecomplex b,
c@427	6138 integer ldb, doublecomplex y, integer ldy, doublereal berr_out__,
c@427	6139 integer n_norms__, doublereal errs_n__, doublereal *errs_c__,
c@427	6140 doublecomplex res, doublereal ayb, doublecomplex *dy, doublecomplex
c@427	6141 y_tail__, doublereal rcond, integer ithresh, doublereal rthresh,
c@427	6142 doublereal dz_ub__, logical ignore_cwise__, integer *info);
c@427	6143
c@427	6144 doublereal zla_gbrpvgrw__(integer n, integer kl, integer ku, integer
c@427	6145 ncols, doublecomplex ab, integer ldab, doublecomplex afb, integer
c@427	6146 ldafb);
c@427	6147
c@427	6148 /* Subroutine / int zla_geamv__(integer trans, integer m, integer n,
c@427	6149 doublereal alpha, doublecomplex a, integer lda, doublecomplex x,
c@427	6150 integer incx, doublereal beta, doublereal y, integer incy);
c@427	6151
c@427	6152 doublereal zla_gercond_c__(char trans, integer n, doublecomplex *a, integer
c@427	6153 lda, doublecomplex af, integer ldaf, integer ipiv, doublereal *
c@427	6154 c__, logical capply, integer info, doublecomplex work, doublereal
c@427	6155 rwork, ftnlen trans_len);
c@427	6156
c@427	6157 doublereal zla_gercond_x__(char trans, integer n, doublecomplex *a, integer
c@427	6158 lda, doublecomplex af, integer ldaf, integer ipiv, doublecomplex *
c@427	6159 x, integer info, doublecomplex work, doublereal *rwork, ftnlen
c@427	6160 trans_len);
c@427	6161
c@427	6162 /* Subroutine / int zla_gerfsx_extended__(integer prec_type__, integer *
c@427	6163 trans_type__, integer n, integer nrhs, doublecomplex a, integer
c@427	6164 lda, doublecomplex af, integer ldaf, integer ipiv, logical colequ,
c@427	6165 doublereal c__, doublecomplex b, integer ldb, doublecomplex y,
c@427	6166 integer ldy, doublereal berr_out__, integer n_norms__, doublereal
c@427	6167 errs_n__, doublereal errs_c__, doublecomplex res, doublereal *ayb,
c@427	6168 doublecomplex dy, doublecomplex y_tail__, doublereal *rcond,
c@427	6169 integer ithresh, doublereal rthresh, doublereal dz_ub__, logical
c@427	6170 ignore_cwise__, integer *info);
c@427	6171
c@427	6172 /* Subroutine / int zla_heamv__(integer uplo, integer n, doublereal alpha,
c@427	6173 doublecomplex a, integer lda, doublecomplex x, integer incx,
c@427	6174 doublereal beta, doublereal y, integer *incy);
c@427	6175
c@427	6176 doublereal zla_hercond_c__(char uplo, integer n, doublecomplex a, integer
c@427	6177 lda, doublecomplex af, integer ldaf, integer ipiv, doublereal c__,
c@427	6178 logical capply, integer info, doublecomplex work, doublereal
c@427	6179 rwork, ftnlen uplo_len);
c@427	6180
c@427	6181 doublereal zla_hercond_x__(char uplo, integer n, doublecomplex a, integer
c@427	6182 lda, doublecomplex af, integer ldaf, integer ipiv, doublecomplex
c@427	6183 x, integer info, doublecomplex work, doublereal *rwork, ftnlen
c@427	6184 uplo_len);
c@427	6185
c@427	6186 /* Subroutine / int zla_herfsx_extended__(integer prec_type__, char *uplo,
c@427	6187 integer n, integer nrhs, doublecomplex a, integer lda,
c@427	6188 doublecomplex af, integer ldaf, integer ipiv, logical colequ,
c@427	6189 doublereal c__, doublecomplex b, integer ldb, doublecomplex y,
c@427	6190 integer ldy, doublereal berr_out__, integer n_norms__, doublereal
c@427	6191 errs_n__, doublereal errs_c__, doublecomplex res, doublereal *ayb,
c@427	6192 doublecomplex dy, doublecomplex y_tail__, doublereal *rcond,
c@427	6193 integer ithresh, doublereal rthresh, doublereal dz_ub__, logical
c@427	6194 ignore_cwise__, integer *info, ftnlen uplo_len);
c@427	6195
c@427	6196 doublereal zla_herpvgrw__(char uplo, integer n, integer *info,
c@427	6197 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	6198 integer ipiv, doublereal work, ftnlen uplo_len);
c@427	6199
c@427	6200 /* Subroutine / int zla_lin_berr__(integer n, integer nz, integer nrhs,
c@427	6201 doublecomplex res, doublereal ayb, doublereal *berr);
c@427	6202
c@427	6203 doublereal zla_porcond_c__(char uplo, integer n, doublecomplex a, integer
c@427	6204 lda, doublecomplex af, integer ldaf, doublereal c__, logical
c@427	6205 capply, integer info, doublecomplex work, doublereal *rwork, ftnlen
c@427	6206 uplo_len);
c@427	6207
c@427	6208 doublereal zla_porcond_x__(char uplo, integer n, doublecomplex a, integer
c@427	6209 lda, doublecomplex af, integer ldaf, doublecomplex x, integer
c@427	6210 info, doublecomplex work, doublereal rwork, ftnlen uplo_len);
c@427	6211
c@427	6212 /* Subroutine / int zla_porfsx_extended__(integer prec_type__, char *uplo,
c@427	6213 integer n, integer nrhs, doublecomplex a, integer lda,
c@427	6214 doublecomplex af, integer ldaf, logical colequ, doublereal c__,
c@427	6215 doublecomplex b, integer ldb, doublecomplex y, integer ldy,
c@427	6216 doublereal berr_out__, integer n_norms__, doublereal *errs_n__,
c@427	6217 doublereal errs_c__, doublecomplex res, doublereal *ayb,
c@427	6218 doublecomplex dy, doublecomplex y_tail__, doublereal *rcond,
c@427	6219 integer ithresh, doublereal rthresh, doublereal dz_ub__, logical
c@427	6220 ignore_cwise__, integer *info, ftnlen uplo_len);
c@427	6221
c@427	6222 doublereal zla_porpvgrw__(char uplo, integer ncols, doublecomplex *a,
c@427	6223 integer lda, doublecomplex af, integer ldaf, doublereal work,
c@427	6224 ftnlen uplo_len);
c@427	6225
c@427	6226 doublereal zla_rpvgrw__(integer n, integer ncols, doublecomplex *a, integer
c@427	6227 lda, doublecomplex af, integer *ldaf);
c@427	6228
c@427	6229 /* Subroutine / int zla_syamv__(integer uplo, integer n, doublereal alpha,
c@427	6230 doublecomplex a, integer lda, doublecomplex x, integer incx,
c@427	6231 doublereal beta, doublereal y, integer *incy);
c@427	6232
c@427	6233 doublereal zla_syrcond_c__(char uplo, integer n, doublecomplex a, integer
c@427	6234 lda, doublecomplex af, integer ldaf, integer ipiv, doublereal c__,
c@427	6235 logical capply, integer info, doublecomplex work, doublereal
c@427	6236 rwork, ftnlen uplo_len);
c@427	6237
c@427	6238 doublereal zla_syrcond_x__(char uplo, integer n, doublecomplex a, integer
c@427	6239 lda, doublecomplex af, integer ldaf, integer ipiv, doublecomplex
c@427	6240 x, integer info, doublecomplex work, doublereal *rwork, ftnlen
c@427	6241 uplo_len);
c@427	6242
c@427	6243 /* Subroutine / int zla_syrfsx_extended__(integer prec_type__, char *uplo,
c@427	6244 integer n, integer nrhs, doublecomplex a, integer lda,
c@427	6245 doublecomplex af, integer ldaf, integer ipiv, logical colequ,
c@427	6246 doublereal c__, doublecomplex b, integer ldb, doublecomplex y,
c@427	6247 integer ldy, doublereal berr_out__, integer n_norms__, doublereal
c@427	6248 errs_n__, doublereal errs_c__, doublecomplex res, doublereal *ayb,
c@427	6249 doublecomplex dy, doublecomplex y_tail__, doublereal *rcond,
c@427	6250 integer ithresh, doublereal rthresh, doublereal dz_ub__, logical
c@427	6251 ignore_cwise__, integer *info, ftnlen uplo_len);
c@427	6252
c@427	6253 doublereal zla_syrpvgrw__(char uplo, integer n, integer *info,
c@427	6254 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	6255 integer ipiv, doublereal work, ftnlen uplo_len);
c@427	6256
c@427	6257 /* Subroutine / int zla_wwaddw__(integer n, doublecomplex *x, doublecomplex
c@427	6258 y, doublecomplex w);
c@427	6259
c@427	6260 /* Subroutine / int zlabrd_(integer m, integer n, integer nb,
c@427	6261 doublecomplex a, integer lda, doublereal d__, doublereal e,
c@427	6262 doublecomplex tauq, doublecomplex taup, doublecomplex x, integer
c@427	6263 ldx, doublecomplex y, integer ldy);
c@427	6264
c@427	6265 /* Subroutine / int zlacgv_(integer n, doublecomplex x, integer incx);
c@427	6266
c@427	6267 /* Subroutine / int zlacn2_(integer n, doublecomplex v, doublecomplex x,
c@427	6268 doublereal est, integer kase, integer *isave);
c@427	6269
c@427	6270 /* Subroutine / int zlacon_(integer n, doublecomplex v, doublecomplex x,
c@427	6271 doublereal est, integer kase);
c@427	6272
c@427	6273 /* Subroutine / int zlacp2_(char uplo, integer m, integer n, doublereal *
c@427	6274 a, integer lda, doublecomplex b, integer *ldb);
c@427	6275
c@427	6276 /* Subroutine / int zlacpy_(char uplo, integer m, integer n,
c@427	6277 doublecomplex a, integer lda, doublecomplex b, integer ldb);
c@427	6278
c@427	6279 /* Subroutine / int zlacrm_(integer m, integer n, doublecomplex a,
c@427	6280 integer lda, doublereal b, integer ldb, doublecomplex c__,
c@427	6281 integer ldc, doublereal rwork);
c@427	6282
c@427	6283 /* Subroutine / int zlacrt_(integer n, doublecomplex cx, integer incx,
c@427	6284 doublecomplex cy, integer incy, doublecomplex c__, doublecomplex
c@427	6285 s);
c@427	6286
c@427	6287 /* Double Complex / VOID zladiv_(doublecomplex ret_val, doublecomplex *x,
c@427	6288 doublecomplex *y);
c@427	6289
c@427	6290 /* Subroutine / int zlaed0_(integer qsiz, integer n, doublereal d__,
c@427	6291 doublereal e, doublecomplex q, integer ldq, doublecomplex qstore,
c@427	6292 integer ldqs, doublereal rwork, integer iwork, integer info);
c@427	6293
c@427	6294 /* Subroutine / int zlaed7_(integer n, integer cutpnt, integer qsiz,
c@427	6295 integer tlvls, integer curlvl, integer curpbm, doublereal d__,
c@427	6296 doublecomplex q, integer ldq, doublereal rho, integer indxq,
c@427	6297 doublereal qstore, integer qptr, integer prmptr, integer perm,
c@427	6298 integer givptr, integer givcol, doublereal givnum, doublecomplex
c@427	6299 work, doublereal rwork, integer iwork, integer *info);
c@427	6300
c@427	6301 /* Subroutine / int zlaed8_(integer k, integer n, integer qsiz,
c@427	6302 doublecomplex q, integer ldq, doublereal d__, doublereal rho,
c@427	6303 integer cutpnt, doublereal z__, doublereal dlamda, doublecomplex
c@427	6304 q2, integer ldq2, doublereal w, integer indxp, integer indx,
c@427	6305 integer indxq, integer perm, integer givptr, integer givcol,
c@427	6306 doublereal givnum, integer info);
c@427	6307
c@427	6308 /* Subroutine / int zlaein_(logical rightv, logical noinit, integer n,
c@427	6309 doublecomplex h__, integer ldh, doublecomplex w, doublecomplex v,
c@427	6310 doublecomplex b, integer ldb, doublereal rwork, doublereal eps3,
c@427	6311 doublereal smlnum, integer info);
c@427	6312
c@427	6313 /* Subroutine / int zlaesy_(doublecomplex a, doublecomplex *b,
c@427	6314 doublecomplex c__, doublecomplex rt1, doublecomplex *rt2,
c@427	6315 doublecomplex evscal, doublecomplex cs1, doublecomplex *sn1);
c@427	6316
c@427	6317 /* Subroutine / int zlaev2_(doublecomplex a, doublecomplex *b,
c@427	6318 doublecomplex c__, doublereal rt1, doublereal rt2, doublereal cs1,
c@427	6319 doublecomplex *sn1);
c@427	6320
c@427	6321 /* Subroutine / int zlag2c_(integer m, integer n, doublecomplex a,
c@427	6322 integer lda, complex sa, integer ldsa, integer info);
c@427	6323
c@427	6324 /* Subroutine / int zlags2_(logical upper, doublereal a1, doublecomplex
c@427	6325 a2, doublereal a3, doublereal b1, doublecomplex b2, doublereal b3,
c@427	6326 doublereal csu, doublecomplex snu, doublereal csv, doublecomplex
c@427	6327 snv, doublereal csq, doublecomplex snq);
c@427	6328
c@427	6329 /* Subroutine / int zlagtm_(char trans, integer n, integer nrhs,
c@427	6330 doublereal alpha, doublecomplex dl, doublecomplex *d__,
c@427	6331 doublecomplex du, doublecomplex x, integer ldx, doublereal beta,
c@427	6332 doublecomplex b, integer ldb);
c@427	6333
c@427	6334 /* Subroutine / int zlahef_(char uplo, integer n, integer nb, integer *kb,
c@427	6335 doublecomplex a, integer lda, integer ipiv, doublecomplex w,
c@427	6336 integer ldw, integer info);
c@427	6337
c@427	6338 /* Subroutine / int zlahqr_(logical wantt, logical wantz, integer n,
c@427	6339 integer ilo, integer ihi, doublecomplex h__, integer ldh,
c@427	6340 doublecomplex w, integer iloz, integer ihiz, doublecomplex z__,
c@427	6341 integer ldz, integer info);
c@427	6342
c@427	6343 /* Subroutine / int zlahr2_(integer n, integer k, integer nb,
c@427	6344 doublecomplex a, integer lda, doublecomplex tau, doublecomplex t,
c@427	6345 integer ldt, doublecomplex y, integer *ldy);
c@427	6346
c@427	6347 /* Subroutine / int zlahrd_(integer n, integer k, integer nb,
c@427	6348 doublecomplex a, integer lda, doublecomplex tau, doublecomplex t,
c@427	6349 integer ldt, doublecomplex y, integer *ldy);
c@427	6350
c@427	6351 /* Subroutine / int zlaic1_(integer job, integer j, doublecomplex x,
c@427	6352 doublereal sest, doublecomplex w, doublecomplex gamma, doublereal
c@427	6353 sestpr, doublecomplex s, doublecomplex c__);
c@427	6354
c@427	6355 /* Subroutine / int zlals0_(integer icompq, integer nl, integer nr,
c@427	6356 integer sqre, integer nrhs, doublecomplex b, integer ldb,
c@427	6357 doublecomplex bx, integer ldbx, integer perm, integer givptr,
c@427	6358 integer givcol, integer ldgcol, doublereal givnum, integer ldgnum,
c@427	6359 doublereal poles, doublereal difl, doublereal difr, doublereal
c@427	6360 z__, integer k, doublereal c__, doublereal s, doublereal rwork,
c@427	6361 integer *info);
c@427	6362
c@427	6363 /* Subroutine / int zlalsa_(integer icompq, integer smlsiz, integer n,
c@427	6364 integer nrhs, doublecomplex b, integer ldb, doublecomplex bx,
c@427	6365 integer ldbx, doublereal u, integer ldu, doublereal vt, integer *
c@427	6366 k, doublereal difl, doublereal difr, doublereal z__, doublereal
c@427	6367 poles, integer givptr, integer givcol, integer ldgcol, integer
c@427	6368 perm, doublereal givnum, doublereal c__, doublereal s, doublereal
c@427	6369 rwork, integer iwork, integer info);
c@427	6370
c@427	6371 /* Subroutine / int zlalsd_(char uplo, integer smlsiz, integer n, integer
c@427	6372 nrhs, doublereal d__, doublereal e, doublecomplex b, integer *ldb,
c@427	6373 doublereal rcond, integer rank, doublecomplex work, doublereal
c@427	6374 rwork, integer iwork, integer info);
c@427	6375
c@427	6376 doublereal zlangb_(char norm, integer n, integer kl, integer ku,
c@427	6377 doublecomplex ab, integer ldab, doublereal *work);
c@427	6378
c@427	6379 doublereal zlange_(char norm, integer m, integer n, doublecomplex a,
c@427	6380 integer lda, doublereal work);
c@427	6381
c@427	6382 doublereal zlangt_(char norm, integer n, doublecomplex dl, doublecomplex
c@427	6383 d__, doublecomplex *du);
c@427	6384
c@427	6385 doublereal zlanhb_(char norm, char uplo, integer n, integer k,
c@427	6386 doublecomplex ab, integer ldab, doublereal *work);
c@427	6387
c@427	6388 doublereal zlanhe_(char norm, char uplo, integer n, doublecomplex a,
c@427	6389 integer lda, doublereal work);
c@427	6390
c@427	6391 doublereal zlanhf_(char norm, char transr, char uplo, integer n,
c@427	6392 doublecomplex a, doublereal work);
c@427	6393
c@427	6394 doublereal zlanhp_(char norm, char uplo, integer n, doublecomplex ap,
c@427	6395 doublereal *work);
c@427	6396
c@427	6397 doublereal zlanhs_(char norm, integer n, doublecomplex a, integer lda,
c@427	6398 doublereal *work);
c@427	6399
c@427	6400 doublereal zlanht_(char norm, integer n, doublereal d__, doublecomplex e);
c@427	6401
c@427	6402 doublereal zlansb_(char norm, char uplo, integer n, integer k,
c@427	6403 doublecomplex ab, integer ldab, doublereal *work);
c@427	6404
c@427	6405 doublereal zlansp_(char norm, char uplo, integer n, doublecomplex ap,
c@427	6406 doublereal *work);
c@427	6407
c@427	6408 doublereal zlansy_(char norm, char uplo, integer n, doublecomplex a,
c@427	6409 integer lda, doublereal work);
c@427	6410
c@427	6411 doublereal zlantb_(char norm, char uplo, char diag, integer n, integer *k,
c@427	6412 doublecomplex ab, integer ldab, doublereal *work);
c@427	6413
c@427	6414 doublereal zlantp_(char norm, char uplo, char diag, integer n,
c@427	6415 doublecomplex ap, doublereal work);
c@427	6416
c@427	6417 doublereal zlantr_(char norm, char uplo, char diag, integer m, integer *n,
c@427	6418 doublecomplex a, integer lda, doublereal *work);
c@427	6419
c@427	6420 /* Subroutine / int zlapll_(integer n, doublecomplex x, integer incx,
c@427	6421 doublecomplex y, integer incy, doublereal *ssmin);
c@427	6422
c@427	6423 /* Subroutine / int zlapmt_(logical forwrd, integer m, integer n,
c@427	6424 doublecomplex x, integer ldx, integer *k);
c@427	6425
c@427	6426 /* Subroutine / int zlaqgb_(integer m, integer n, integer kl, integer *ku,
c@427	6427 doublecomplex ab, integer ldab, doublereal r__, doublereal c__,
c@427	6428 doublereal rowcnd, doublereal colcnd, doublereal amax, char equed);
c@427	6429
c@427	6430 /* Subroutine / int zlaqge_(integer m, integer n, doublecomplex a,
c@427	6431 integer lda, doublereal r__, doublereal c__, doublereal rowcnd,
c@427	6432 doublereal colcnd, doublereal amax, char *equed);
c@427	6433
c@427	6434 /* Subroutine / int zlaqhb_(char uplo, integer n, integer kd,
c@427	6435 doublecomplex ab, integer ldab, doublereal s, doublereal scond,
c@427	6436 doublereal amax, char equed);
c@427	6437
c@427	6438 /* Subroutine / int zlaqhe_(char uplo, integer n, doublecomplex a,
c@427	6439 integer lda, doublereal s, doublereal scond, doublereal amax,
c@427	6440 char *equed);
c@427	6441
c@427	6442 /* Subroutine / int zlaqhp_(char uplo, integer n, doublecomplex ap,
c@427	6443 doublereal s, doublereal scond, doublereal amax, char equed);
c@427	6444
c@427	6445 /* Subroutine / int zlaqp2_(integer m, integer n, integer offset,
c@427	6446 doublecomplex a, integer lda, integer jpvt, doublecomplex tau,
c@427	6447 doublereal vn1, doublereal vn2, doublecomplex *work);
c@427	6448
c@427	6449 /* Subroutine / int zlaqps_(integer m, integer n, integer offset, integer
c@427	6450 nb, integer kb, doublecomplex a, integer lda, integer *jpvt,
c@427	6451 doublecomplex tau, doublereal vn1, doublereal vn2, doublecomplex
c@427	6452 auxv, doublecomplex f, integer ldf);
c@427	6453
c@427	6454 /* Subroutine / int zlaqr0_(logical wantt, logical wantz, integer n,
c@427	6455 integer ilo, integer ihi, doublecomplex h__, integer ldh,
c@427	6456 doublecomplex w, integer iloz, integer ihiz, doublecomplex z__,
c@427	6457 integer ldz, doublecomplex work, integer lwork, integer info);
c@427	6458
c@427	6459 /* Subroutine / int zlaqr1_(integer n, doublecomplex h__, integer ldh,
c@427	6460 doublecomplex s1, doublecomplex s2, doublecomplex *v);
c@427	6461
c@427	6462 /* Subroutine / int zlaqr2_(logical wantt, logical wantz, integer n,
c@427	6463 integer ktop, integer kbot, integer nw, doublecomplex h__,
c@427	6464 integer ldh, integer iloz, integer ihiz, doublecomplex z__,
c@427	6465 integer ldz, integer ns, integer nd, doublecomplex sh,
c@427	6466 doublecomplex v, integer ldv, integer nh, doublecomplex t,
c@427	6467 integer ldt, integer nv, doublecomplex wv, integer ldwv,
c@427	6468 doublecomplex work, integer lwork);
c@427	6469
c@427	6470 /* Subroutine / int zlaqr3_(logical wantt, logical wantz, integer n,
c@427	6471 integer ktop, integer kbot, integer nw, doublecomplex h__,
c@427	6472 integer ldh, integer iloz, integer ihiz, doublecomplex z__,
c@427	6473 integer ldz, integer ns, integer nd, doublecomplex sh,
c@427	6474 doublecomplex v, integer ldv, integer nh, doublecomplex t,
c@427	6475 integer ldt, integer nv, doublecomplex wv, integer ldwv,
c@427	6476 doublecomplex work, integer lwork);
c@427	6477
c@427	6478 /* Subroutine / int zlaqr4_(logical wantt, logical wantz, integer n,
c@427	6479 integer ilo, integer ihi, doublecomplex h__, integer ldh,
c@427	6480 doublecomplex w, integer iloz, integer ihiz, doublecomplex z__,
c@427	6481 integer ldz, doublecomplex work, integer lwork, integer info);
c@427	6482
c@427	6483 /* Subroutine / int zlaqr5_(logical wantt, logical wantz, integer kacc22,
c@427	6484 integer n, integer ktop, integer kbot, integer nshfts,
c@427	6485 doublecomplex s, doublecomplex h__, integer ldh, integer iloz,
c@427	6486 integer ihiz, doublecomplex z__, integer ldz, doublecomplex v,
c@427	6487 integer ldv, doublecomplex u, integer ldu, integer nv,
c@427	6488 doublecomplex wv, integer ldwv, integer nh, doublecomplex wh,
c@427	6489 integer *ldwh);
c@427	6490
c@427	6491 /* Subroutine / int zlaqsb_(char uplo, integer n, integer kd,
c@427	6492 doublecomplex ab, integer ldab, doublereal s, doublereal scond,
c@427	6493 doublereal amax, char equed);
c@427	6494
c@427	6495 /* Subroutine / int zlaqsp_(char uplo, integer n, doublecomplex ap,
c@427	6496 doublereal s, doublereal scond, doublereal amax, char equed);
c@427	6497
c@427	6498 /* Subroutine / int zlaqsy_(char uplo, integer n, doublecomplex a,
c@427	6499 integer lda, doublereal s, doublereal scond, doublereal amax,
c@427	6500 char *equed);
c@427	6501
c@427	6502 /* Subroutine / int zlar1v_(integer n, integer b1, integer bn, doublereal
c@427	6503 lambda, doublereal d__, doublereal l, doublereal ld, doublereal *
c@427	6504 lld, doublereal pivmin, doublereal gaptol, doublecomplex *z__,
c@427	6505 logical wantnc, integer negcnt, doublereal ztz, doublereal mingma,
c@427	6506 integer r__, integer isuppz, doublereal nrminv, doublereal resid,
c@427	6507 doublereal rqcorr, doublereal work);
c@427	6508
c@427	6509 /* Subroutine / int zlar2v_(integer n, doublecomplex x, doublecomplex y,
c@427	6510 doublecomplex z__, integer incx, doublereal c__, doublecomplex s,
c@427	6511 integer *incc);
c@427	6512
c@427	6513 /* Subroutine / int zlarcm_(integer m, integer n, doublereal a, integer *
c@427	6514 lda, doublecomplex b, integer ldb, doublecomplex c__, integer ldc,
c@427	6515 doublereal *rwork);
c@427	6516
c@427	6517 /* Subroutine / int zlarf_(char side, integer m, integer n, doublecomplex
c@427	6518 v, integer incv, doublecomplex tau, doublecomplex c__, integer *
c@427	6519 ldc, doublecomplex *work);
c@427	6520
c@427	6521 /* Subroutine / int zlarfb_(char side, char trans, char direct, char *
c@427	6522 storev, integer m, integer n, integer k, doublecomplex v, integer
c@427	6523 ldv, doublecomplex t, integer ldt, doublecomplex c__, integer *
c@427	6524 ldc, doublecomplex work, integer ldwork);
c@427	6525
c@427	6526 /* Subroutine / int zlarfg_(integer n, doublecomplex alpha, doublecomplex
c@427	6527 x, integer incx, doublecomplex tau);
c@427	6528
c@427	6529 /* Subroutine / int zlarfp_(integer n, doublecomplex alpha, doublecomplex
c@427	6530 x, integer incx, doublecomplex tau);
c@427	6531
c@427	6532 /* Subroutine / int zlarft_(char direct, char storev, integer n, integer *
c@427	6533 k, doublecomplex v, integer ldv, doublecomplex tau, doublecomplex
c@427	6534 t, integer *ldt);
c@427	6535
c@427	6536 /* Subroutine / int zlarfx_(char side, integer m, integer n,
c@427	6537 doublecomplex v, doublecomplex tau, doublecomplex c__, integer
c@427	6538 ldc, doublecomplex *work);
c@427	6539
c@427	6540 /* Subroutine / int zlargv_(integer n, doublecomplex x, integer incx,
c@427	6541 doublecomplex y, integer incy, doublereal c__, integer incc);
c@427	6542
c@427	6543 /* Subroutine / int zlarnv_(integer idist, integer iseed, integer n,
c@427	6544 doublecomplex *x);
c@427	6545
c@427	6546 /* Subroutine / int zlarrv_(integer n, doublereal vl, doublereal vu,
c@427	6547 doublereal d__, doublereal l, doublereal pivmin, integer isplit,
c@427	6548 integer m, integer dol, integer dou, doublereal minrgp,
c@427	6549 doublereal rtol1, doublereal rtol2, doublereal w, doublereal werr,
c@427	6550 doublereal wgap, integer iblock, integer indexw, doublereal gers,
c@427	6551 doublecomplex z__, integer ldz, integer isuppz, doublereal work,
c@427	6552 integer iwork, integer info);
c@427	6553
c@427	6554 /* Subroutine / int zlarscl2_(integer m, integer n, doublereal d__,
c@427	6555 doublecomplex x, integer ldx);
c@427	6556
c@427	6557 /* Subroutine / int zlartg_(doublecomplex f, doublecomplex g, doublereal
c@427	6558 cs, doublecomplex sn, doublecomplex r__);
c@427	6559
c@427	6560 /* Subroutine / int zlartv_(integer n, doublecomplex x, integer incx,
c@427	6561 doublecomplex y, integer incy, doublereal c__, doublecomplex s,
c@427	6562 integer *incc);
c@427	6563
c@427	6564 /* Subroutine / int zlarz_(char side, integer m, integer n, integer *l,
c@427	6565 doublecomplex v, integer incv, doublecomplex tau, doublecomplex
c@427	6566 c__, integer ldc, doublecomplex work);
c@427	6567
c@427	6568 /* Subroutine / int zlarzb_(char side, char trans, char direct, char *
c@427	6569 storev, integer m, integer n, integer k, integer l, doublecomplex
c@427	6570 v, integer ldv, doublecomplex t, integer ldt, doublecomplex *c__,
c@427	6571 integer ldc, doublecomplex work, integer *ldwork);
c@427	6572
c@427	6573 /* Subroutine / int zlarzt_(char direct, char storev, integer n, integer *
c@427	6574 k, doublecomplex v, integer ldv, doublecomplex tau, doublecomplex
c@427	6575 t, integer *ldt);
c@427	6576
c@427	6577 /* Subroutine / int zlascl_(char type__, integer kl, integer ku,
c@427	6578 doublereal cfrom, doublereal cto, integer m, integer n,
c@427	6579 doublecomplex a, integer lda, integer *info);
c@427	6580
c@427	6581 /* Subroutine / int zlascl2_(integer m, integer n, doublereal d__,
c@427	6582 doublecomplex x, integer ldx);
c@427	6583
c@427	6584 /* Subroutine / int zlaset_(char uplo, integer m, integer n,
c@427	6585 doublecomplex alpha, doublecomplex beta, doublecomplex a, integer
c@427	6586 lda);
c@427	6587
c@427	6588 /* Subroutine / int zlasr_(char side, char pivot, char direct, integer *m,
c@427	6589 integer n, doublereal c__, doublereal s, doublecomplex a,
c@427	6590 integer *lda);
c@427	6591
c@427	6592 /* Subroutine / int zlassq_(integer n, doublecomplex x, integer incx,
c@427	6593 doublereal scale, doublereal sumsq);
c@427	6594
c@427	6595 /* Subroutine / int zlaswp_(integer n, doublecomplex a, integer lda,
c@427	6596 integer k1, integer k2, integer ipiv, integer incx);
c@427	6597
c@427	6598 /* Subroutine / int zlasyf_(char uplo, integer n, integer nb, integer *kb,
c@427	6599 doublecomplex a, integer lda, integer ipiv, doublecomplex w,
c@427	6600 integer ldw, integer info);
c@427	6601
c@427	6602 /* Subroutine / int zlat2c_(char uplo, integer n, doublecomplex a,
c@427	6603 integer lda, complex sa, integer ldsa, integer info);
c@427	6604
c@427	6605 /* Subroutine / int zlatbs_(char uplo, char trans, char diag, char *
c@427	6606 normin, integer n, integer kd, doublecomplex ab, integer ldab,
c@427	6607 doublecomplex x, doublereal scale, doublereal cnorm, integer info);
c@427	6608
c@427	6609 /* Subroutine / int zlatdf_(integer ijob, integer n, doublecomplex z__,
c@427	6610 integer ldz, doublecomplex rhs, doublereal rdsum, doublereal
c@427	6611 rdscal, integer ipiv, integer jpiv);
c@427	6612
c@427	6613 /* Subroutine / int zlatps_(char uplo, char trans, char diag, char *
c@427	6614 normin, integer n, doublecomplex ap, doublecomplex x, doublereal
c@427	6615 scale, doublereal cnorm, integer info);
c@427	6616
c@427	6617 /* Subroutine / int zlatrd_(char uplo, integer n, integer nb,
c@427	6618 doublecomplex a, integer lda, doublereal e, doublecomplex tau,
c@427	6619 doublecomplex w, integer ldw);
c@427	6620
c@427	6621 /* Subroutine / int zlatrs_(char uplo, char trans, char diag, char *
c@427	6622 normin, integer n, doublecomplex a, integer lda, doublecomplex x,
c@427	6623 doublereal scale, doublereal cnorm, integer *info);
c@427	6624
c@427	6625 /* Subroutine / int zlatrz_(integer m, integer n, integer l,
c@427	6626 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	6627 work);
c@427	6628
c@427	6629 /* Subroutine / int zlatzm_(char side, integer m, integer n,
c@427	6630 doublecomplex v, integer incv, doublecomplex tau, doublecomplex
c@427	6631 c1, doublecomplex c2, integer ldc, doublecomplex *work);
c@427	6632
c@427	6633 /* Subroutine / int zlauu2_(char uplo, integer n, doublecomplex a,
c@427	6634 integer lda, integer info);
c@427	6635
c@427	6636 /* Subroutine / int zlauum_(char uplo, integer n, doublecomplex a,
c@427	6637 integer lda, integer info);
c@427	6638
c@427	6639 /* Subroutine / int zpbcon_(char uplo, integer n, integer kd,
c@427	6640 doublecomplex ab, integer ldab, doublereal anorm, doublereal
c@427	6641 rcond, doublecomplex work, doublereal rwork, integer *info);
c@427	6642
c@427	6643 /* Subroutine / int zpbequ_(char uplo, integer n, integer kd,
c@427	6644 doublecomplex ab, integer ldab, doublereal s, doublereal scond,
c@427	6645 doublereal amax, integer info);
c@427	6646
c@427	6647 /* Subroutine / int zpbrfs_(char uplo, integer n, integer kd, integer *
c@427	6648 nrhs, doublecomplex ab, integer ldab, doublecomplex afb, integer
c@427	6649 ldafb, doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6650 doublereal ferr, doublereal berr, doublecomplex work, doublereal
c@427	6651 rwork, integer *info);
c@427	6652
c@427	6653 /* Subroutine / int zpbstf_(char uplo, integer n, integer kd,
c@427	6654 doublecomplex ab, integer ldab, integer *info);
c@427	6655
c@427	6656 /* Subroutine / int zpbsv_(char uplo, integer n, integer kd, integer *
c@427	6657 nrhs, doublecomplex ab, integer ldab, doublecomplex b, integer
c@427	6658 ldb, integer *info);
c@427	6659
c@427	6660 /* Subroutine / int zpbsvx_(char fact, char uplo, integer n, integer *kd,
c@427	6661 integer nrhs, doublecomplex ab, integer ldab, doublecomplex afb,
c@427	6662 integer ldafb, char equed, doublereal s, doublecomplex b, integer
c@427	6663 ldb, doublecomplex x, integer ldx, doublereal rcond, doublereal *
c@427	6664 ferr, doublereal berr, doublecomplex work, doublereal *rwork,
c@427	6665 integer *info);
c@427	6666
c@427	6667 /* Subroutine / int zpbtf2_(char uplo, integer n, integer kd,
c@427	6668 doublecomplex ab, integer ldab, integer *info);
c@427	6669
c@427	6670 /* Subroutine / int zpbtrf_(char uplo, integer n, integer kd,
c@427	6671 doublecomplex ab, integer ldab, integer *info);
c@427	6672
c@427	6673 /* Subroutine / int zpbtrs_(char uplo, integer n, integer kd, integer *
c@427	6674 nrhs, doublecomplex ab, integer ldab, doublecomplex b, integer
c@427	6675 ldb, integer *info);
c@427	6676
c@427	6677 /* Subroutine / int zpftrf_(char transr, char uplo, integer n,
c@427	6678 doublecomplex a, integer info);
c@427	6679
c@427	6680 /* Subroutine / int zpftri_(char transr, char uplo, integer n,
c@427	6681 doublecomplex a, integer info);
c@427	6682
c@427	6683 /* Subroutine / int zpftrs_(char transr, char uplo, integer n, integer *
c@427	6684 nrhs, doublecomplex a, doublecomplex b, integer ldb, integer info);
c@427	6685
c@427	6686 /* Subroutine / int zpocon_(char uplo, integer n, doublecomplex a,
c@427	6687 integer lda, doublereal anorm, doublereal rcond, doublecomplex
c@427	6688 work, doublereal rwork, integer info);
c@427	6689
c@427	6690 /* Subroutine / int zpoequ_(integer n, doublecomplex a, integer lda,
c@427	6691 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	6692
c@427	6693 /* Subroutine / int zpoequb_(integer n, doublecomplex a, integer lda,
c@427	6694 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	6695
c@427	6696 /* Subroutine / int zporfs_(char uplo, integer n, integer nrhs,
c@427	6697 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	6698 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6699 doublereal ferr, doublereal berr, doublecomplex work, doublereal
c@427	6700 rwork, integer *info);
c@427	6701
c@427	6702 /* Subroutine / int zporfsx_(char uplo, char equed, integer n, integer *
c@427	6703 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6704 ldaf, doublereal s, doublecomplex b, integer ldb, doublecomplex x,
c@427	6705 integer ldx, doublereal rcond, doublereal berr, integer
c@427	6706 n_err_bnds__, doublereal err_bnds_norm__, doublereal
c@427	6707 err_bnds_comp__, integer nparams, doublereal params, doublecomplex *
c@427	6708 work, doublereal rwork, integer info);
c@427	6709
c@427	6710 /* Subroutine / int zposv_(char uplo, integer n, integer nrhs,
c@427	6711 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	6712 integer *info);
c@427	6713
c@427	6714 /* Subroutine / int zposvx_(char fact, char uplo, integer n, integer *
c@427	6715 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6716 ldaf, char equed, doublereal s, doublecomplex b, integer ldb,
c@427	6717 doublecomplex x, integer ldx, doublereal rcond, doublereal ferr,
c@427	6718 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	6719 info);
c@427	6720
c@427	6721 /* Subroutine / int zposvxx_(char fact, char uplo, integer n, integer *
c@427	6722 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6723 ldaf, char equed, doublereal s, doublecomplex b, integer ldb,
c@427	6724 doublecomplex x, integer ldx, doublereal rcond, doublereal rpvgrw,
c@427	6725 doublereal berr, integer n_err_bnds__, doublereal *err_bnds_norm__,
c@427	6726 doublereal err_bnds_comp__, integer nparams, doublereal *params,
c@427	6727 doublecomplex work, doublereal rwork, integer *info);
c@427	6728
c@427	6729 /* Subroutine / int zpotf2_(char uplo, integer n, doublecomplex a,
c@427	6730 integer lda, integer info);
c@427	6731
c@427	6732 /* Subroutine / int zpotrf_(char uplo, integer n, doublecomplex a,
c@427	6733 integer lda, integer info);
c@427	6734
c@427	6735 /* Subroutine / int zpotri_(char uplo, integer n, doublecomplex a,
c@427	6736 integer lda, integer info);
c@427	6737
c@427	6738 /* Subroutine / int zpotrs_(char uplo, integer n, integer nrhs,
c@427	6739 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	6740 integer *info);
c@427	6741
c@427	6742 /* Subroutine / int zppcon_(char uplo, integer n, doublecomplex ap,
c@427	6743 doublereal anorm, doublereal rcond, doublecomplex *work, doublereal
c@427	6744 rwork, integer info);
c@427	6745
c@427	6746 /* Subroutine / int zppequ_(char uplo, integer n, doublecomplex ap,
c@427	6747 doublereal s, doublereal scond, doublereal amax, integer info);
c@427	6748
c@427	6749 /* Subroutine / int zpprfs_(char uplo, integer n, integer nrhs,
c@427	6750 doublecomplex ap, doublecomplex afp, doublecomplex b, integer ldb,
c@427	6751 doublecomplex x, integer ldx, doublereal ferr, doublereal berr,
c@427	6752 doublecomplex work, doublereal rwork, integer *info);
c@427	6753
c@427	6754 /* Subroutine / int zppsv_(char uplo, integer n, integer nrhs,
c@427	6755 doublecomplex ap, doublecomplex b, integer ldb, integer info);
c@427	6756
c@427	6757 /* Subroutine / int zppsvx_(char fact, char uplo, integer n, integer *
c@427	6758 nrhs, doublecomplex ap, doublecomplex afp, char equed, doublereal
c@427	6759 s, doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6760 doublereal rcond, doublereal ferr, doublereal berr, doublecomplex
c@427	6761 work, doublereal rwork, integer info);
c@427	6762
c@427	6763 /* Subroutine / int zpptrf_(char uplo, integer n, doublecomplex ap,
c@427	6764 integer *info);
c@427	6765
c@427	6766 /* Subroutine / int zpptri_(char uplo, integer n, doublecomplex ap,
c@427	6767 integer *info);
c@427	6768
c@427	6769 /* Subroutine / int zpptrs_(char uplo, integer n, integer nrhs,
c@427	6770 doublecomplex ap, doublecomplex b, integer ldb, integer info);
c@427	6771
c@427	6772 /* Subroutine / int zpstf2_(char uplo, integer n, doublecomplex a,
c@427	6773 integer lda, integer piv, integer rank, doublereal tol,
c@427	6774 doublereal work, integer info);
c@427	6775
c@427	6776 /* Subroutine / int zpstrf_(char uplo, integer n, doublecomplex a,
c@427	6777 integer lda, integer piv, integer rank, doublereal tol,
c@427	6778 doublereal work, integer info);
c@427	6779
c@427	6780 /* Subroutine / int zptcon_(integer n, doublereal d__, doublecomplex e,
c@427	6781 doublereal anorm, doublereal rcond, doublereal rwork, integer
c@427	6782 info);
c@427	6783
c@427	6784 /* Subroutine / int zpteqr_(char compz, integer n, doublereal d__,
c@427	6785 doublereal e, doublecomplex z__, integer ldz, doublereal work,
c@427	6786 integer *info);
c@427	6787
c@427	6788 /* Subroutine / int zptrfs_(char uplo, integer n, integer nrhs,
c@427	6789 doublereal d__, doublecomplex e, doublereal df, doublecomplex ef,
c@427	6790 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6791 doublereal ferr, doublereal berr, doublecomplex work, doublereal
c@427	6792 rwork, integer *info);
c@427	6793
c@427	6794 /* Subroutine / int zptsv_(integer n, integer nrhs, doublereal d__,
c@427	6795 doublecomplex e, doublecomplex b, integer ldb, integer info);
c@427	6796
c@427	6797 /* Subroutine / int zptsvx_(char fact, integer n, integer nrhs,
c@427	6798 doublereal d__, doublecomplex e, doublereal df, doublecomplex ef,
c@427	6799 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6800 doublereal rcond, doublereal ferr, doublereal berr, doublecomplex
c@427	6801 work, doublereal rwork, integer info);
c@427	6802
c@427	6803 /* Subroutine / int zpttrf_(integer n, doublereal d__, doublecomplex e,
c@427	6804 integer *info);
c@427	6805
c@427	6806 /* Subroutine / int zpttrs_(char uplo, integer n, integer nrhs,
c@427	6807 doublereal d__, doublecomplex e, doublecomplex b, integer ldb,
c@427	6808 integer *info);
c@427	6809
c@427	6810 /* Subroutine / int zptts2_(integer iuplo, integer n, integer nrhs,
c@427	6811 doublereal d__, doublecomplex e, doublecomplex b, integer ldb);
c@427	6812
c@427	6813 /* Subroutine / int zrot_(integer n, doublecomplex cx, integer incx,
c@427	6814 doublecomplex cy, integer incy, doublereal c__, doublecomplex s);
c@427	6815
c@427	6816 /* Subroutine / int zspcon_(char uplo, integer n, doublecomplex ap,
c@427	6817 integer ipiv, doublereal anorm, doublereal rcond, doublecomplex
c@427	6818 work, integer *info);
c@427	6819
c@427	6820 /* Subroutine / int zspmv_(char uplo, integer n, doublecomplex alpha,
c@427	6821 doublecomplex ap, doublecomplex x, integer incx, doublecomplex
c@427	6822 beta, doublecomplex y, integer incy);
c@427	6823
c@427	6824 /* Subroutine / int zspr_(char uplo, integer n, doublecomplex alpha,
c@427	6825 doublecomplex x, integer incx, doublecomplex *ap);
c@427	6826
c@427	6827 /* Subroutine / int zsprfs_(char uplo, integer n, integer nrhs,
c@427	6828 doublecomplex ap, doublecomplex afp, integer ipiv, doublecomplex
c@427	6829 b, integer ldb, doublecomplex x, integer ldx, doublereal ferr,
c@427	6830 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	6831 info);
c@427	6832
c@427	6833 /* Subroutine / int zspsv_(char uplo, integer n, integer nrhs,
c@427	6834 doublecomplex ap, integer ipiv, doublecomplex b, integer ldb,
c@427	6835 integer *info);
c@427	6836
c@427	6837 /* Subroutine / int zspsvx_(char fact, char uplo, integer n, integer *
c@427	6838 nrhs, doublecomplex ap, doublecomplex afp, integer *ipiv,
c@427	6839 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6840 doublereal rcond, doublereal ferr, doublereal berr, doublecomplex
c@427	6841 work, doublereal rwork, integer info);
c@427	6842
c@427	6843 /* Subroutine / int zsptrf_(char uplo, integer n, doublecomplex ap,
c@427	6844 integer ipiv, integer info);
c@427	6845
c@427	6846 /* Subroutine / int zsptri_(char uplo, integer n, doublecomplex ap,
c@427	6847 integer ipiv, doublecomplex work, integer *info);
c@427	6848
c@427	6849 /* Subroutine / int zsptrs_(char uplo, integer n, integer nrhs,
c@427	6850 doublecomplex ap, integer ipiv, doublecomplex b, integer ldb,
c@427	6851 integer *info);
c@427	6852
c@427	6853 /* Subroutine / int zstedc_(char compz, integer n, doublereal d__,
c@427	6854 doublereal e, doublecomplex z__, integer ldz, doublecomplex work,
c@427	6855 integer lwork, doublereal rwork, integer lrwork, integer iwork,
c@427	6856 integer liwork, integer info);
c@427	6857
c@427	6858 /* Subroutine / int zstegr_(char jobz, char range, integer n, doublereal *
c@427	6859 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	6860 integer iu, doublereal abstol, integer m, doublereal w,
c@427	6861 doublecomplex z__, integer ldz, integer isuppz, doublereal work,
c@427	6862 integer lwork, integer iwork, integer liwork, integer info);
c@427	6863
c@427	6864 /* Subroutine / int zstein_(integer n, doublereal d__, doublereal e,
c@427	6865 integer m, doublereal w, integer iblock, integer isplit,
c@427	6866 doublecomplex z__, integer ldz, doublereal work, integer iwork,
c@427	6867 integer ifail, integer info);
c@427	6868
c@427	6869 /* Subroutine / int zstemr_(char jobz, char range, integer n, doublereal *
c@427	6870 d__, doublereal e, doublereal vl, doublereal vu, integer il,
c@427	6871 integer iu, integer m, doublereal w, doublecomplex z__, integer *
c@427	6872 ldz, integer nzc, integer isuppz, logical tryrac, doublereal work,
c@427	6873 integer lwork, integer iwork, integer liwork, integer info);
c@427	6874
c@427	6875 /* Subroutine / int zsteqr_(char compz, integer n, doublereal d__,
c@427	6876 doublereal e, doublecomplex z__, integer ldz, doublereal work,
c@427	6877 integer *info);
c@427	6878
c@427	6879 /* Subroutine / int zsycon_(char uplo, integer n, doublecomplex a,
c@427	6880 integer lda, integer ipiv, doublereal anorm, doublereal rcond,
c@427	6881 doublecomplex work, integer info);
c@427	6882
c@427	6883 /* Subroutine / int zsyequb_(char uplo, integer n, doublecomplex a,
c@427	6884 integer lda, doublereal s, doublereal scond, doublereal amax,
c@427	6885 doublecomplex work, integer info);
c@427	6886
c@427	6887 /* Subroutine / int zsymv_(char uplo, integer n, doublecomplex alpha,
c@427	6888 doublecomplex a, integer lda, doublecomplex x, integer incx,
c@427	6889 doublecomplex beta, doublecomplex y, integer *incy);
c@427	6890
c@427	6891 /* Subroutine / int zsyr_(char uplo, integer n, doublecomplex alpha,
c@427	6892 doublecomplex x, integer incx, doublecomplex a, integer lda);
c@427	6893
c@427	6894 /* Subroutine / int zsyrfs_(char uplo, integer n, integer nrhs,
c@427	6895 doublecomplex a, integer lda, doublecomplex af, integer ldaf,
c@427	6896 integer ipiv, doublecomplex b, integer ldb, doublecomplex x,
c@427	6897 integer ldx, doublereal ferr, doublereal berr, doublecomplex work,
c@427	6898 doublereal rwork, integer info);
c@427	6899
c@427	6900 /* Subroutine / int zsyrfsx_(char uplo, char equed, integer n, integer *
c@427	6901 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6902 ldaf, integer ipiv, doublereal s, doublecomplex b, integer ldb,
c@427	6903 doublecomplex x, integer ldx, doublereal rcond, doublereal berr,
c@427	6904 integer n_err_bnds__, doublereal err_bnds_norm__, doublereal *
c@427	6905 err_bnds_comp__, integer nparams, doublereal params, doublecomplex *
c@427	6906 work, doublereal rwork, integer info);
c@427	6907
c@427	6908 /* Subroutine / int zsysv_(char uplo, integer n, integer nrhs,
c@427	6909 doublecomplex a, integer lda, integer ipiv, doublecomplex b,
c@427	6910 integer ldb, doublecomplex work, integer lwork, integer info);
c@427	6911
c@427	6912 /* Subroutine / int zsysvx_(char fact, char uplo, integer n, integer *
c@427	6913 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6914 ldaf, integer ipiv, doublecomplex b, integer ldb, doublecomplex x,
c@427	6915 integer ldx, doublereal rcond, doublereal ferr, doublereal berr,
c@427	6916 doublecomplex work, integer lwork, doublereal rwork, integer info);
c@427	6917
c@427	6918 /* Subroutine / int zsysvxx_(char fact, char uplo, integer n, integer *
c@427	6919 nrhs, doublecomplex a, integer lda, doublecomplex af, integer
c@427	6920 ldaf, integer ipiv, char equed, doublereal s, doublecomplex b,
c@427	6921 integer ldb, doublecomplex x, integer ldx, doublereal rcond,
c@427	6922 doublereal rpvgrw, doublereal berr, integer *n_err_bnds__,
c@427	6923 doublereal err_bnds_norm__, doublereal err_bnds_comp__, integer *
c@427	6924 nparams, doublereal params, doublecomplex work, doublereal *rwork,
c@427	6925 integer *info);
c@427	6926
c@427	6927 /* Subroutine / int zsytf2_(char uplo, integer n, doublecomplex a,
c@427	6928 integer lda, integer ipiv, integer *info);
c@427	6929
c@427	6930 /* Subroutine / int zsytrf_(char uplo, integer n, doublecomplex a,
c@427	6931 integer lda, integer ipiv, doublecomplex work, integer lwork,
c@427	6932 integer *info);
c@427	6933
c@427	6934 /* Subroutine / int zsytri_(char uplo, integer n, doublecomplex a,
c@427	6935 integer lda, integer ipiv, doublecomplex work, integer info);
c@427	6936
c@427	6937 /* Subroutine / int zsytrs_(char uplo, integer n, integer nrhs,
c@427	6938 doublecomplex a, integer lda, integer ipiv, doublecomplex b,
c@427	6939 integer ldb, integer info);
c@427	6940
c@427	6941 /* Subroutine / int ztbcon_(char norm, char uplo, char diag, integer *n,
c@427	6942 integer kd, doublecomplex ab, integer ldab, doublereal rcond,
c@427	6943 doublecomplex work, doublereal rwork, integer *info);
c@427	6944
c@427	6945 /* Subroutine / int ztbrfs_(char uplo, char trans, char diag, integer *n,
c@427	6946 integer kd, integer nrhs, doublecomplex ab, integer ldab,
c@427	6947 doublecomplex b, integer ldb, doublecomplex x, integer ldx,
c@427	6948 doublereal ferr, doublereal berr, doublecomplex work, doublereal
c@427	6949 rwork, integer *info);
c@427	6950
c@427	6951 /* Subroutine / int ztbtrs_(char uplo, char trans, char diag, integer *n,
c@427	6952 integer kd, integer nrhs, doublecomplex ab, integer ldab,
c@427	6953 doublecomplex b, integer ldb, integer *info);
c@427	6954
c@427	6955 /* Subroutine / int ztfsm_(char transr, char side, char uplo, char *trans,
c@427	6956 char diag, integer m, integer n, doublecomplex alpha,
c@427	6957 doublecomplex a, doublecomplex b, integer *ldb);
c@427	6958
c@427	6959 /* Subroutine / int ztftri_(char transr, char uplo, char diag, integer *n,
c@427	6960 doublecomplex a, integer info);
c@427	6961
c@427	6962 /* Subroutine / int ztfttp_(char transr, char uplo, integer n,
c@427	6963 doublecomplex arf, doublecomplex ap, integer *info);
c@427	6964
c@427	6965 /* Subroutine / int ztfttr_(char transr, char uplo, integer n,
c@427	6966 doublecomplex arf, doublecomplex a, integer lda, integer info);
c@427	6967
c@427	6968 /* Subroutine / int ztgevc_(char side, char howmny, logical select,
c@427	6969 integer n, doublecomplex s, integer lds, doublecomplex p, integer
c@427	6970 ldp, doublecomplex vl, integer ldvl, doublecomplex vr, integer *
c@427	6971 ldvr, integer mm, integer m, doublecomplex work, doublereal rwork,
c@427	6972 integer *info);
c@427	6973
c@427	6974 /* Subroutine / int ztgex2_(logical wantq, logical wantz, integer n,
c@427	6975 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	6976 doublecomplex q, integer ldq, doublecomplex z__, integer ldz,
c@427	6977 integer j1, integer info);
c@427	6978
c@427	6979 /* Subroutine / int ztgexc_(logical wantq, logical wantz, integer n,
c@427	6980 doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	6981 doublecomplex q, integer ldq, doublecomplex z__, integer ldz,
c@427	6982 integer ifst, integer ilst, integer *info);
c@427	6983
c@427	6984 /* Subroutine / int ztgsen_(integer ijob, logical wantq, logical wantz,
c@427	6985 logical select, integer n, doublecomplex a, integer lda,
c@427	6986 doublecomplex b, integer ldb, doublecomplex alpha, doublecomplex
c@427	6987 beta, doublecomplex q, integer ldq, doublecomplex z__, integer
c@427	6988 ldz, integer m, doublereal pl, doublereal pr, doublereal dif,
c@427	6989 doublecomplex work, integer lwork, integer iwork, integer liwork,
c@427	6990 integer *info);
c@427	6991
c@427	6992 /* Subroutine / int ztgsja_(char jobu, char jobv, char jobq, integer *m,
c@427	6993 integer p, integer n, integer k, integer l, doublecomplex *a,
c@427	6994 integer lda, doublecomplex b, integer ldb, doublereal tola,
c@427	6995 doublereal tolb, doublereal alpha, doublereal beta, doublecomplex
c@427	6996 u, integer ldu, doublecomplex v, integer ldv, doublecomplex q,
c@427	6997 integer ldq, doublecomplex work, integer ncycle, integer info);
c@427	6998
c@427	6999 /* Subroutine / int ztgsna_(char job, char howmny, logical select,
c@427	7000 integer n, doublecomplex a, integer lda, doublecomplex b, integer
c@427	7001 ldb, doublecomplex vl, integer ldvl, doublecomplex vr, integer *
c@427	7002 ldvr, doublereal s, doublereal dif, integer mm, integer m,
c@427	7003 doublecomplex work, integer lwork, integer iwork, integer info);
c@427	7004
c@427	7005 /* Subroutine / int ztgsy2_(char trans, integer ijob, integer m, integer *
c@427	7006 n, doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	7007 doublecomplex c__, integer ldc, doublecomplex d__, integer ldd,
c@427	7008 doublecomplex e, integer lde, doublecomplex f, integer ldf,
c@427	7009 doublereal scale, doublereal rdsum, doublereal rdscal, integer
c@427	7010 info);
c@427	7011
c@427	7012 /* Subroutine / int ztgsyl_(char trans, integer ijob, integer m, integer *
c@427	7013 n, doublecomplex a, integer lda, doublecomplex b, integer ldb,
c@427	7014 doublecomplex c__, integer ldc, doublecomplex d__, integer ldd,
c@427	7015 doublecomplex e, integer lde, doublecomplex f, integer ldf,
c@427	7016 doublereal scale, doublereal dif, doublecomplex work, integer
c@427	7017 lwork, integer iwork, integer info);
c@427	7018
c@427	7019 /* Subroutine / int ztpcon_(char norm, char uplo, char diag, integer *n,
c@427	7020 doublecomplex ap, doublereal rcond, doublecomplex *work, doublereal
c@427	7021 rwork, integer info);
c@427	7022
c@427	7023 /* Subroutine / int ztprfs_(char uplo, char trans, char diag, integer *n,
c@427	7024 integer nrhs, doublecomplex ap, doublecomplex b, integer ldb,
c@427	7025 doublecomplex x, integer ldx, doublereal ferr, doublereal berr,
c@427	7026 doublecomplex work, doublereal rwork, integer *info);
c@427	7027
c@427	7028 /* Subroutine / int ztptri_(char uplo, char diag, integer n,
c@427	7029 doublecomplex ap, integer info);
c@427	7030
c@427	7031 /* Subroutine / int ztptrs_(char uplo, char trans, char diag, integer *n,
c@427	7032 integer nrhs, doublecomplex ap, doublecomplex b, integer ldb,
c@427	7033 integer *info);
c@427	7034
c@427	7035 /* Subroutine / int ztpttf_(char transr, char uplo, integer n,
c@427	7036 doublecomplex ap, doublecomplex arf, integer *info);
c@427	7037
c@427	7038 /* Subroutine / int ztpttr_(char uplo, integer n, doublecomplex ap,
c@427	7039 doublecomplex a, integer lda, integer *info);
c@427	7040
c@427	7041 /* Subroutine / int ztrcon_(char norm, char uplo, char diag, integer *n,
c@427	7042 doublecomplex a, integer lda, doublereal rcond, doublecomplex
c@427	7043 work, doublereal rwork, integer info);
c@427	7044
c@427	7045 /* Subroutine / int ztrevc_(char side, char howmny, logical select,
c@427	7046 integer n, doublecomplex t, integer ldt, doublecomplex vl,
c@427	7047 integer ldvl, doublecomplex vr, integer ldvr, integer mm, integer
c@427	7048 m, doublecomplex work, doublereal rwork, integer info);
c@427	7049
c@427	7050 /* Subroutine / int ztrexc_(char compq, integer n, doublecomplex t,
c@427	7051 integer ldt, doublecomplex q, integer ldq, integer ifst, integer *
c@427	7052 ilst, integer *info);
c@427	7053
c@427	7054 /* Subroutine / int ztrrfs_(char uplo, char trans, char diag, integer *n,
c@427	7055 integer nrhs, doublecomplex a, integer lda, doublecomplex b,
c@427	7056 integer ldb, doublecomplex x, integer ldx, doublereal ferr,
c@427	7057 doublereal berr, doublecomplex work, doublereal rwork, integer
c@427	7058 info);
c@427	7059
c@427	7060 /* Subroutine / int ztrsen_(char job, char compq, logical select, integer
c@427	7061 n, doublecomplex t, integer ldt, doublecomplex q, integer *ldq,
c@427	7062 doublecomplex w, integer m, doublereal s, doublereal sep,
c@427	7063 doublecomplex work, integer lwork, integer *info);
c@427	7064
c@427	7065 /* Subroutine / int ztrsna_(char job, char howmny, logical select,
c@427	7066 integer n, doublecomplex t, integer ldt, doublecomplex vl,
c@427	7067 integer ldvl, doublecomplex vr, integer ldvr, doublereal s,
c@427	7068 doublereal sep, integer mm, integer m, doublecomplex work,
c@427	7069 integer ldwork, doublereal rwork, integer *info);
c@427	7070
c@427	7071 /* Subroutine / int ztrsyl_(char trana, char tranb, integer isgn, integer
c@427	7072 m, integer n, doublecomplex a, integer lda, doublecomplex *b,
c@427	7073 integer ldb, doublecomplex c__, integer ldc, doublereal scale,
c@427	7074 integer *info);
c@427	7075
c@427	7076 /* Subroutine / int ztrti2_(char uplo, char diag, integer n,
c@427	7077 doublecomplex a, integer lda, integer *info);
c@427	7078
c@427	7079 /* Subroutine / int ztrtri_(char uplo, char diag, integer n,
c@427	7080 doublecomplex a, integer lda, integer *info);
c@427	7081
c@427	7082 /* Subroutine / int ztrtrs_(char uplo, char trans, char diag, integer *n,
c@427	7083 integer nrhs, doublecomplex a, integer lda, doublecomplex b,
c@427	7084 integer ldb, integer info);
c@427	7085
c@427	7086 /* Subroutine / int ztrttf_(char transr, char uplo, integer n,
c@427	7087 doublecomplex a, integer lda, doublecomplex arf, integer info);
c@427	7088
c@427	7089 /* Subroutine / int ztrttp_(char uplo, integer n, doublecomplex a,
c@427	7090 integer lda, doublecomplex ap, integer *info);
c@427	7091
c@427	7092 /* Subroutine / int ztzrqf_(integer m, integer n, doublecomplex a,
c@427	7093 integer lda, doublecomplex tau, integer *info);
c@427	7094
c@427	7095 /* Subroutine / int ztzrzf_(integer m, integer n, doublecomplex a,
c@427	7096 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	7097 integer *info);
c@427	7098
c@427	7099 /* Subroutine / int zung2l_(integer m, integer n, integer k,
c@427	7100 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7101 work, integer *info);
c@427	7102
c@427	7103 /* Subroutine / int zung2r_(integer m, integer n, integer k,
c@427	7104 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7105 work, integer *info);
c@427	7106
c@427	7107 /* Subroutine / int zungbr_(char vect, integer m, integer n, integer *k,
c@427	7108 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7109 work, integer lwork, integer info);
c@427	7110
c@427	7111 /* Subroutine / int zunghr_(integer n, integer ilo, integer ihi,
c@427	7112 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7113 work, integer lwork, integer info);
c@427	7114
c@427	7115 /* Subroutine / int zungl2_(integer m, integer n, integer k,
c@427	7116 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7117 work, integer *info);
c@427	7118
c@427	7119 /* Subroutine / int zunglq_(integer m, integer n, integer k,
c@427	7120 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7121 work, integer lwork, integer info);
c@427	7122
c@427	7123 /* Subroutine / int zungql_(integer m, integer n, integer k,
c@427	7124 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7125 work, integer lwork, integer info);
c@427	7126
c@427	7127 /* Subroutine / int zungqr_(integer m, integer n, integer k,
c@427	7128 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7129 work, integer lwork, integer info);
c@427	7130
c@427	7131 /* Subroutine / int zungr2_(integer m, integer n, integer k,
c@427	7132 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7133 work, integer *info);
c@427	7134
c@427	7135 /* Subroutine / int zungrq_(integer m, integer n, integer k,
c@427	7136 doublecomplex a, integer lda, doublecomplex tau, doublecomplex
c@427	7137 work, integer lwork, integer info);
c@427	7138
c@427	7139 /* Subroutine / int zungtr_(char uplo, integer n, doublecomplex a,
c@427	7140 integer lda, doublecomplex tau, doublecomplex work, integer lwork,
c@427	7141 integer *info);
c@427	7142
c@427	7143 /* Subroutine / int zunm2l_(char side, char trans, integer m, integer *n,
c@427	7144 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7145 doublecomplex c__, integer ldc, doublecomplex work, integer info);
c@427	7146
c@427	7147 /* Subroutine / int zunm2r_(char side, char trans, integer m, integer *n,
c@427	7148 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7149 doublecomplex c__, integer ldc, doublecomplex work, integer info);
c@427	7150
c@427	7151 /* Subroutine / int zunmbr_(char vect, char side, char trans, integer *m,
c@427	7152 integer n, integer k, doublecomplex a, integer lda, doublecomplex
c@427	7153 tau, doublecomplex c__, integer ldc, doublecomplex work, integer *
c@427	7154 lwork, integer *info);
c@427	7155
c@427	7156 /* Subroutine / int zunmhr_(char side, char trans, integer m, integer *n,
c@427	7157 integer ilo, integer ihi, doublecomplex a, integer lda,
c@427	7158 doublecomplex tau, doublecomplex c__, integer ldc, doublecomplex
c@427	7159 work, integer lwork, integer info);
c@427	7160
c@427	7161 /* Subroutine / int zunml2_(char side, char trans, integer m, integer *n,
c@427	7162 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7163 doublecomplex c__, integer ldc, doublecomplex work, integer info);
c@427	7164
c@427	7165 /* Subroutine / int zunmlq_(char side, char trans, integer m, integer *n,
c@427	7166 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7167 doublecomplex c__, integer ldc, doublecomplex work, integer lwork,
c@427	7168 integer *info);
c@427	7169
c@427	7170 /* Subroutine / int zunmql_(char side, char trans, integer m, integer *n,
c@427	7171 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7172 doublecomplex c__, integer ldc, doublecomplex work, integer lwork,
c@427	7173 integer *info);
c@427	7174
c@427	7175 /* Subroutine / int zunmqr_(char side, char trans, integer m, integer *n,
c@427	7176 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7177 doublecomplex c__, integer ldc, doublecomplex work, integer lwork,
c@427	7178 integer *info);
c@427	7179
c@427	7180 /* Subroutine / int zunmr2_(char side, char trans, integer m, integer *n,
c@427	7181 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7182 doublecomplex c__, integer ldc, doublecomplex work, integer info);
c@427	7183
c@427	7184 /* Subroutine / int zunmr3_(char side, char trans, integer m, integer *n,
c@427	7185 integer k, integer l, doublecomplex a, integer lda, doublecomplex
c@427	7186 tau, doublecomplex c__, integer ldc, doublecomplex work, integer *
c@427	7187 info);
c@427	7188
c@427	7189 /* Subroutine / int zunmrq_(char side, char trans, integer m, integer *n,
c@427	7190 integer k, doublecomplex a, integer lda, doublecomplex tau,
c@427	7191 doublecomplex c__, integer ldc, doublecomplex work, integer lwork,
c@427	7192 integer *info);
c@427	7193
c@427	7194 /* Subroutine / int zunmrz_(char side, char trans, integer m, integer *n,
c@427	7195 integer k, integer l, doublecomplex a, integer lda, doublecomplex
c@427	7196 tau, doublecomplex c__, integer ldc, doublecomplex work, integer *
c@427	7197 lwork, integer *info);
c@427	7198
c@427	7199 /* Subroutine / int zunmtr_(char side, char uplo, char trans, integer *m,
c@427	7200 integer n, doublecomplex a, integer lda, doublecomplex tau,
c@427	7201 doublecomplex c__, integer ldc, doublecomplex work, integer lwork,
c@427	7202 integer *info);
c@427	7203
c@427	7204 /* Subroutine / int zupgtr_(char uplo, integer n, doublecomplex ap,
c@427	7205 doublecomplex tau, doublecomplex q, integer ldq, doublecomplex
c@427	7206 work, integer *info);
c@427	7207
c@427	7208 /* Subroutine / int zupmtr_(char side, char uplo, char trans, integer *m,
c@427	7209 integer n, doublecomplex ap, doublecomplex tau, doublecomplex c__,
c@427	7210 integer ldc, doublecomplex work, integer *info);
c@427	7211
c@427	7212 /* Subroutine / int dlamc1_(integer beta, integer t, logical rnd, logical
c@427	7213 *ieee1);
c@427	7214
c@427	7215 doublereal dsecnd_();
c@427	7216
c@427	7217 /* Subroutine / int ilaver_(integer vers_major__, integer *vers_minor__,
c@427	7218 integer *vers_patch__);
c@427	7219
c@427	7220 logical lsame_(char ca, char cb);
c@427	7221
c@427	7222 doublereal second_();
c@427	7223
c@427	7224 doublereal slamch_(char *cmach);
c@427	7225
c@427	7226 /* Subroutine / int slamc1_(integer beta, integer t, logical rnd, logical
c@427	7227 *ieee1);
c@427	7228
c@427	7229 /* Subroutine / int slamc2_(integer beta, integer t, logical rnd, real *
c@427	7230 eps, integer emin, real rmin, integer emax, real rmax);
c@427	7231
c@427	7232 doublereal slamc3_(real a, real b);
c@427	7233
c@427	7234 /* Subroutine / int slamc4_(integer emin, real start, integer base);
c@427	7235
c@427	7236 /* Subroutine / int slamc5_(integer beta, integer p, integer emin,
c@427	7237 logical ieee, integer emax, real *rmax);
c@427	7238
c@427	7239
c@427	7240 doublereal dlamch_(char *cmach);
c@427	7241
c@427	7242 /* Subroutine / int dlamc1_(integer beta, integer t, logical rnd, logical
c@427	7243 *ieee1);
c@427	7244
c@427	7245 /* Subroutine / int dlamc2_(integer beta, integer t, logical rnd,
c@427	7246 doublereal eps, integer emin, doublereal rmin, integer emax,
c@427	7247 doublereal *rmax);
c@427	7248
c@427	7249 doublereal dlamc3_(doublereal a, doublereal b);
c@427	7250
c@427	7251 /* Subroutine / int dlamc4_(integer emin, doublereal start, integer base);
c@427	7252
c@427	7253 /* Subroutine / int dlamc5_(integer beta, integer p, integer emin,
c@427	7254 logical ieee, integer emax, doublereal *rmax);
c@427	7255
c@427	7256 integer ilaenv_(integer ispec, char name__, char opts, integer n1,
c@427	7257 integer n2, integer n3, integer *n4);
c@427	7258
c@427	7259 #ifdef __cplusplus
c@427	7260 }
c@427	7261 #endif
c@427	7262
c@427	7263
c@427	7264 #endif /* __CLAPACK_H */

Mercurial > hg > qm-dsp

annotate ext/clapack/include/clapack.h @ 466:46375e6d1b54