git.maemo.org Git - opencv/blob - 3rdparty/include/clapack.h

   1 #ifndef __CLAPACK_H
   2 #define __CLAPACK_H
   3
   4 #include "f2c.h"
   5 #include "cblas.h"
   6
   7 #ifdef __cplusplus
   8 extern "C" {
   9 #endif
  10
  11 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
  12         d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
  13         integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
  14         iwork, integer *info);
  15
  16 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
  17         nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
  18         integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
  19         ldc, doublereal *work, integer *info);
  20
  21 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
  22         d__, doublereal *sep, integer *info);
  23
  24 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
  25          integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
  26         d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
  27         integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
  28         integer *info);
  29
  30 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
  31          doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
  32         doublereal *rcond, doublereal *work, integer *iwork, integer *info);
  33
  34 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
  35          doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
  36         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
  37         info);
  38
  39 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
  40         ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
  41         integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
  42         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
  43         doublereal *work, integer *iwork, integer *info);
  44
  45 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
  46         nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
  47         integer *ldb, integer *info);
  48
  49 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
  50          integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
  51         doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
  52         doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
  53         doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
  54         doublereal *berr, doublereal *work, integer *iwork, integer *info);
  55
  56 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
  57          doublereal *ab, integer *ldab, integer *ipiv, integer *info);
  58
  59 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
  60          doublereal *ab, integer *ldab, integer *ipiv, integer *info);
  61
  62 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
  63         ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
  64         doublereal *b, integer *ldb, integer *info);
  65
  66 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo,
  67         integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
  68         ldv, integer *info);
  69
  70 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
  71         lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
  72
  73 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
  74         lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
  75         taup, doublereal *work, integer *info);
  76
  77 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
  78         lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
  79         taup, doublereal *work, integer *lwork, integer *info);
  80
  81 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
  82         lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
  83         iwork, integer *info);
  84
  85 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
  86         lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
  87         *colcnd, doublereal *amax, integer *info);
  88
  89 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
  90         doublereal *a, integer *lda, integer *sdim, doublereal *wr,
  91         doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
  92         integer *lwork, logical *bwork, integer *info);
  93
  94 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
  95         sense, integer *n, doublereal *a, integer *lda, integer *sdim,
  96         doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
  97         doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
  98         lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
  99
 100 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
 101         a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
 102         integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
 103         integer *lwork, integer *info);
 104
 105 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
 106         sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
 107         doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
 108         integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
 109         doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
 110         *work, integer *lwork, integer *iwork, integer *info);
 111
 112 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n,
 113         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 114         alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
 115         integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
 116         integer *lwork, integer *info);
 117
 118 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
 119         a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
 120         doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
 121         doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
 122         integer *info);
 123
 124 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi,
 125         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
 126         integer *info);
 127
 128 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi,
 129         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
 130         integer *lwork, integer *info);
 131
 132 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
 133         lda, doublereal *tau, doublereal *work, integer *info);
 134
 135 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
 136         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
 137
 138 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
 139         nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
 140         doublereal *work, integer *lwork, integer *info);
 141
 142 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs,
 143         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 144         s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
 145          integer *iwork, integer *info);
 146
 147 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
 148         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 149         s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
 150          integer *info);
 151
 152 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs,
 153         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
 154         jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
 155         info);
 156
 157 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs,
 158         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
 159         jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
 160         lwork, integer *info);
 161
 162 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
 163         lda, doublereal *tau, doublereal *work, integer *info);
 164
 165 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
 166         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
 167
 168 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
 169         lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
 170          integer *info);
 171
 172 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
 173         lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
 174
 175 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
 176         lda, doublereal *tau, doublereal *work, integer *info);
 177
 178 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
 179         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
 180
 181 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs,
 182         doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
 183         ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
 184         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
 185         integer *info);
 186
 187 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
 188         lda, doublereal *tau, doublereal *work, integer *info);
 189
 190 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
 191         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
 192
 193 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda,
 194         doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
 195
 196 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
 197         a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
 198         doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
 199         integer *iwork, integer *info);
 200
 201 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
 202         *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
 203
 204 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
 205         doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
 206         ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
 207         integer *info);
 208
 209 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
 210         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
 211         integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
 212         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
 213         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
 214         iwork, integer *info);
 215
 216 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer
 217         *ipiv, integer *jpiv, integer *info);
 218
 219 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
 220         lda, integer *ipiv, integer *info);
 221
 222 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
 223         lda, integer *ipiv, integer *info);
 224
 225 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer
 226         *ipiv, doublereal *work, integer *lwork, integer *info);
 227
 228 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
 229         doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
 230         ldb, integer *info);
 231
 232 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo,
 233         integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
 234         doublereal *v, integer *ldv, integer *info);
 235
 236 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
 237         lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
 238         doublereal *lscale, doublereal *rscale, doublereal *work, integer *
 239         info);
 240
 241 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
 242         selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
 243         integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
 244         doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
 245         integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
 246         integer *info);
 247
 248 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
 249         selctg, char *sense, integer *n, doublereal *a, integer *lda,
 250         doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
 251         doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
 252          doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
 253         rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
 254         liwork, logical *bwork, integer *info);
 255
 256 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
 257         a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
 258         doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
 259         doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
 260         integer *info);
 261
 262 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
 263         sense, integer *n, doublereal *a, integer *lda, doublereal *b,
 264         integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
 265         beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
 266         integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
 267         doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
 268         rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
 269         bwork, integer *info);
 270
 271 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
 272         a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
 273         doublereal *x, doublereal *y, doublereal *work, integer *lwork,
 274         integer *info);
 275
 276 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
 277         ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
 278         integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
 279         ldz, integer *info);
 280
 281 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
 282         a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
 283         doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
 284         integer *info);
 285
 286 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
 287         a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
 288         doublereal *taub, doublereal *work, integer *lwork, integer *info);
 289
 290 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
 291         a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
 292         doublereal *taub, doublereal *work, integer *lwork, integer *info);
 293
 294 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
 295         integer *n, integer *p, integer *k, integer *l, doublereal *a,
 296         integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
 297         doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
 298         *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
 299         integer *info);
 300
 301 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
 302         integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
 303         integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
 304         *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
 305         doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
 306         doublereal *work, integer *info);
 307
 308 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl,
 309         doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
 310         doublereal *anorm, doublereal *rcond, doublereal *work, integer *
 311         iwork, integer *info);
 312
 313 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs,
 314         doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
 315         doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
 316         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
 317         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
 318         info);
 319
 320 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
 321         doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
 322         *info);
 323
 324 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
 325         nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
 326         dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
 327         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
 328         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
 329         iwork, integer *info);
 330
 331 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
 332         doublereal *du, doublereal *du2, integer *ipiv, integer *info);
 333
 334 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs,
 335         doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
 336         integer *ipiv, doublereal *b, integer *ldb, integer *info);
 337
 338 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs,
 339         doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
 340         integer *ipiv, doublereal *b, integer *ldb);
 341
 342 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n,
 343         integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
 344         *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal *
 345         beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
 346         doublereal *work, integer *lwork, integer *info);
 347
 348 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
 349         select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
 350         doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
 351         integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
 352         ifaill, integer *ifailr, integer *info);
 353
 354 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
 355          integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
 356         doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
 357         integer *lwork, integer *info);
 358
 359 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
 360
 361 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
 362         a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
 363         doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
 364         *ldy);
 365
 366 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x,
 367         integer *isgn, doublereal *est, integer *kase, integer *isave);
 368
 369 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x,
 370         integer *isgn, doublereal *est, integer *kase);
 371
 372 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
 373         a, integer *lda, doublereal *b, integer *ldb);
 374
 375 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
 376         doublereal *d__, doublereal *p, doublereal *q);
 377
 378 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
 379         doublereal *rt1, doublereal *rt2);
 380
 381 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n,
 382         integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
 383         doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
 384         e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
 385         integer *mout, integer *nab, doublereal *work, integer *iwork,
 386         integer *info);
 387
 388 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n,
 389         doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
 390         doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
 391         integer *info);
 392
 393 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q,
 394         integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
 395         doublereal *work, integer *iwork, integer *info);
 396
 397 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
 398         d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
 399         doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
 400         integer *indx, integer *indxc, integer *indxp, integer *coltyp,
 401         integer *info);
 402
 403 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
 404         d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
 405          doublereal *q2, integer *indx, integer *ctot, doublereal *w,
 406         doublereal *s, integer *info);
 407
 408 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__,
 409         doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
 410          integer *info);
 411
 412 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
 413         doublereal *delta, doublereal *rho, doublereal *dlam);
 414
 415 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
 416         rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
 417         tau, integer *info);
 418
 419 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz,
 420         integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
 421         doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
 422         *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
 423         perm, integer *givptr, integer *givcol, doublereal *givnum,
 424         doublereal *work, integer *iwork, integer *info);
 425
 426 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer
 427         *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
 428         doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
 429          doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
 430         *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
 431         *indx, integer *info);
 432
 433 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop,
 434         integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
 435         rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
 436         integer *info);
 437
 438 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
 439         integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
 440         integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
 441         doublereal *z__, doublereal *ztemp, integer *info);
 442
 443 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n,
 444         doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
 445         doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
 446         doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
 447         bignum, integer *info);
 448
 449 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
 450         doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
 451
 452 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t,
 453         integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
 454         integer *n2, doublereal *work, integer *info);
 455
 456 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b,
 457         integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
 458         scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
 459
 460 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer *
 461         lda, real *sa, integer *ldsa, integer *info);
 462
 463 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
 464         doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
 465         doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
 466         doublereal *csq, doublereal *snq);
 467
 468 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
 469         doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
 470         integer *in, integer *info);
 471
 472 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs,
 473         doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
 474         doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
 475         *ldb);
 476
 477 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a,
 478         doublereal *b, doublereal *c__, doublereal *d__, integer *in,
 479         doublereal *y, doublereal *tol, integer *info);
 480
 481 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b,
 482         integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
 483         beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
 484         snr);
 485
 486 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n,
 487         integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
 488         *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
 489         integer *ldz, integer *info);
 490
 491 /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal *
 492         a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
 493         doublereal *y, integer *ldy);
 494
 495 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
 496         a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
 497         doublereal *y, integer *ldy);
 498
 499 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x,
 500         doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
 501         sestpr, doublereal *s, doublereal *c__);
 502
 503 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw,
 504         doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
 505         doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
 506         doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
 507         doublereal *scale, doublereal *xnorm, integer *info);
 508
 509 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr,
 510         integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
 511         *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
 512         integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
 513         poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
 514         k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
 515
 516 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
 517         integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
 518         ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
 519         doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
 520         poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
 521         perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
 522         work, integer *iwork, integer *info);
 523
 524 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
 525         *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
 526         doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
 527         integer *info);
 528
 529 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
 530         *dtrd1, integer *dtrd2, integer *index);
 531
 532 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
 533         doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
 534          doublereal *rt2i, doublereal *cs, doublereal *sn);
 535
 536 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx,
 537         doublereal *y, integer *incy, doublereal *ssmin);
 538
 539 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n,
 540         doublereal *x, integer *ldx, integer *k);
 541
 542 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
 543          doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
 544         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
 545
 546 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
 547         lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
 548         *colcnd, doublereal *amax, char *equed);
 549
 550 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset,
 551         doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
 552         doublereal *vn1, doublereal *vn2, doublereal *work);
 553
 554 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer
 555         *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
 556         doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
 557         doublereal *f, integer *ldf);
 558
 559 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n,
 560         integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
 561         *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
 562         integer *ldz, doublereal *work, integer *lwork, integer *info);
 563
 564 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh,
 565         doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2,
 566         doublereal *v);
 567
 568 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n,
 569         integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
 570         ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
 571         integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
 572         v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
 573         nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
 574
 575 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n,
 576         integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
 577         ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
 578         integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
 579         v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
 580         nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
 581
 582 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n,
 583         integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
 584         *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
 585         integer *ldz, doublereal *work, integer *lwork, integer *info);
 586
 587 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22,
 588         integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal
 589         *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz,
 590         integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer *
 591         ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv,
 592         integer *ldwv, integer *nh, doublereal *wh, integer *ldwh);
 593
 594 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
 595         ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
 596          char *equed);
 597
 598 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap,
 599         doublereal *s, doublereal *scond, doublereal *amax, char *equed);
 600
 601 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
 602         lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
 603
 604 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n,
 605         doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
 606         *scale, doublereal *x, doublereal *work, integer *info);
 607
 608 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
 609         *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
 610         lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical
 611         *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma,
 612         integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid,
 613         doublereal *rqcorr, doublereal *work);
 614
 615 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y,
 616         doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
 617         integer *incc);
 618
 619 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
 620          integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
 621         doublereal *work);
 622
 623 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
 624         storev, integer *m, integer *n, integer *k, doublereal *v, integer *
 625         ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
 626         doublereal *work, integer *ldwork);
 627
 628 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
 629         integer *incx, doublereal *tau);
 630
 631 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
 632         k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
 633         integer *ldt);
 634
 635 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
 636         v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
 637
 638 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx,
 639         doublereal *y, integer *incy, doublereal *c__, integer *incc);
 640
 641 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n,
 642         doublereal *x);
 643
 644 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e,
 645         doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit,
 646          integer *isplit, integer *info);
 647
 648 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld,
 649         integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2,
 650          integer *offset, doublereal *w, doublereal *wgap, doublereal *werr,
 651         doublereal *work, integer *iwork, doublereal *pivmin, doublereal *
 652         spdiam, integer *twist, integer *info);
 653
 654 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl,
 655         doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin,
 656         integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
 657
 658 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal
 659         *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers,
 660         doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2,
 661         doublereal *pivmin, integer *nsplit, integer *isplit, integer *m,
 662         doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu,
 663         integer *iblock, integer *indexw, doublereal *work, integer *iwork,
 664         integer *info);
 665
 666 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl,
 667         doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal
 668         *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal *
 669         spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w,
 670         doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw,
 671         doublereal *gers, doublereal *pivmin, doublereal *work, integer *
 672         iwork, integer *info);
 673
 674 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l,
 675         doublereal *ld, integer *clstrt, integer *clend, doublereal *w,
 676         doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal *
 677         clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma,
 678         doublereal *dplus, doublereal *lplus, doublereal *work, integer *info);
 679
 680 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2,
 681         integer *ifirst, integer *ilast, doublereal *rtol, integer *offset,
 682         doublereal *w, doublereal *werr, doublereal *work, integer *iwork,
 683         doublereal *pivmin, doublereal *spdiam, integer *info);
 684
 685 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl,
 686         doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin,
 687         doublereal *reltol, doublereal *w, doublereal *werr, integer *info);
 688
 689 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e,
 690         integer *info);
 691
 692 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu,
 693         doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit,
 694         integer *m, integer *dol, integer *dou, doublereal *minrgp,
 695         doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
 696          doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
 697          doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
 698         integer *iwork, integer *info);
 699
 700 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
 701         doublereal *sn, doublereal *r__);
 702
 703 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx,
 704         doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
 705         *incc);
 706
 707 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
 708
 709 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l,
 710         doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
 711         integer *ldc, doublereal *work);
 712
 713 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
 714         storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
 715          integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
 716         ldc, doublereal *work, integer *ldwork          );
 717
 718 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
 719         k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
 720         integer *ldt);
 721
 722 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
 723         doublereal *ssmin, doublereal *ssmax);
 724
 725 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku,
 726         doublereal *cfrom, doublereal *cto, integer *m, integer *n,
 727         doublereal *a, integer *lda, integer *info);
 728
 729 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__,
 730         doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
 731         ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
 732         info);
 733
 734 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre,
 735         doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
 736         integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
 737         iwork, doublereal *work, integer *info);
 738
 739 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
 740         *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
 741         beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
 742         doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
 743         integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
 744         idxq, integer *coltyp, integer *info);
 745
 746 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
 747         *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
 748         doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
 749         doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
 750         integer *idxc, integer *ctot, doublereal *z__, integer *info);
 751
 752 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__,
 753         doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
 754         sigma, doublereal *work, integer *info);
 755
 756 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
 757         doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
 758         work);
 759
 760 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr,
 761         integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
 762         doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
 763         integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
 764          integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
 765         difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
 766         doublereal *work, integer *iwork, integer *info);
 767
 768 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr,
 769         integer *sqre, integer *k, doublereal *d__, doublereal *z__,
 770         doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
 771         doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
 772         dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
 773         integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
 774          integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
 775
 776 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__,
 777         doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
 778         doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
 779         work, integer *info);
 780
 781 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n,
 782         integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
 783         *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
 784         doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
 785         integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
 786         doublereal *s, doublereal *work, integer *iwork, integer *info);
 787
 788 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
 789         ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
 790         doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
 791         doublereal *c__, integer *ldc, doublereal *work, integer *info);
 792
 793 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
 794         inode, integer *ndiml, integer *ndimr, integer *msub);
 795
 796 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
 797         alpha, doublereal *beta, doublereal *a, integer *lda);
 798
 799 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e,
 800         doublereal *work, integer *info);
 801
 802 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
 803
 804 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__,
 805         integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
 806          doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
 807         logical *ieee);
 808
 809 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__,
 810         integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
 811         doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
 812         doublereal *tau, integer *ttype);
 813
 814 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__,
 815         integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
 816         doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
 817          logical *ieee);
 818
 819 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__,
 820         integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
 821          doublereal *dn, doublereal *dnm1, doublereal *dnm2);
 822
 823 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
 824          integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
 825         lda);
 826
 827 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
 828         info);
 829
 830 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx,
 831         doublereal *scale, doublereal *sumsq);
 832
 833 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
 834         doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
 835         csr, doublereal *snl, doublereal *csl);
 836
 837 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer
 838         *k1, integer *k2, integer *ipiv, integer *incx);
 839
 840 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
 841         integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
 842         tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
 843         doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
 844
 845 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
 846          doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
 847         ldw, integer *info);
 848
 849 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
 850         normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
 851         doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
 852
 853 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__,
 854         integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
 855         integer *ipiv, integer *jpiv);
 856
 857 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
 858         normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
 859         doublereal *cnorm, integer *info);
 860
 861 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
 862         a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
 863         integer *ldw);
 864
 865 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
 866         normin, integer *n, doublereal *a, integer *lda, doublereal *x,
 867         doublereal *scale, doublereal *cnorm, integer *info);
 868
 869 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
 870         a, integer *lda, doublereal *tau, doublereal *work);
 871
 872 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
 873         v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
 874         integer *ldc, doublereal *work);
 875
 876 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
 877         lda, integer *info);
 878
 879 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
 880         lda, integer *info);
 881
 882 /* Subroutine */ int dlazq3_(integer *i0, integer *n0, doublereal *z__,
 883         integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
 884          doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
 885         logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2,
 886         doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *tau);
 887
 888 /* Subroutine */ int dlazq4_(integer *i0, integer *n0, doublereal *z__,
 889         integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
 890         doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
 891         doublereal *tau, integer *ttype, doublereal *g);
 892
 893 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap,
 894         doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
 895         integer *info);
 896
 897 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m,
 898         integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
 899         *ldc, doublereal *work, integer *info);
 900
 901 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
 902         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
 903
 904 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
 905         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
 906
 907 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k,
 908         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
 909         integer *lwork, integer *info);
 910
 911 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi,
 912         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
 913         integer *lwork, integer *info);
 914
 915 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
 916         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
 917
 918 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
 919         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
 920         integer *info);
 921
 922 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
 923         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
 924         integer *info);
 925
 926 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
 927         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
 928         integer *info);
 929
 930 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
 931         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
 932
 933 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
 934         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
 935         integer *info);
 936
 937 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
 938         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
 939
 940 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n,
 941         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 942         c__, integer *ldc, doublereal *work, integer *info);
 943
 944 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n,
 945         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 946         c__, integer *ldc, doublereal *work, integer *info);
 947
 948 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m,
 949         integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
 950         doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
 951         integer *info);
 952
 953 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n,
 954         integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
 955         tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
 956         integer *info);
 957
 958 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
 959         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 960         c__, integer *ldc, doublereal *work, integer *info);
 961
 962 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n,
 963         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 964         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
 965
 966 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n,
 967         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 968         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
 969
 970 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n,
 971         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 972         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
 973
 974 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n,
 975         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 976         c__, integer *ldc, doublereal *work, integer *info);
 977
 978 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n,
 979         integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
 980         doublereal *c__, integer *ldc, doublereal *work, integer *info);
 981
 982 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n,
 983         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 984         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
 985
 986 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n,
 987         integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
 988         doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
 989         integer *info);
 990
 991 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m,
 992         integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
 993         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
 994
 995 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
 996         ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
 997         work, integer *iwork, integer *info);
 998
 999 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
1000         ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
1001          integer *info);
1002
1003 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
1004         nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
1005         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1006         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
1007         info);
1008
1009 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
1010         ab, integer *ldab, integer *info);
1011
1012 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
1013         nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
1014         integer *info);
1015
1016 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
1017         integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
1018         integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
1019         ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
1020          doublereal *berr, doublereal *work, integer *iwork, integer *info);
1021
1022 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
1023         ab, integer *ldab, integer *info);
1024
1025 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
1026         ab, integer *ldab, integer *info);
1027
1028 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
1029         nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
1030         integer *info);
1031
1032 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
1033         lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1034         iwork, integer *info);
1035
1036 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda,
1037         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
1038
1039 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs,
1040         doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1041         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1042         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
1043         info);
1044
1045 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
1046         *a, integer *lda, doublereal *b, integer *ldb, integer *info);
1047
1048 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
1049         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1050         char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
1051         x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
1052         berr, doublereal *work, integer *iwork, integer *info);
1053
1054 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
1055         lda, integer *info);
1056
1057 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
1058         lda, integer *info);
1059
1060 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
1061         lda, integer *info);
1062
1063 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs,
1064         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1065         info);
1066
1067 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap,
1068         doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1069         iwork, integer *info);
1070
1071 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap,
1072         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
1073
1074 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs,
1075         doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
1076         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1077         doublereal *work, integer *iwork, integer *info);
1078
1079 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
1080         *ap, doublereal *b, integer *ldb, integer *info);
1081
1082 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
1083         nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
1084         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1085         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1086         iwork, integer *info);
1087
1088 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
1089         info);
1090
1091 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
1092         info);
1093
1094 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs,
1095         doublereal *ap, doublereal *b, integer *ldb, integer *info);
1096
1097 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e,
1098         doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
1099
1100 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__,
1101         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
1102         integer *info);
1103
1104 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
1105         doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
1106         *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1107          doublereal *work, integer *info);
1108
1109 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__,
1110         doublereal *e, doublereal *b, integer *ldb, integer *info);
1111
1112 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs,
1113         doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
1114         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1115         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1116         info);
1117
1118 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e,
1119         integer *info);
1120
1121 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
1122         doublereal *e, doublereal *b, integer *ldb, integer *info);
1123
1124 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__,
1125         doublereal *e, doublereal *b, integer *ldb);
1126
1127 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx,
1128         integer *incx);
1129
1130 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
1131         doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
1132         integer *ldz, doublereal *work, integer *info);
1133
1134 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
1135         doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
1136         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
1137         integer *liwork, integer *info);
1138
1139 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
1140         integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
1141         ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
1142         doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
1143         integer *ldz, doublereal *work, integer *iwork, integer *ifail,
1144         integer *info);
1145
1146 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
1147         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
1148         ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
1149
1150 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
1151         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
1152         ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1153         integer *info);
1154
1155 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
1156         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
1157         ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1158         integer *lwork, integer *iwork, integer *liwork, integer *info);
1159
1160 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
1161         integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
1162         bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
1163         doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
1164         *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1165         integer *iwork, integer *ifail, integer *info);
1166
1167 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
1168         doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
1169         doublereal *q, integer *ldq, doublereal *work, integer *info);
1170
1171 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a,
1172         integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
1173         x, integer *ldx, doublereal *work, real *swork, integer *iter,
1174         integer *info);
1175
1176 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
1177         ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
1178         *iwork, integer *info);
1179
1180 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
1181         ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1182         integer *info);
1183
1184 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
1185         ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1186         integer *lwork, integer *iwork, integer *liwork, integer *info);
1187
1188 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n,
1189         doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
1190         iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
1191         integer *ldz, doublereal *work, integer *iwork, integer *ifail,
1192         integer *info);
1193
1194 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n,
1195         doublereal *ap, doublereal *bp, integer *info);
1196
1197 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
1198         n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
1199         integer *ldz, doublereal *work, integer *info);
1200
1201 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
1202         n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
1203         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
1204         integer *liwork, integer *info);
1205
1206 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
1207         uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
1208         doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
1209         *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
1210         integer *iwork, integer *ifail, integer *info);
1211
1212 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs,
1213         doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
1214         integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
1215         doublereal *berr, doublereal *work, integer *iwork, integer *info);
1216
1217 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
1218         *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
1219
1220 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
1221         nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
1222         integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
1223         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
1224         integer *info);
1225
1226 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap,
1227         doublereal *d__, doublereal *e, doublereal *tau, integer *info);
1228
1229 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
1230         ipiv, integer *info);
1231
1232 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
1233         ipiv, doublereal *work, integer *info);
1234
1235 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs,
1236         doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
1237         info);
1238
1239 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal
1240         *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
1241         doublereal *d__, doublereal *e, integer *m, integer *nsplit,
1242         doublereal *w, integer *iblock, integer *isplit, doublereal *work,
1243         integer *iwork, integer *info);
1244
1245 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__,
1246         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
1247         integer *lwork, integer *iwork, integer *liwork, integer *info);
1248
1249 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
1250         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
1251         integer *iu, doublereal *abstol, integer *m, doublereal *w,
1252         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
1253         integer *lwork, integer *iwork, integer *liwork, integer *info);
1254
1255 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e,
1256         integer *m, doublereal *w, integer *iblock, integer *isplit,
1257         doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
1258         integer *ifail, integer *info);
1259
1260 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal *
1261         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
1262         integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz,
1263          integer *nzc, integer *isuppz, logical *tryrac, doublereal *work,
1264         integer *lwork, integer *iwork, integer *liwork, integer *info);
1265
1266 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__,
1267         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
1268         integer *info);
1269
1270 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e,
1271         integer *info);
1272
1273 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__,
1274         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
1275         integer *info);
1276
1277 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__,
1278         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
1279         integer *lwork, integer *iwork, integer *liwork, integer *info);
1280
1281 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
1282         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
1283         integer *iu, doublereal *abstol, integer *m, doublereal *w,
1284         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
1285         integer *lwork, integer *iwork, integer *liwork, integer *info);
1286
1287 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
1288         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
1289         integer *iu, doublereal *abstol, integer *m, doublereal *w,
1290         doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
1291         integer *ifail, integer *info);
1292
1293 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
1294         lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
1295         work, integer *iwork, integer *info);
1296
1297 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
1298          integer *lda, doublereal *w, doublereal *work, integer *lwork,
1299         integer *info);
1300
1301 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
1302         a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
1303         integer *iwork, integer *liwork, integer *info);
1304
1305 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
1306         doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
1307         il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
1308         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
1309         integer *lwork, integer *iwork, integer *liwork, integer *info);
1310
1311 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
1312         doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
1313         il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
1314         doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
1315         integer *iwork, integer *ifail, integer *info);
1316
1317 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n,
1318         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1319         info);
1320
1321 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n,
1322         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1323         info);
1324
1325 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
1326         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1327         doublereal *w, doublereal *work, integer *lwork, integer *info);
1328
1329 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
1330         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1331         doublereal *w, doublereal *work, integer *lwork, integer *iwork,
1332         integer *liwork, integer *info);
1333
1334 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
1335         uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
1336         *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
1337         doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
1338         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
1339         integer *ifail, integer *info);
1340
1341 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs,
1342         doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
1343         ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1344         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
1345         integer *info);
1346
1347 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
1348         *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
1349         doublereal *work, integer *lwork, integer *info);
1350
1351 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
1352         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1353         integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
1354         ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
1355         doublereal *work, integer *lwork, integer *iwork, integer *info);
1356
1357 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
1358         lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
1359
1360 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
1361         lda, integer *ipiv, integer *info);
1362
1363 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
1364         lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
1365         work, integer *lwork, integer *info);
1366
1367 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
1368         lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
1369
1370 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
1371         lda, integer *ipiv, doublereal *work, integer *info);
1372
1373 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs,
1374         doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
1375         ldb, integer *info);
1376
1377 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
1378         integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
1379         doublereal *work, integer *iwork, integer *info);
1380
1381 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
1382         integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
1383         *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
1384         doublereal *berr, doublereal *work, integer *iwork, integer *info);
1385
1386 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
1387         integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
1388         *b, integer *ldb, integer *info);
1389
1390 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
1391         integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp,
1392         doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
1393         *mm, integer *m, doublereal *work, integer *info);
1394
1395 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n,
1396         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1397         q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
1398         n1, integer *n2, doublereal *work, integer *lwork, integer *info);
1399
1400 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n,
1401         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1402         q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
1403         integer *ilst, doublereal *work, integer *lwork, integer *info);
1404
1405 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
1406         logical *select, integer *n, doublereal *a, integer *lda, doublereal *
1407         b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1408         beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
1409         integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
1410         doublereal *work, integer *lwork, integer *iwork, integer *liwork,
1411         integer *info);
1412
1413 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
1414         integer *p, integer *n, integer *k, integer *l, doublereal *a,
1415         integer *lda, doublereal *b, integer *ldb, doublereal *tola,
1416         doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
1417         integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
1418         ldq, doublereal *work, integer *ncycle, integer *info);
1419
1420 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
1421         integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1422         doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
1423         doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
1424         work, integer *lwork, integer *iwork, integer *info);
1425
1426 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
1427         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1428         doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
1429         doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
1430         scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
1431         *pq, integer *info);
1432
1433 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
1434         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1435         doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
1436         doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
1437         scale, doublereal *dif, doublereal *work, integer *lwork, integer *
1438         iwork, integer *info);
1439
1440 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
1441         doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
1442         integer *info);
1443
1444 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
1445         integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
1446         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1447         doublereal *work, integer *iwork, integer *info);
1448
1449 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
1450         ap, integer *info);
1451
1452 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
1453         integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
1454         info);
1455
1456 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
1457         doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
1458         integer *iwork, integer *info);
1459
1460 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
1461         integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
1462         ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
1463         doublereal *work, integer *info);
1464
1465 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
1466         ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
1467         doublereal *work, integer *info);
1468
1469 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
1470         integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
1471         ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1472         doublereal *work, integer *iwork, integer *info);
1473
1474 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer
1475         *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
1476         doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
1477         *sep, doublereal *work, integer *lwork, integer *iwork, integer *
1478         liwork, integer *info);
1479
1480 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
1481         integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
1482         ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
1483         integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
1484         iwork, integer *info);
1485
1486 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
1487         *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
1488         ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
1489
1490 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
1491         a, integer *lda, integer *info);
1492
1493 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
1494         a, integer *lda, integer *info);
1495
1496 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
1497         integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
1498         ldb, integer *info);
1499
1500 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
1501         lda, doublereal *tau, integer *info);
1502
1503 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
1504         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1505
1506 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
1507         integer *vers_patch__);
1508
1509 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
1510         *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
1511
1512 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
1513         real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
1514         integer *iq, real *work, integer *iwork, integer *info);
1515
1516 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
1517         nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
1518         u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
1519
1520 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__,
1521         real *sep, integer *info);
1522
1523 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
1524          integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
1525         e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
1526         *ldc, real *work, integer *info);
1527
1528 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
1529          real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
1530         real *work, integer *iwork, integer *info);
1531
1532 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
1533          real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
1534         colcnd, real *amax, integer *info);
1535
1536 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
1537         ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
1538          integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
1539         ferr, real *berr, real *work, integer *iwork, integer *info);
1540
1541 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
1542         nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb,
1543         integer *info);
1544
1545 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
1546          integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
1547         integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
1548         real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
1549          real *berr, real *work, integer *iwork, integer *info);
1550
1551 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
1552          real *ab, integer *ldab, integer *ipiv, integer *info);
1553
1554 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
1555          real *ab, integer *ldab, integer *ipiv, integer *info);
1556
1557 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
1558         ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b,
1559         integer *ldb, integer *info);
1560
1561 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo,
1562         integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer
1563         *info);
1564
1565 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda,
1566         integer *ilo, integer *ihi, real *scale, integer *info);
1567
1568 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda,
1569         real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
1570
1571 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda,
1572         real *d__, real *e, real *tauq, real *taup, real *work, integer *
1573         lwork, integer *info);
1574
1575 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda,
1576         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
1577
1578 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda,
1579         real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
1580         *info);
1581
1582 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n,
1583         real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
1584         integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
1585         info);
1586
1587 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
1588         sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
1589         real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
1590         work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
1591          integer *info);
1592
1593 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a,
1594         integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr,
1595         integer *ldvr, real *work, integer *lwork, integer *info);
1596
1597 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
1598         sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
1599         vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
1600         ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
1601          integer *lwork, integer *iwork, integer *info);
1602
1603 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
1604         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
1605         *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
1606         work, integer *lwork, integer *info);
1607
1608 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
1609         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
1610         *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
1611         integer *lwork, integer *info);
1612
1613 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
1614         integer *lda, real *tau, real *work, integer *info);
1615
1616 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
1617         integer *lda, real *tau, real *work, integer *lwork, integer *info);
1618
1619 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda,
1620         real *tau, real *work, integer *info);
1621
1622 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda,
1623         real *tau, real *work, integer *lwork, integer *info);
1624
1625 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
1626         nrhs, real *a, integer *lda, real *b, integer *ldb, real *work,
1627         integer *lwork, integer *info);
1628
1629 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a,
1630         integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
1631         rank, real *work, integer *lwork, integer *iwork, integer *info);
1632
1633 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a,
1634         integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
1635         rank, real *work, integer *lwork, integer *info);
1636
1637 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
1638         integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
1639         integer *rank, real *work, integer *info);
1640
1641 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a,
1642         integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
1643         integer *rank, real *work, integer *lwork, integer *info);
1644
1645 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda,
1646         real *tau, real *work, integer *info);
1647
1648 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
1649         real *tau, real *work, integer *lwork, integer *info);
1650
1651 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
1652         integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
1653
1654 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
1655         integer *jpvt, real *tau, real *work, integer *info);
1656
1657 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
1658         real *tau, real *work, integer *info);
1659
1660 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
1661         real *tau, real *work, integer *lwork, integer *info);
1662
1663 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
1664         integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
1665         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
1666         work, integer *iwork, integer *info);
1667
1668 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda,
1669         real *tau, real *work, integer *info);
1670
1671 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda,
1672         real *tau, real *work, integer *lwork, integer *info);
1673
1674 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
1675         integer *ipiv, integer *jpiv, real *scale);
1676
1677 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a,
1678         integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
1679         real *work, integer *lwork, integer *iwork, integer *info);
1680
1681 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
1682         integer *ipiv, real *b, integer *ldb, integer *info);
1683
1684 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
1685         real *a, integer *lda, real *s, real *u, integer *ldu, real *vt,
1686         integer *ldvt, real *work, integer *lwork, integer *info);
1687
1688 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
1689         nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
1690         char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
1691         integer *ldx, real *rcond, real *ferr, real *berr, real *work,
1692         integer *iwork, integer *info);
1693
1694 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
1695          integer *jpiv, integer *info);
1696
1697 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda,
1698         integer *ipiv, integer *info);
1699
1700 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda,
1701         integer *ipiv, integer *info);
1702
1703 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
1704          real *work, integer *lwork, integer *info);
1705
1706 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
1707         integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
1708
1709 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo,
1710         integer *ihi, real *lscale, real *rscale, integer *m, real *v,
1711         integer *ldv, integer *info);
1712
1713 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda,
1714         real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real
1715         *rscale, real *work, integer *info);
1716
1717 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
1718         selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
1719         integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
1720         integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
1721          logical *bwork, integer *info);
1722
1723 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
1724         selctg, char *sense, integer *n, real *a, integer *lda, real *b,
1725         integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
1726         real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
1727         real *rcondv, real *work, integer *lwork, integer *iwork, integer *
1728         liwork, logical *bwork, integer *info);
1729
1730 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
1731         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
1732         *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
1733         integer *lwork, integer *info);
1734
1735 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
1736         sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real
1737         *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr,
1738         integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
1739          real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
1740         integer *lwork, integer *iwork, logical *bwork, integer *info);
1741
1742 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a,
1743         integer *lda, real *b, integer *ldb, real *d__, real *x, real *y,
1744         real *work, integer *lwork, integer *info);
1745
1746 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
1747         ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real
1748         *q, integer *ldq, real *z__, integer *ldz, integer *info);
1749
1750 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a,
1751         integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x,
1752         real *work, integer *lwork, integer *info);
1753
1754 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a,
1755         integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
1756         work, integer *lwork, integer *info);
1757
1758 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a,
1759         integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
1760         work, integer *lwork, integer *info);
1761
1762 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
1763         integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
1764          real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
1765         ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
1766         integer *iwork, integer *info);
1767
1768 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
1769         integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
1770         real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
1771          real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
1772         tau, real *work, integer *info);
1773
1774 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__,
1775         real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
1776         work, integer *iwork, integer *info);
1777
1778 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
1779          real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
1780         integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
1781         ferr, real *berr, real *work, integer *iwork, integer *info);
1782
1783 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
1784         real *du, real *b, integer *ldb, integer *info);
1785
1786 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
1787         nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
1788         real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
1789         ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork,
1790         integer *info);
1791
1792 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
1793         du2, integer *ipiv, integer *info);
1794
1795 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
1796          real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
1797          integer *info);
1798
1799 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real
1800         *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
1801         ldb);
1802
1803 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n,
1804         integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer
1805         *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
1806         real *z__, integer *ldz, real *work, integer *lwork, integer *info);
1807
1808 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
1809         select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real
1810         *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m,
1811         real *work, integer *ifaill, integer *ifailr, integer *info);
1812
1813 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
1814          integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
1815         integer *ldz, real *work, integer *lwork, integer *info);
1816
1817 /* Subroutine */ int slabad_(real *small, real *large);
1818
1819 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a,
1820         integer *lda, real *d__, real *e, real *tauq, real *taup, real *x,
1821         integer *ldx, real *y, integer *ldy);
1822
1823 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn,
1824         real *est, integer *kase, integer *isave);
1825
1826 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn,
1827         real *est, integer *kase);
1828
1829 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a,
1830         integer *lda, real *b, integer *ldb);
1831
1832 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
1833         real *q);
1834
1835 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
1836
1837 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n,
1838         integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
1839         reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval,
1840         real *ab, real *c__, integer *mout, integer *nab, real *work, integer
1841         *iwork, integer *info);
1842
1843 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real
1844         *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
1845         real *work, integer *iwork, integer *info);
1846
1847 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq,
1848         integer *indxq, real *rho, integer *cutpnt, real *work, integer *
1849         iwork, integer *info);
1850
1851 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__,
1852         real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
1853         dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
1854         indxp, integer *coltyp, integer *info);
1855
1856 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__,
1857         real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
1858         indx, integer *ctot, real *w, real *s, integer *info);
1859
1860 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__,
1861         real *delta, real *rho, real *dlam, integer *info);
1862
1863 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta,
1864         real *rho, real *dlam);
1865
1866 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho,
1867         real *d__, real *z__, real *finit, real *tau, integer *info);
1868
1869 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz,
1870         integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q,
1871         integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
1872         qstore, integer *qptr, integer *prmptr, integer *perm, integer *
1873         givptr, integer *givcol, real *givnum, real *work, integer *iwork,
1874         integer *info);
1875
1876 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer
1877         *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho,
1878         integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2,
1879         real *w, integer *perm, integer *givptr, integer *givcol, real *
1880         givnum, integer *indxp, integer *indx, integer *info);
1881
1882 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop,
1883         integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
1884          real *w, real *s, integer *lds, integer *info);
1885
1886 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl,
1887         integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
1888         integer *givcol, real *givnum, real *q, integer *qptr, real *z__,
1889         real *ztemp, integer *info);
1890
1891 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n,
1892         real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real
1893         *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum,
1894         integer *info);
1895
1896 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
1897         rt2, real *cs1, real *sn1);
1898
1899 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
1900         ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2,
1901         real *work, integer *info);
1902
1903 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb,
1904         real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
1905         wi);
1906
1907 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa,
1908         doublereal *a, integer *lda, integer *info);
1909
1910 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
1911         real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
1912         snv, real *csq, real *snq);
1913
1914 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real
1915         *c__, real *tol, real *d__, integer *in, integer *info);
1916
1917 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
1918         alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
1919         beta, real *b, integer *ldb);
1920
1921 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real
1922         *c__, real *d__, integer *in, real *y, real *tol, integer *info);
1923
1924 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb,
1925         real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
1926         csr, real *snr);
1927
1928 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n,
1929         integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
1930         wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
1931         info);
1932
1933 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a,
1934         integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
1935
1936 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a,
1937         integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
1938
1939 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest,
1940         real *w, real *gamma, real *sestpr, real *s, real *c__);
1941
1942 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
1943         smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
1944         integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale,
1945         real *xnorm, integer *info);
1946
1947 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr,
1948         integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx,
1949         integer *ldbx, integer *perm, integer *givptr, integer *givcol,
1950         integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
1951         difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
1952         work, integer *info);
1953
1954 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n,
1955         integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
1956         u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
1957         z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol,
1958         integer *perm, real *givnum, real *c__, real *s, real *work, integer *
1959         iwork, integer *info);
1960
1961 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer
1962         *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond,
1963         integer *rank, real *work, integer *iwork, integer *info);
1964
1965 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
1966         strd1, integer *strd2, integer *index);
1967
1968 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
1969         rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
1970
1971 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y,
1972         integer *incy, real *ssmin);
1973
1974 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
1975          integer *ldx, integer *k);
1976
1977 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
1978          real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
1979         colcnd, real *amax, char *equed);
1980
1981 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda,
1982         real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
1983         equed);
1984
1985 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
1986          integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
1987         work);
1988
1989 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer
1990         *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
1991         real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
1992
1993 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n,
1994         integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
1995         wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
1996          integer *lwork, integer *info);
1997
1998 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1,
1999         real *si1, real *sr2, real *si2, real *v);
2000
2001 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n,
2002         integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
2003         integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
2004         integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
2005         real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
2006         work, integer *lwork);
2007
2008 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n,
2009         integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
2010         integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
2011         integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
2012         real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
2013         work, integer *lwork);
2014
2015 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n,
2016         integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
2017         wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
2018          integer *lwork, integer *info);
2019
2020 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22,
2021         integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr,
2022         real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real
2023         *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu,
2024         integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer *
2025         ldwh);
2026
2027 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
2028         integer *ldab, real *s, real *scond, real *amax, char *equed    );
2029
2030 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
2031         scond, real *amax, char *equed);
2032
2033 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
2034         real *s, real *scond, real *amax, char *equed);
2035
2036 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real
2037         *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work,
2038         integer *info);
2039
2040 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
2041         lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
2042         gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real *
2043         mingma, integer *r__, integer *isuppz, real *nrminv, real *resid,
2044         real *rqcorr, real *work);
2045
2046 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer
2047         *incx, real *c__, real *s, integer *incc);
2048
2049 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v,
2050         integer *incv, real *tau, real *c__, integer *ldc, real *work   );
2051
2052 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
2053         storev, integer *m, integer *n, integer *k, real *v, integer *ldv,
2054         real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
2055         ldwork          );
2056
2057 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx,
2058         real *tau);
2059
2060 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
2061         k, real *v, integer *ldv, real *tau, real *t, integer *ldt      );
2062
2063 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v,
2064         real *tau, real *c__, integer *ldc, real *work);
2065
2066 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y,
2067         integer *incy, real *c__, integer *incc);
2068
2069 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real
2070         *x);
2071
2072 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real *
2073         spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info);
2074
2075 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer *
2076         ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset,
2077         real *w, real *wgap, real *werr, real *work, integer *iwork, real *
2078         pivmin, real *spdiam, integer *twist, integer *info);
2079
2080 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real
2081         *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer *
2082         rcnt, integer *info);
2083
2084 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl,
2085         real *vu, integer *il, integer *iu, real *gers, real *reltol, real *
2086         d__, real *e, real *e2, real *pivmin, integer *nsplit, integer *
2087         isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer *
2088         iblock, integer *indexw, real *work, integer *iwork, integer *info);
2089
2090 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu,
2091         integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1,
2092         real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer *
2093         m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw,
2094         real *gers, real *pivmin, real *work, integer *iwork, integer *info);
2095
2096 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld,
2097         integer *clstrt, integer *clend, real *w, real *wgap, real *werr,
2098         real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma,
2099         real *dplus, real *lplus, real *work, integer *info);
2100
2101 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst,
2102          integer *ilast, real *rtol, integer *offset, real *w, real *werr,
2103         real *work, integer *iwork, real *pivmin, real *spdiam, integer *info);
2104
2105 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu,
2106         real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr,
2107         integer *info);
2108
2109 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info);
2110
2111 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real *
2112         l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
2113         dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
2114         real *wgap, integer *iblock, integer *indexw, real *gers, real *z__,
2115         integer *ldz, integer *isuppz, real *work, integer *iwork, integer *
2116         info);
2117
2118 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
2119
2120 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y,
2121         integer *incy, real *c__, real *s, integer *incc);
2122
2123 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
2124
2125 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l,
2126         real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
2127         work);
2128
2129 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
2130         storev, integer *m, integer *n, integer *k, integer *l, real *v,
2131         integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
2132         work, integer *ldwork   );
2133
2134 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
2135         k, real *v, integer *ldv, real *tau, real *t, integer *ldt      );
2136
2137 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
2138         ssmax);
2139
2140 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
2141         cfrom, real *cto, integer *m, integer *n, real *a, integer *lda,
2142         integer *info);
2143
2144 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e,
2145         real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
2146         integer *iwork, real *work, integer *info);
2147
2148 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
2149         d__, real *alpha, real *beta, real *u, integer *ldu, real *vt,
2150         integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
2151         info);
2152
2153 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer
2154         *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
2155         ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2,
2156         real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
2157          integer *idxq, integer *coltyp, integer *info);
2158
2159 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer
2160         *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
2161         ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2,
2162         integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
2163         info);
2164
2165 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__,
2166         real *delta, real *rho, real *sigma, real *work, integer *info);
2167
2168 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta,
2169         real *rho, real *dsigma, real *work);
2170
2171 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr,
2172         integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
2173          integer *idxq, integer *perm, integer *givptr, integer *givcol,
2174         integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
2175         difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
2176         work, integer *iwork, integer *info);
2177
2178 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr,
2179         integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf,
2180         real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
2181          integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
2182         givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
2183         ldgnum, real *c__, real *s, integer *info);
2184
2185 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
2186         z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr,
2187         real *dsigma, real *work, integer *info);
2188
2189 /* Subroutine */ int slasd9_(integer *icompq, integer *ldu, integer *k, real *
2190         d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *
2191         dsigma, real *work, integer *info);
2192
2193 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n,
2194         integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt,
2195         integer *k, real *difl, real *difr, real *z__, real *poles, integer *
2196         givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
2197          real *c__, real *s, real *work, integer *iwork, integer *info);
2198
2199 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
2200         ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt,
2201         integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
2202         work, integer *info);
2203
2204 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
2205         inode, integer *ndiml, integer *ndimr, integer *msub);
2206
2207 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha,
2208         real *beta, real *a, integer *lda);
2209
2210 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work,
2211         integer *info);
2212
2213 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
2214
2215 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
2216          real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
2217         integer *iter, integer *ndiv, logical *ieee);
2218
2219 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
2220          integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
2221         real *dn1, real *dn2, real *tau, integer *ttype);
2222
2223 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
2224          real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
2225         dnm1, real *dnm2, logical *ieee);
2226
2227 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
2228          real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
2229         dnm2);
2230
2231 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
2232          integer *n, real *c__, real *s, real *a, integer *lda          );
2233
2234 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
2235
2236 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale,
2237         real *sumsq);
2238
2239 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
2240         ssmax, real *snr, real *csr, real *snl, real *csl);
2241
2242 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1,
2243         integer *k2, integer *ipiv, integer *incx);
2244
2245 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn,
2246         integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
2247         ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real
2248         *xnorm, integer *info);
2249
2250 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
2251          real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer
2252         *info);
2253
2254 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
2255         normin, integer *n, integer *kd, real *ab, integer *ldab, real *x,
2256         real *scale, real *cnorm, integer *info);
2257
2258 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
2259         ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
2260         jpiv);
2261
2262 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
2263         normin, integer *n, real *ap, real *x, real *scale, real *cnorm,
2264         integer *info);
2265
2266 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a,
2267         integer *lda, real *e, real *tau, real *w, integer *ldw         );
2268
2269 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
2270         normin, integer *n, real *a, integer *lda, real *x, real *scale, real
2271         *cnorm, integer *info);
2272
2273 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a,
2274         integer *lda, real *tau, real *work);
2275
2276 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v,
2277         integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
2278         work);
2279
2280 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda,
2281         integer *info);
2282
2283 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda,
2284         integer *info);
2285
2286 /* Subroutine */ int slazq3_(integer *i0, integer *n0, real *z__, integer *pp,
2287          real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
2288         integer *iter, integer *ndiv, logical *ieee, integer *ttype, real *
2289         dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *tau);
2290
2291 /* Subroutine */ int slazq4_(integer *i0, integer *n0, real *z__, integer *pp,
2292          integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
2293         real *dn1, real *dn2, real *tau, integer *ttype, real *g);
2294
2295 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
2296         real *q, integer *ldq, real *work, integer *info);
2297
2298 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m,
2299         integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work,
2300         integer *info);
2301
2302 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a,
2303         integer *lda, real *tau, real *work, integer *info);
2304
2305 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a,
2306         integer *lda, real *tau, real *work, integer *info);
2307
2308 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k,
2309         real *a, integer *lda, real *tau, real *work, integer *lwork, integer
2310         *info);
2311
2312 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
2313         integer *lda, real *tau, real *work, integer *lwork, integer *info);
2314
2315 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a,
2316         integer *lda, real *tau, real *work, integer *info);
2317
2318 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a,
2319         integer *lda, real *tau, real *work, integer *lwork, integer *info);
2320
2321 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a,
2322         integer *lda, real *tau, real *work, integer *lwork, integer *info);
2323
2324 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a,
2325         integer *lda, real *tau, real *work, integer *lwork, integer *info);
2326
2327 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a,
2328         integer *lda, real *tau, real *work, integer *info);
2329
2330 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a,
2331         integer *lda, real *tau, real *work, integer *lwork, integer *info);
2332
2333 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
2334         real *tau, real *work, integer *lwork, integer *info);
2335
2336 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n,
2337         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2338          real *work, integer *info);
2339
2340 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n,
2341         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2342          real *work, integer *info);
2343
2344 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m,
2345         integer *n, integer *k, real *a, integer *lda, real *tau, real *c__,
2346         integer *ldc, real *work, integer *lwork, integer *info);
2347
2348 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n,
2349         integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
2350         c__, integer *ldc, real *work, integer *lwork, integer *info);
2351
2352 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n,
2353         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2354          real *work, integer *info);
2355
2356 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n,
2357         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2358         real *work, integer *lwork, integer *info);
2359
2360 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n,
2361         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2362         real *work, integer *lwork, integer *info);
2363
2364 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n,
2365         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2366         real *work, integer *lwork, integer *info);
2367
2368 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n,
2369         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2370          real *work, integer *info);
2371
2372 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n,
2373         integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
2374         integer *ldc, real *work, integer *info);
2375
2376 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n,
2377         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2378         real *work, integer *lwork, integer *info);
2379
2380 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n,
2381         integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
2382         integer *ldc, real *work, integer *lwork, integer *info);
2383
2384 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m,
2385         integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
2386         real *work, integer *lwork, integer *info);
2387
2388 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab,
2389         integer *ldab, real *anorm, real *rcond, real *work, integer *iwork,
2390         integer *info);
2391
2392 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
2393         integer *ldab, real *s, real *scond, real *amax, integer *info);
2394
2395 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
2396         nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b,
2397         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
2398         work, integer *iwork, integer *info);
2399
2400 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
2401         integer *ldab, integer *info);
2402
2403 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
2404         nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
2405
2406 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
2407         integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
2408         char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
2409         real *rcond, real *ferr, real *berr, real *work, integer *iwork,
2410         integer *info);
2411
2412 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
2413         integer *ldab, integer *info);
2414
2415 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
2416         integer *ldab, integer *info);
2417
2418 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
2419         nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
2420
2421 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda,
2422         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
2423
2424 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real
2425         *scond, real *amax, integer *info);
2426
2427 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a,
2428         integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
2429          integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
2430         integer *info);
2431
2432 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
2433         integer *lda, real *b, integer *ldb, integer *info);
2434
2435 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
2436         nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
2437         real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
2438         real *ferr, real *berr, real *work, integer *iwork, integer *info);
2439
2440 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda,
2441         integer *info);
2442
2443 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
2444         integer *info);
2445
2446 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda,
2447         integer *info);
2448
2449 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
2450         integer *lda, real *b, integer *ldb, integer *info);
2451
2452 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
2453         real *rcond, real *work, integer *iwork, integer *info);
2454
2455 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
2456         scond, real *amax, integer *info);
2457
2458 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
2459         real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr,
2460         real *berr, real *work, integer *iwork, integer *info);
2461
2462 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
2463         real *b, integer *ldb, integer *info);
2464
2465 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
2466         nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
2467         ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
2468         *work, integer *iwork, integer *info);
2469
2470 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
2471
2472 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
2473
2474 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
2475         real *b, integer *ldb, integer *info);
2476
2477 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm,
2478         real *rcond, real *work, integer *info);
2479
2480 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e,
2481         real *z__, integer *ldz, real *work, integer *info);
2482
2483 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e,
2484         real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx,
2485         real *ferr, real *berr, real *work, integer *info);
2486
2487 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
2488         real *b, integer *ldb, integer *info);
2489
2490 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
2491          real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
2492         *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
2493
2494 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
2495
2496 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
2497         real *b, integer *ldb, integer *info);
2498
2499 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
2500         real *b, integer *ldb);
2501
2502 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
2503
2504 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd,
2505         real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
2506          integer *info);
2507
2508 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd,
2509         real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
2510          integer *lwork, integer *iwork, integer *liwork, integer *info);
2511
2512 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n,
2513         integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
2514          real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
2515         w, real *z__, integer *ldz, real *work, integer *iwork, integer *
2516         ifail, integer *info);
2517
2518 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka,
2519         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
2520         x, integer *ldx, real *work, integer *info);
2521
2522 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka,
2523         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
2524         w, real *z__, integer *ldz, real *work, integer *info);
2525
2526 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
2527         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
2528         w, real *z__, integer *ldz, real *work, integer *lwork, integer *
2529         iwork, integer *liwork, integer *info);
2530
2531 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n,
2532         integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
2533         ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer
2534         *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real
2535         *work, integer *iwork, integer *ifail, integer *info);
2536
2537 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd,
2538         real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq,
2539         real *work, integer *info);
2540
2541 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
2542         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
2543
2544 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap,
2545         real *w, real *z__, integer *ldz, real *work, integer *info);
2546
2547 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap,
2548         real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
2549         *iwork, integer *liwork, integer *info);
2550
2551 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n,
2552         real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol,
2553         integer *m, real *w, real *z__, integer *ldz, real *work, integer *
2554         iwork, integer *ifail, integer *info);
2555
2556 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
2557          real *bp, integer *info);
2558
2559 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
2560         n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
2561         integer *info);
2562
2563 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
2564         n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
2565         integer *lwork, integer *iwork, integer *liwork, integer *info);
2566
2567 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
2568         uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
2569          integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
2570         ldz, real *work, integer *iwork, integer *ifail, integer *info);
2571
2572 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
2573         real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
2574         ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
2575         info);
2576
2577 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
2578         integer *ipiv, real *b, integer *ldb, integer *info);
2579
2580 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
2581         nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real
2582         *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work,
2583         integer *iwork, integer *info);
2584
2585 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
2586         real *e, real *tau, integer *info);
2587
2588 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
2589         integer *info);
2590
2591 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
2592         real *work, integer *info);
2593
2594 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
2595         integer *ipiv, real *b, integer *ldb, integer *info);
2596
2597 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl,
2598         real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e,
2599         integer *m, integer *nsplit, real *w, integer *iblock, integer *
2600         isplit, real *work, integer *iwork, integer *info);
2601
2602 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e,
2603         real *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
2604         integer *liwork, integer *info);
2605
2606 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__,
2607         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
2608         integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
2609         work, integer *lwork, integer *iwork, integer *liwork, integer *info);
2610
2611 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real
2612         *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
2613         work, integer *iwork, integer *ifail, integer *info);
2614
2615 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__,
2616         real *e, real *vl, real *vu, integer *il, integer *iu, integer *m,
2617         real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz,
2618         logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
2619         liwork, integer *info);
2620
2621 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e,
2622         real *z__, integer *ldz, real *work, integer *info);
2623
2624 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
2625
2626 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
2627         z__, integer *ldz, real *work, integer *info);
2628
2629 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real
2630         *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
2631         integer *liwork, integer *info);
2632
2633 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__,
2634         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
2635         integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
2636         work, integer *lwork, integer *iwork, integer *liwork, integer *info);
2637
2638 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__,
2639         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
2640         integer *m, real *w, real *z__, integer *ldz, real *work, integer *
2641         iwork, integer *ifail, integer *info);
2642
2643 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda,
2644         integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork,
2645         integer *info);
2646
2647 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a,
2648         integer *lda, real *w, real *work, integer *lwork, integer *info);
2649
2650 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a,
2651         integer *lda, real *w, real *work, integer *lwork, integer *iwork,
2652         integer *liwork, integer *info);
2653
2654 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n,
2655         real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
2656         real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
2657         isuppz, real *work, integer *lwork, integer *iwork, integer *liwork,
2658         integer *info);
2659
2660 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n,
2661         real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
2662         real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
2663         work, integer *lwork, integer *iwork, integer *ifail, integer *info);
2664
2665 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
2666         integer *lda, real *b, integer *ldb, integer *info);
2667
2668 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a,
2669         integer *lda, real *b, integer *ldb, integer *info);
2670
2671 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
2672         n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
2673         integer *lwork, integer *info);
2674
2675 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
2676         n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
2677         integer *lwork, integer *iwork, integer *liwork, integer *info);
2678
2679 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
2680         uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
2681         vl, real *vu, integer *il, integer *iu, real *abstol, integer *m,
2682         real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
2683         *iwork, integer *ifail, integer *info);
2684
2685 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a,
2686         integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
2687         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
2688         work, integer *iwork, integer *info);
2689
2690 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a,
2691         integer *lda, integer *ipiv, real *b, integer *ldb, real *work,
2692         integer *lwork, integer *info);
2693
2694 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
2695         nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
2696         real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
2697          real *berr, real *work, integer *lwork, integer *iwork, integer *
2698         info);
2699
2700 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
2701         real *d__, real *e, real *tau, integer *info);
2702
2703 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
2704         integer *ipiv, integer *info);
2705
2706 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda,
2707         real *d__, real *e, real *tau, real *work, integer *lwork, integer *
2708         info);
2709
2710 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
2711     integer *ipiv, real *work, integer *lwork, integer *info);
2712
2713 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda,
2714         integer *ipiv, real *work, integer *info);
2715
2716 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
2717         integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
2718
2719 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n,
2720         integer *kd, real *ab, integer *ldab, real *rcond, real *work,
2721         integer *iwork, integer *info);
2722
2723 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n,
2724         integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
2725         *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work,
2726         integer *iwork, integer *info);
2727
2728 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n,
2729         integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
2730         *ldb, integer *info);
2731
2732 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
2733         integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl,
2734         integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real
2735         *work, integer *info);
2736
2737 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real
2738         *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
2739         z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work,
2740         integer *lwork, integer *info);
2741
2742 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real
2743         *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
2744         z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
2745         lwork, integer *info);
2746
2747 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz,
2748         logical *select, integer *n, real *a, integer *lda, real *b, integer *
2749         ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
2750         real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif,
2751         real *work, integer *lwork, integer *iwork, integer *liwork, integer *
2752         info);
2753
2754 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m,
2755         integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
2756          real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
2757         beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
2758         ldq, real *work, integer *ncycle, integer *info);
2759
2760 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
2761         integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
2762         integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
2763         mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
2764         info);
2765
2766 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
2767         n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
2768         ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
2769         *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer
2770         *pq, integer *info);
2771
2772 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
2773         n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
2774         ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
2775         *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
2776         iwork, integer *info);
2777
2778 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n,
2779         real *ap, real *rcond, real *work, integer *iwork, integer *info);
2780
2781 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n,
2782         integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
2783          real *ferr, real *berr, real *work, integer *iwork, integer *info);
2784
2785 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap,
2786         integer *info);
2787
2788 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n,
2789         integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
2790
2791 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n,
2792         real *a, integer *lda, real *rcond, real *work, integer *iwork,
2793         integer *info);
2794
2795 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
2796         integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
2797         integer *ldvr, integer *mm, integer *m, real *work, integer *info);
2798
2799 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt,
2800         real *q, integer *ldq, integer *ifst, integer *ilst, real *work,
2801         integer *info);
2802
2803 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n,
2804         integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x,
2805         integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
2806         integer *info);
2807
2808 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer
2809         *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi,
2810         integer *m, real *s, real *sep, real *work, integer *lwork, integer *
2811         iwork, integer *liwork, integer *info);
2812
2813 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
2814         integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
2815         integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
2816         work, integer *ldwork, integer *iwork, integer *info);
2817
2818 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer
2819         *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
2820         c__, integer *ldc, real *scale, integer *info);
2821
2822 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a,
2823         integer *lda, integer *info);
2824
2825 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a,
2826         integer *lda, integer *info);
2827
2828 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n,
2829         integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
2830         info);
2831
2832 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda,
2833         real *tau, integer *info);
2834
2835 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda,
2836         real *tau, real *work, integer *lwork, integer *info);
2837
2838 /* Subroutine */ int xerbla_(char *srname, integer *info);
2839
2840 #ifdef __cplusplus
2841 }
2842 #endif
2843
2844 #endif /* __CLAPACK_H */
2845