00001 #ifndef LAPACK_H
00002 #define LAPACK_H
00003
00004 #include "blas.h"
00005
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009
00010 extern void F77_NAME(dbdsqr)(const char* uplo, const int* n, const int* ncvt,
00011 const int* nru, const int* ncc, double* d, double* e,
00012 double* vt, const int* ldvt, double* u, const int* ldu,
00013 double* c, const int* ldc, double* work, int* info);
00014 extern void F77_NAME(ddisna)(const char* job, const int* m, const int* n,
00015 double* d, double* sep, int* info);
00016
00017 extern void F77_NAME(dgbbrd)(const char* vect, const int* m, const int* n,
00018 const int* ncc, const int* kl, const int* ku,
00019 double* ab, const int* ldab,
00020 double* d, double* e, double* q,
00021 const int* ldq, double* pt, const int* ldpt,
00022 double* c, const int* ldc,
00023 double* work, int* info);
00024 extern void F77_NAME(dgbcon)(const char* norm, const int* n, const int* kl,
00025 const int* ku, double* ab, const int* ldab,
00026 int* ipiv, const double* anorm, double* rcond,
00027 double* work, int* iwork, int* info);
00028 extern void F77_NAME(dgbequ)(const int* m, const int* n, const int* kl, const int* ku,
00029 double* ab, const int* ldab, double* r, double* c,
00030 double* rowcnd, double* colcnd, double* amax, int* info);
00031 extern void F77_NAME(dgbrfs)(const char* trans, const int* n, const int* kl,
00032 const int* ku, const int* nrhs, double* ab,
00033 const int* ldab, double* afb, const int* ldafb,
00034 int* ipiv, double* b, const int* ldb,
00035 double* x, const int* ldx, double* ferr, double* berr,
00036 double* work, int* iwork, int* info);
00037 extern void F77_NAME(dgbsv)(const int* n, const int* kl,const int* ku,
00038 const int* nrhs, double* ab, const int* ldab,
00039 int* ipiv, double* b, const int* ldb, int* info);
00040 extern void F77_NAME(dgbsvx)(const int* fact, const char* trans,
00041 const int* n, const int* kl,const int* ku,
00042 const int* nrhs, double* ab, const int* ldab,
00043 double* afb, const int* ldafb, int* ipiv,
00044 const char* equed, double* r, double* c,
00045 double* b, const int* ldb,
00046 double* x, const int* ldx,
00047 double* rcond, double* ferr, double* berr,
00048 double* work, int* iwork, int* info);
00049 extern void F77_NAME(dgbtf2)(const int* m, const int* n, const int* kl,const int* ku,
00050 double* ab, const int* ldab, int* ipiv, int* info);
00051 extern void F77_NAME(dgbtrf)(const int* m, const int* n, const int* kl,const int* ku,
00052 double* ab, const int* ldab, int* ipiv, int* info);
00053 extern void F77_NAME(dgbtrs)(const char* trans, const int* n,
00054 const int* kl, const int* ku, const int* nrhs,
00055 const double* ab, const int* ldab, const int* ipiv,
00056 double* b, const int* ldb, int* info);
00057
00058 extern void F77_NAME(dgebak)(const char* job, const char* side, const int* n,
00059 const int* ilo, const int* ihi, double* scale,
00060 const int* m, double* v, const int* ldv, int* info);
00061 extern void F77_NAME(dgebal)(const char* job, const int* n, double* a, const int* lda,
00062 int* ilo, int* ihi, double* scale, int* info);
00063 extern void F77_NAME(dgebd2)(const int* m, const int* n, double* a, const int* lda,
00064 double* d, double* e, double* tauq, double* taup,
00065 double* work, int* info);
00066 extern void F77_NAME(dgebrd)(const int* m, const int* n, double* a, const int* lda,
00067 double* d, double* e, double* tauq, double* taup,
00068 double* work, const int* lwork, int* info);
00069 extern void F77_NAME(dgecon)(const char* norm, const int* n,
00070 const double* a, const int* lda,
00071 const double* anorm, double* rcond,
00072 double* work, int* iwork, int* info);
00073 extern void F77_NAME(dgeequ)(const int* m, const int* n, double* a, const int* lda,
00074 double* r, double* c, double* rowcnd, double* colcnd,
00075 double* amax, int* info);
00076 extern void F77_NAME(dgees)(const char* jobvs, const char* sort,
00077 int (*select)(const double*, const double*),
00078 const int* n, double* a, const int* lda,
00079 int* sdim, double* wr, double* wi,
00080 double* vs, const int* ldvs,
00081 double* work, const int* lwork, int* bwork, int* info);
00082 extern void F77_NAME(dgeesx)(const char* jobvs, const char* sort,
00083 int (*select)(const double*, const double*),
00084 const char* sense, const int* n, double* a,
00085 const int* lda, int* sdim, double* wr, double* wi,
00086 double* vs, const int* ldvs, double* rconde,
00087 double* rcondv, double* work, const int* lwork,
00088 int* iwork, const int* liwork, int* bwork, int* info);
00089 extern void F77_NAME(dgeev)(const char* jobvl, const char* jobvr,
00090 const int* n, double* a, const int* lda,
00091 double* wr, double* wi, double* vl, const int* ldvl,
00092 double* vr, const int* ldvr,
00093 double* work, const int* lwork, int* info);
00094 extern void F77_NAME(dgeevx)(const char* balanc, const char* jobvl, const char* jobvr,
00095 const char* sense, const int* n, double* a, const int* lda,
00096 double* wr, double* wi, double* vl, const int* ldvl,
00097 double* vr, const int* ldvr, int* ilo, int* ihi,
00098 double* scale, double* abnrm, double* rconde, double* rcondv,
00099 double* work, const int* lwork, int* iwork, int* info);
00100 extern void F77_NAME(dgegv)(const char* jobvl, const char* jobvr,
00101 const int* n, double* a, const int* lda,
00102 double* b, const int* ldb,
00103 double* alphar, double* alphai,
00104 const double* beta, double* vl, const int* ldvl,
00105 double* vr, const int* ldvr,
00106 double* work, const int* lwork, int* info);
00107 extern void F77_NAME(dgehd2)(const int* n, const int* ilo, const int* ihi,
00108 double* a, const int* lda, double* tau,
00109 double* work, int* info);
00110 extern void F77_NAME(dgehrd)(const int* n, const int* ilo, const int* ihi,
00111 double* a, const int* lda, double* tau,
00112 double* work, const int* lwork, int* info);
00113 extern void F77_NAME(dgelq2)(const int* m, const int* n,
00114 double* a, const int* lda, double* tau,
00115 double* work, int* info);
00116 extern void F77_NAME(dgelqf)(const int* m, const int* n,
00117 double* a, const int* lda, double* tau,
00118 double* work, const int* lwork, int* info);
00119 extern void F77_NAME(dgels)(const char* trans, const int* m, const int* n,
00120 const int* nrhs, double* a, const int* lda,
00121 double* b, const int* ldb,
00122 double* work, const int* lwork, int* info);
00123 extern void F77_NAME(dgelss)(const int* m, const int* n, const int* nrhs,
00124 double* a, const int* lda, double* b, const int* ldb,
00125 double* s, double* rcond, int* rank,
00126 double* work, const int* lwork, int* info);
00127 extern void F77_NAME(dgelsy)(const int* m, const int* n, const int* nrhs,
00128 double* a, const int* lda, double* b, const int* ldb,
00129 int* jpvt, const double* rcond, int* rank,
00130 double* work, const int* lwork, int* info);
00131 extern void F77_NAME(dgeql2)(const int* m, const int* n, double* a, const int* lda,
00132 double* tau, double* work, int* info);
00133 extern void F77_NAME(dgeqlf)(const int* m, const int* n,
00134 double* a, const int* lda, double* tau,
00135 double* work, const int* lwork, int* info);
00136 extern void F77_NAME(dgeqp3)(const int* m, const int* n, double* a, const int* lda,
00137 int* jpvt, double* tau, double* work, const int* lwork,
00138 int* info);
00139 extern void F77_NAME(dgeqpf)(const int* m, const int* n, double* a, const int* lda,
00140 int* jpvt, double* tau, double* work, int* info);
00141 extern void F77_NAME(dgeqr2)(const int* m, const int* n, double* a, const int* lda,
00142 double* tau, double* work, int* info);
00143 extern void F77_NAME(dgeqrf)(const int* m, const int* n, double* a, const int* lda,
00144 double* tau, double* work, const int* lwork, int* info);
00145 extern void F77_NAME(dgerfs)(const char* trans, const int* n, const int* nrhs,
00146 double* a, const int* lda, double* af, const int* ldaf,
00147 int* ipiv, double* b, const int* ldb,
00148 double* x, const int* ldx, double* ferr, double* berr,
00149 double* work, int* iwork, int* info);
00150 extern void F77_NAME(dgerq2)(const int* m, const int* n, double* a, const int* lda,
00151 double* tau, double* work, int* info);
00152 extern void F77_NAME(dgerqf)(const int* m, const int* n, double* a, const int* lda,
00153 double* tau, double* work, const int* lwork, int* info);
00154 extern void F77_NAME(dgesv)(const int* n, const int* nrhs, double* a, const int* lda,
00155 int* ipiv, double* b, const int* ldb, int* info);
00156 extern void F77_NAME(dgesvd)(const char* jobu, const char* jobvt, const int* m,
00157 const int* n, double* a, const int* lda, double* s,
00158 double* u, const int* ldu, double* vt, const int* ldvt,
00159 double* work, const int* lwork, int* info);
00160 extern void F77_NAME(dgesvx)(const int* fact, const char* trans, const int* n,
00161 const int* nrhs, double* a, const int* lda,
00162 double* af, const int* ldaf, int* ipiv,
00163 char *equed, double* r, double* c,
00164 double* b, const int* ldb,
00165 double* x, const int* ldx,
00166 double* rcond, double* ferr, double* berr,
00167 double* work, int* iwork, int* info);
00168 extern void F77_NAME(dgetf2)(const int* m, const int* n, double* a, const int* lda,
00169 int* ipiv, int* info);
00170 extern void F77_NAME(dgetrf)(const int* m, const int* n, double* a, const int* lda,
00171 int* ipiv, int* info);
00172 extern void F77_NAME(dgetri)(const int* n, double* a, const int* lda,
00173 int* ipiv, double* work, const int* lwork, int* info);
00174 extern void F77_NAME(dgetrs)(const char* trans, const int* n, const int* nrhs,
00175 const double* a, const int* lda, const int* ipiv,
00176 double* b, const int* ldb, int* info);
00177
00178 extern void F77_NAME(dggbak)(const char* job, const char* side,
00179 const int* n, const int* ilo, const int* ihi,
00180 double* lscale, double* rscale, const int* m,
00181 double* v, const int* ldv, int* info);
00182 extern void F77_NAME(dggbal)(const char* job, const int* n, double* a, const int* lda,
00183 double* b, const int* ldb, int* ilo, int* ihi,
00184 double* lscale, double* rscale, double* work, int* info);
00185 extern void F77_NAME(dgges)(const char* jobvsl, const char* jobvsr, const char* sort,
00186 int (*delztg)(double*, double*, double*),
00187 const int* n, double* a, const int* lda,
00188 double* b, const int* ldb, double* alphar,
00189 double* alphai, const double* beta,
00190 double* vsl, const int* ldvsl,
00191 double* vsr, const int* ldvsr,
00192 double* work, const int* lwork, int* bwork, int* info);
00193
00194 extern void F77_NAME(dggglm)(const int* n, const int* m, const int* p,
00195 double* a, const int* lda, double* b, const int* ldb,
00196 double* d, double* x, double* y,
00197 double* work, const int* lwork, int* info);
00198 extern void F77_NAME(dgghrd)(const char* compq, const char* compz, const int* n,
00199 const int* ilo, const int* ihi, double* a, const int* lda,
00200 double* b, const int* ldb, double* q, const int* ldq,
00201 double* z, const int* ldz, int* info);
00202 extern void F77_NAME(dgglse)(const int* m, const int* n, const int* p,
00203 double* a, const int* lda,
00204 double* b, const int* ldb,
00205 double* c, double* d, double* x,
00206 double* work, const int* lwork, int* info);
00207 extern void F77_NAME(dggqrf)(const int* n, const int* m, const int* p,
00208 double* a, const int* lda, double* taua,
00209 double* b, const int* ldb, double* taub,
00210 double* work, const int* lwork, int* info);
00211 extern void F77_NAME(dggrqf)(const int* m, const int* p, const int* n,
00212 double* a, const int* lda, double* taua,
00213 double* b, const int* ldb, double* taub,
00214 double* work, const int* lwork, int* info);
00215 extern void F77_NAME(dggsvd)(const char* jobu, const char* jobv, const char* jobq,
00216 const int* m, const int* n, const int* p,
00217 const int* k, const int* l,
00218 double* a, const int* lda,
00219 double* b, const int* ldb,
00220 const double* alpha, const double* beta,
00221 double* u, const int* ldu,
00222 double* v, const int* ldv,
00223 double* q, const int* ldq,
00224 double* work, int* iwork, int* info);
00225
00226 extern void F77_NAME(dgtcon)(const char* norm, const int* n, double* dl, double* d,
00227 double* du, double* du2, int* ipiv, const double* anorm,
00228 double* rcond, double* work, int* iwork, int* info);
00229 extern void F77_NAME(dgtrfs)(const char* trans, const int* n, const int* nrhs,
00230 double* dl, double* d, double* du, double* dlf,
00231 double* df, double* duf, double* du2,
00232 int* ipiv, double* b, const int* ldb,
00233 double* x, const int* ldx,
00234 double* ferr, double* berr,
00235 double* work, int* iwork, int* info);
00236 extern void F77_NAME(dgtsv)(const int* n, const int* nrhs,
00237 double* dl, double* d, double* du,
00238 double* b, const int* ldb, int* info);
00239 extern void F77_NAME(dgtsvx)(const int* fact, const char* trans,
00240 const int* n, const int* nrhs,
00241 double* dl, double* d, double* du,
00242 double* dlf, double* df, double* duf,
00243 double* du2, int* ipiv,
00244 double* b, const int* ldb,
00245 double* x, const int* ldx,
00246 double* rcond, double* ferr, double* berr,
00247 double* work, int* iwork, int* info);
00248 extern void F77_NAME(dgttrf)(const int* n, double* dl, double* d,
00249 double* du, double* du2, int* ipiv, int* info);
00250 extern void F77_NAME(dgttrs)(const char* trans, const int* n, const int* nrhs,
00251 double* dl, double* d, double* du, double* du2,
00252 int* ipiv, double* b, const int* ldb, int* info);
00253
00254 extern void F77_NAME(dopgtr)(const char* uplo, const int* n,
00255 const double* ap, const double* tau,
00256 double* q, const int* ldq,
00257 double* work, int* info);
00258 extern void F77_NAME(dopmtr)(const char* side, const char* uplo,
00259 const char* trans, const int* m, const int* n,
00260 const double* ap, const double* tau,
00261 double* c, const int* ldc,
00262 double* work, int* info);
00263 extern void F77_NAME(dorg2l)(const int* m, const int* n, const int* k,
00264 double* a, const int* lda,
00265 const double* tau, double* work, int* info);
00266 extern void F77_NAME(dorg2r)(const int* m, const int* n, const int* k,
00267 double* a, const int* lda,
00268 const double* tau, double* work, int* info);
00269 extern void F77_NAME(dorgbr)(const char* vect, const int* m,
00270 const int* n, const int* k,
00271 double* a, const int* lda,
00272 const double* tau, double* work,
00273 const int* lwork, int* info);
00274 extern void F77_NAME(dorghr)(const int* n, const int* ilo, const int* ihi,
00275 double* a, const int* lda, const double* tau,
00276 double* work, const int* lwork, int* info);
00277 extern void F77_NAME(dorgl2)(const int* m, const int* n, const int* k,
00278 double* a, const int* lda, const double* tau,
00279 double* work, int* info);
00280 extern void F77_NAME(dorglq)(const int* m, const int* n, const int* k,
00281 double* a, const int* lda,
00282 const double* tau, double* work,
00283 const int* lwork, int* info);
00284 extern void F77_NAME(dorgql)(const int* m, const int* n, const int* k,
00285 double* a, const int* lda,
00286 const double* tau, double* work,
00287 const int* lwork, int* info);
00288 extern void F77_NAME(dorgqr)(const int* m, const int* n, const int* k,
00289 double* a, const int* lda, const double* tau,
00290 double* work, const int* lwork, int* info);
00291 extern void F77_NAME(dorgr2)(const int* m, const int* n, const int* k,
00292 double* a, const int* lda, const double* tau,
00293 double* work, int* info);
00294 extern void F77_NAME(dorgrq)(const int* m, const int* n, const int* k,
00295 double* a, const int* lda, const double* tau,
00296 double* work, const int* lwork, int* info);
00297 extern void F77_NAME(dorgtr)(const char* uplo, const int* n,
00298 double* a, const int* lda, const double* tau,
00299 double* work, const int* lwork, int* info);
00300 extern void F77_NAME(dorm2l)(const char* side, const char* trans,
00301 const int* m, const int* n, const int* k,
00302 const double* a, const int* lda,
00303 const double* tau, double* c, const int* ldc,
00304 double* work, int* info);
00305 extern void F77_NAME(dorm2r)(const char* side, const char* trans,
00306 const int* m, const int* n, const int* k,
00307 const double* a, const int* lda, const double* tau,
00308 double* c, const int* ldc, double* work, int* info);
00309 extern void F77_NAME(dormbr)(const char* vect, const char* side, const char* trans,
00310 const int* m, const int* n, const int* k,
00311 const double* a, const int* lda, const double* tau,
00312 double* c, const int* ldc,
00313 double* work, const int* lwork, int* info);
00314 extern void F77_NAME(dormhr)(const char* side, const char* trans, const int* m,
00315 const int* n, const int* ilo, const int* ihi,
00316 const double* a, const int* lda, const double* tau,
00317 double* c, const int* ldc,
00318 double* work, const int* lwork, int* info);
00319 extern void F77_NAME(dorml2)(const char* side, const char* trans,
00320 const int* m, const int* n, const int* k,
00321 const double* a, const int* lda, const double* tau,
00322 double* c, const int* ldc, double* work, int* info);
00323 extern void F77_NAME(dormlq)(const char* side, const char* trans,
00324 const int* m, const int* n, const int* k,
00325 const double* a, const int* lda,
00326 const double* tau, double* c, const int* ldc,
00327 double* work, const int* lwork, int* info);
00328 extern void F77_NAME(dormql)(const char* side, const char* trans,
00329 const int* m, const int* n, const int* k,
00330 const double* a, const int* lda,
00331 const double* tau, double* c, const int* ldc,
00332 double* work, const int* lwork, int* info);
00333 extern void F77_NAME(dormqr)(const char* side, const char* trans,
00334 const int* m, const int* n, const int* k,
00335 const double* a, const int* lda,
00336 const double* tau, double* c, const int* ldc,
00337 double* work, const int* lwork, int* info);
00338 extern void F77_NAME(dormr2)(const char* side, const char* trans,
00339 const int* m, const int* n, const int* k,
00340 const double* a, const int* lda,
00341 const double* tau, double* c, const int* ldc,
00342 double* work, int* info);
00343 extern void F77_NAME(dormrq)(const char* side, const char* trans,
00344 const int* m, const int* n, const int* k,
00345 const double* a, const int* lda,
00346 const double* tau, double* c, const int* ldc,
00347 double* work, const int* lwork, int* info);
00348 extern void F77_NAME(dormtr)(const char* side, const char* uplo,
00349 const char* trans, const int* m, const int* n,
00350 const double* a, const int* lda,
00351 const double* tau, double* c, const int* ldc,
00352 double* work, const int* lwork, int* info);
00353
00354 extern void F77_NAME(dpbcon)(const char* uplo, const int* n, const int* kd,
00355 const double* ab, const int* ldab,
00356 const double* anorm, double* rcond,
00357 double* work, int* iwork, int* info);
00358 extern void F77_NAME(dpbequ)(const char* uplo, const int* n, const int* kd,
00359 const double* ab, const int* ldab,
00360 double* s, double* scond, double* amax, int* info);
00361 extern void F77_NAME(dpbrfs)(const char* uplo, const int* n,
00362 const int* kd, const int* nrhs,
00363 const double* ab, const int* ldab,
00364 const double* afb, const int* ldafb,
00365 const double* b, const int* ldb,
00366 double* x, const int* ldx,
00367 double* ferr, double* berr,
00368 double* work, int* iwork, int* info);
00369 extern void F77_NAME(dpbstf)(const char* uplo, const int* n, const int* kd,
00370 double* ab, const int* ldab, int* info);
00371 extern void F77_NAME(dpbsv)(const char* uplo, const int* n,
00372 const int* kd, const int* nrhs,
00373 double* ab, const int* ldab,
00374 double* b, const int* ldb, int* info);
00375 extern void F77_NAME(dpbsvx)(const int* fact, const char* uplo, const int* n,
00376 const int* kd, const int* nrhs,
00377 double* ab, const int* ldab,
00378 double* afb, const int* ldafb,
00379 char* equed, double* s,
00380 double* b, const int* ldb,
00381 double* x, const int* ldx, double* rcond,
00382 double* ferr, double* berr,
00383 double* work, int* iwork, int* info);
00384 extern void F77_NAME(dpbtf2)(const char* uplo, const int* n, const int* kd,
00385 double* ab, const int* ldab, int* info);
00386 extern void F77_NAME(dpbtrf)(const char* uplo, const int* n, const int* kd,
00387 double* ab, const int* ldab, int* info);
00388 extern void F77_NAME(dpbtrs)(const char* uplo, const int* n,
00389 const int* kd, const int* nrhs,
00390 const double* ab, const int* ldab,
00391 double* b, const int* ldb, int* info);
00392
00393 extern void F77_NAME(dpocon)(const char* uplo, const int* n,
00394 const double* a, const int* lda,
00395 const double* anorm, double* rcond,
00396 double* work, int* iwork, int* info);
00397 extern void F77_NAME(dpoequ)(const int* n, const double* a, const int* lda,
00398 double* s, double* scond, double* amax, int* info);
00399 extern void F77_NAME(dporfs)(const char* uplo, const int* n, const int* nrhs,
00400 const double* a, const int* lda,
00401 const double* af, const int* ldaf,
00402 const double* b, const int* ldb,
00403 double* x, const int* ldx,
00404 double* ferr, double* berr,
00405 double* work, int* iwork, int* info);
00406 extern void F77_NAME(dposv)(const char* uplo, const int* n, const int* nrhs,
00407 double* a, const int* lda,
00408 double* b, const int* ldb, int* info);
00409 extern void F77_NAME(dposvx)(const int* fact, const char* uplo,
00410 const int* n, const int* nrhs,
00411 double* a, const int* lda,
00412 double* af, const int* ldaf, char* equed,
00413 double* s, double* b, const int* ldb,
00414 double* x, const int* ldx, double* rcond,
00415 double* ferr, double* berr, double* work,
00416 int* iwork, int* info);
00417 extern void F77_NAME(dpotf2)(const char* uplo, const int* n,
00418 double* a, const int* lda, int* info);
00419 extern void F77_NAME(dpotrf)(const char* uplo, const int* n,
00420 double* a, const int* lda, int* info);
00421 extern void F77_NAME(dpotri)(const char* uplo, const int* n,
00422 double* a, const int* lda, int* info);
00423 extern void F77_NAME(dpotrs)(const char* uplo, const int* n,
00424 const int* nrhs, const double* a, const int* lda,
00425 double* b, const int* ldb, int* info);
00426 extern void F77_NAME(dppcon)(const char* uplo, const int* n,
00427 const double* ap, const double* anorm, double* rcond,
00428 double* work, int* iwork, int* info);
00429 extern void F77_NAME(dppequ)(const char* uplo, const int* n,
00430 const double* ap, double* s, double* scond,
00431 double* amax, int* info);
00432
00433 extern void F77_NAME(dpprfs)(const char* uplo, const int* n, const int* nrhs,
00434 const double* ap, const double* afp,
00435 const double* b, const int* ldb,
00436 double* x, const int* ldx,
00437 double* ferr, double* berr,
00438 double* work, int* iwork, int* info);
00439 extern void F77_NAME(dppsv)(const char* uplo, const int* n,
00440 const int* nrhs, const double* ap,
00441 double* b, const int* ldb, int* info);
00442 extern void F77_NAME(dppsvx)(const int* fact, const char* uplo,
00443 const int* n, const int* nrhs, double* ap,
00444 double* afp, char* equed, double* s,
00445 double* b, const int* ldb,
00446 double* x, const int* ldx,
00447 double* rcond, double* ferr, double* berr,
00448 double* work, int* iwork, int* info);
00449 extern void F77_NAME(dpptrf)(const char* uplo, const int* n, double* ap, int* info);
00450 extern void F77_NAME(dpptri)(const char* uplo, const int* n, double* ap, int* info);
00451 extern void F77_NAME(dpptrs)(const char* uplo, const int* n,
00452 const int* nrhs, const double* ap,
00453 double* b, const int* ldb, int* info);
00454
00455 extern void F77_NAME(dptcon)(const int* n,
00456 const double* d, const double* e,
00457 const double* anorm, double* rcond,
00458 double* work, int* info);
00459 extern void F77_NAME(dpteqr)(const char* compz, const int* n, double* d,
00460 double* e, double* z, const int* ldz,
00461 double* work, int* info);
00462 extern void F77_NAME(dptrfs)(const int* n, const int* nrhs,
00463 const double* d, const double* e,
00464 const double* df, const double* ef,
00465 const double* b, const int* ldb,
00466 double* x, const int* ldx,
00467 double* ferr, double* berr,
00468 double* work, int* info);
00469 extern void F77_NAME(dptsv)(const int* n, const int* nrhs, double* d,
00470 double* e, double* b, const int* ldb, int* info);
00471 extern void F77_NAME(dptsvx)(const int* fact, const int* n,
00472 const int* nrhs,
00473 const double* d, const double* e,
00474 double* df, double* ef,
00475 const double* b, const int* ldb,
00476 double* x, const int* ldx, double* rcond,
00477 double* ferr, double* berr,
00478 double* work, int* info);
00479 extern void F77_NAME(dpttrf)(const int* n, double* d, double* e, int* info);
00480 extern void F77_NAME(dpttrs)(const int* n, const int* nrhs,
00481 const double* d, const double* e,
00482 double* b, const int* ldb, int* info);
00483 extern void F77_NAME(drscl)(const int* n, const double* da,
00484 double* x, const int* incx);
00485
00486
00487 extern void F77_NAME(dsbev)(const char* jobz, const char* uplo,
00488 const int* n, const int* kd,
00489 double* ab, const int* ldab,
00490 double* w, double* z, const int* ldz,
00491 double* work, int* info);
00492 extern void F77_NAME(dsbevd)(const char* jobz, const char* uplo,
00493 const int* n, const int* kd,
00494 double* ab, const int* ldab,
00495 double* w, double* z, const int* ldz,
00496 double* work, const int* lwork,
00497 int* iwork, const int* liwork, int* info);
00498 extern void F77_NAME(dsbevx)(const char* jobz, const char* range,
00499 const char* uplo, const int* n, const int* kd,
00500 double* ab, const int* ldab,
00501 double* q, const int* ldq,
00502 const double* vl, const double* vu,
00503 const int* il, const int* iu,
00504 const double* abstol,
00505 int* m, double* w,
00506 double* z, const int* ldz,
00507 double* work, int* iwork,
00508 int* ifail, int* info);
00509 extern void F77_NAME(dsbgst)(const char* vect, const char* uplo,
00510 const int* n, const int* ka, const int* kb,
00511 double* ab, const int* ldab,
00512 double* bb, const int* ldbb,
00513 double* x, const int* ldx,
00514 double* work, int* info);
00515 extern void F77_NAME(dsbgv)(const char* jobz, const char* uplo,
00516 const int* n, const int* ka, const int* kb,
00517 double* ab, const int* ldab,
00518 double* bb, const int* ldbb,
00519 double* w, double* z, const int* ldz,
00520 double* work, int* info);
00521 extern void F77_NAME(dsbtrd)(const char* vect, const char* uplo,
00522 const int* n, const int* kd,
00523 double* ab, const int* ldab,
00524 double* d, double* e,
00525 double* q, const int* ldq,
00526 double* work, int* info);
00527
00528 extern void F77_NAME(dspcon)(const char* uplo, const int* n,
00529 const double* ap, const int* ipiv,
00530 const double* anorm, double* rcond,
00531 double* work, int* iwork, int* info);
00532 extern void F77_NAME(dspev)(const char* jobz, const char* uplo, const int* n,
00533 double* ap, double* w, double* z, const int* ldz,
00534 double* work, int* info);
00535 extern void F77_NAME(dspevd)(const char* jobz, const char* uplo,
00536 const int* n, double* ap, double* w,
00537 double* z, const int* ldz,
00538 double* work, const int* lwork,
00539 int* iwork, const int* liwork, int* info);
00540 extern void F77_NAME(dspevx)(const char* jobz, const char* range,
00541 const char* uplo, const int* n, double* ap,
00542 const double* vl, const double* vu,
00543 const int* il, const int* iu,
00544 const double* abstol,
00545 int* m, double* w,
00546 double* z, const int* ldz,
00547 double* work, int* iwork,
00548 int* ifail, int* info);
00549 extern void F77_NAME(dspgst)(const int* itype, const char* uplo,
00550 const int* n, double* ap, double* bp, int* info);
00551 extern void F77_NAME(dspgv)(const int* itype, const char* jobz,
00552 const char* uplo, const int* n,
00553 double* ap, double* bp, double* w,
00554 double* z, const int* ldz,
00555 double* work, int* info);
00556
00557 extern void F77_NAME(dsprfs)(const char* uplo, const int* n,
00558 const int* nrhs, const double* ap,
00559 const double* afp, const int* ipiv,
00560 const double* b, const int* ldb,
00561 double* x, const int* ldx,
00562 double* ferr, double* berr,
00563 double* work, int* iwork, int* info);
00564
00565 extern void F77_NAME(dspsv)(const char* uplo, const int* n,
00566 const int* nrhs, double* ap, int* ipiv,
00567 double* b, const int* ldb, int* info);
00568
00569 extern void F77_NAME(dspsvx)(const int* fact, const char* uplo,
00570 const int* n, const int* nrhs,
00571 const double* ap, double* afp, int* ipiv,
00572 const double* b, const int* ldb,
00573 double* x, const int* ldx,
00574 double* rcond, double* ferr, double* berr,
00575 double* work, int* iwork, int* info);
00576
00577 extern void F77_NAME(dsptrd)(const char* uplo, const int* n,
00578 double* ap, double* d, double* e,
00579 double* tau, int* info);
00580
00581 extern void F77_NAME(dsptrf)(const char* uplo, const int* n,
00582 double* ap, int* ipiv, int* info);
00583
00584 extern void F77_NAME(dsptri)(const char* uplo, const int* n,
00585 double* ap, const int* ipiv,
00586 double* work, int* info);
00587
00588 extern void F77_NAME(dsptrs)(const char* uplo, const int* n,
00589 const int* nrhs, const double* ap,
00590 const int* ipiv, double* b, const int* ldb, int* info);
00591
00592
00593 extern void F77_NAME(dstebz)(const char* range, const char* order, const int* n,
00594 const double* vl, const double* vu,
00595 const int* il, const int* iu,
00596 const double *abstol,
00597 const double* d, const double* e,
00598 int* m, int* nsplit, double* w,
00599 int* iblock, int* isplit,
00600 double* work, int* iwork,
00601 int* info);
00602 extern void F77_NAME(dstedc)(const char* compz, const int* n,
00603 double* d, double* e,
00604 double* z, const int* ldz,
00605 double* work, const int* lwork,
00606 int* iwork, const int* liwork, int* info);
00607 extern void F77_NAME(dstein)(const int* n, const double* d, const double* e,
00608 const int* m, const double* w,
00609 const int* iblock, const int* isplit,
00610 double* z, const int* ldz,
00611 double* work, int* iwork,
00612 int* ifail, int* info);
00613 extern void F77_NAME(dsteqr)(const char* compz, const int* n, double* d, double* e,
00614 double* z, const int* ldz, double* work, int* info);
00615 extern void F77_NAME(dsterf)(const int* n, double* d, double* e, int* info);
00616 extern void F77_NAME(dstev)(const char* jobz, const int* n,
00617 double* d, double* e,
00618 double* z, const int* ldz,
00619 double* work, int* info);
00620 extern void F77_NAME(dstevd)(const char* jobz, const int* n,
00621 double* d, double* e,
00622 double* z, const int* ldz,
00623 double* work, const int* lwork,
00624 int* iwork, const int* liwork, int* info);
00625 extern void F77_NAME(dstevx)(const char* jobz, const char* range,
00626 const int* n, double* d, double* e,
00627 const double* vl, const double* vu,
00628 const int* il, const int* iu,
00629 const double* abstol,
00630 int* m, double* w,
00631 double* z, const int* ldz,
00632 double* work, int* iwork,
00633 int* ifail, int* info);
00634
00635 extern void F77_NAME(dsycon)(const char* uplo, const int* n,
00636 const double* a, const int* lda,
00637 const int* ipiv,
00638 const double* anorm, double* rcond,
00639 double* work, int* iwork, int* info);
00640 extern void F77_NAME(dsyev)(const char* jobz, const char* uplo,
00641 const int* n, double* a, const int* lda,
00642 double* w, double* work, const int* lwork, int* info);
00643 extern void F77_NAME(dsyevd)(const char* jobz, const char* uplo,
00644 const int* n, double* a, const int* lda,
00645 double* w, double* work, const int* lwork,
00646 int* iwork, const int* liwork, int* info);
00647 extern void F77_NAME(dsyevx)(const char* jobz, const char* range,
00648 const char* uplo, const int* n,
00649 double* a, const int* lda,
00650 const double* vl, const double* vu,
00651 const int* il, const int* iu,
00652 const double* abstol,
00653 int* m, double* w,
00654 double* z, const int* ldz,
00655 double* work, const int* lwork, int* iwork,
00656 int* ifail, int* info);
00657 extern void F77_NAME(dsyevr)(const char *jobz, const char *range, const char *uplo,
00658 const int *n, double *a, const int *lda,
00659 const double *vl, const double *vu,
00660 const int *il, const int *iu,
00661 const double *abstol, int *m, double *w,
00662 double *z, const int *ldz, int *isuppz,
00663 double *work, const int *lwork,
00664 int *iwork, const int *liwork,
00665 int *info);
00666 extern void F77_NAME(dsygs2)(const int* itype, const char* uplo,
00667 const int* n, double* a, const int* lda,
00668 const double* b, const int* ldb, int* info);
00669 extern void F77_NAME(dsygst)(const int* itype, const char* uplo,
00670 const int* n, double* a, const int* lda,
00671 const double* b, const int* ldb, int* info);
00672 extern void F77_NAME(dsygv)(const int* itype, const char* jobz,
00673 const char* uplo, const int* n,
00674 double* a, const int* lda,
00675 double* b, const int* ldb,
00676 double* w, double* work, const int* lwork,
00677 int* info);
00678 extern void F77_NAME(dsyrfs)(const char* uplo, const int* n,
00679 const int* nrhs,
00680 const double* a, const int* lda,
00681 const double* af, const int* ldaf,
00682 const int* ipiv,
00683 const double* b, const int* ldb,
00684 double* x, const int* ldx,
00685 double* ferr, double* berr,
00686 double* work, int* iwork, int* info);
00687
00688 extern void F77_NAME(dsysv)(const char* uplo, const int* n,
00689 const int* nrhs,
00690 double* a, const int* lda, int* ipiv,
00691 double* b, const int* ldb,
00692 double* work, const int* lwork, int* info);
00693
00694 extern void F77_NAME(dsysvx)(const int* fact, const char* uplo,
00695 const int* n, const int* nrhs,
00696 const double* a, const int* lda,
00697 double* af, const int* ldaf, int* ipiv,
00698 const double* b, const int* ldb,
00699 double* x, const int* ldx, double* rcond,
00700 double* ferr, double* berr,
00701 double* work, const int* lwork,
00702 int* iwork, int* info);
00703
00704 extern void F77_NAME(dsytd2)(const char* uplo, const int* n,
00705 double* a, const int* lda,
00706 double* d, double* e, double* tau,
00707 int* info);
00708
00709 extern void F77_NAME(dsytf2)(const char* uplo, const int* n,
00710 double* a, const int* lda,
00711 int* ipiv, int* info);
00712
00713 extern void F77_NAME(dsytrd)(const char* uplo, const int* n,
00714 double* a, const int* lda,
00715 double* d, double* e, double* tau,
00716 double* work, const int* lwork, int* info);
00717
00718 extern void F77_NAME(dsytrf)(const char* uplo, const int* n,
00719 double* a, const int* lda, int* ipiv,
00720 double* work, const int* lwork, int* info);
00721
00722 extern void F77_NAME(dsytri)(const char* uplo, const int* n,
00723 double* a, const int* lda, const int* ipiv,
00724 double* work, int* info);
00725
00726 extern void F77_NAME(dsytrs)(const char* uplo, const int* n,
00727 const int* nrhs,
00728 const double* a, const int* lda,
00729 const int* ipiv,
00730 double* b, const int* ldb, int* info);
00731
00732 extern void F77_NAME(dtbcon)(const char* norm, const char* uplo,
00733 const char* diag, const int* n, const int* kd,
00734 const double* ab, const int* ldab,
00735 double* rcond, double* work,
00736 int* iwork, int* info);
00737 extern void F77_NAME(dtbrfs)(const char* uplo, const char* trans,
00738 const char* diag, const int* n, const int* kd,
00739 const int* nrhs,
00740 const double* ab, const int* ldab,
00741 const double* b, const int* ldb,
00742 double* x, const int* ldx,
00743 double* ferr, double* berr,
00744 double* work, int* iwork, int* info);
00745 extern void F77_NAME(dtbtrs)(const char* uplo, const char* trans,
00746 const char* diag, const int* n,
00747 const int* kd, const int* nrhs,
00748 const double* ab, const int* ldab,
00749 double* b, const int* ldb, int* info);
00750
00751 extern void F77_NAME(dtgevc)(const char* side, const char* howmny,
00752 const int* select, const int* n,
00753 const double* a, const int* lda,
00754 const double* b, const int* ldb,
00755 double* vl, const int* ldvl,
00756 double* vr, const int* ldvr,
00757 const int* mm, int* m, double* work, int* info);
00758
00759 extern void F77_NAME(dtgsja)(const char* jobu, const char* jobv, const char* jobq,
00760 const int* m, const int* p, const int* n,
00761 const int* k, const int* l,
00762 double* a, const int* lda,
00763 double* b, const int* ldb,
00764 const double* tola, const double* tolb,
00765 double* alpha, double* beta,
00766 double* u, const int* ldu,
00767 double* v, const int* ldv,
00768 double* q, const int* ldq,
00769 double* work, int* ncycle, int* info);
00770 extern void F77_NAME(dtpcon)(const char* norm, const char* uplo,
00771 const char* diag, const int* n,
00772 const double* ap, double* rcond,
00773 double* work, int* iwork, int* info);
00774
00775 extern void F77_NAME(dtprfs)(const char* uplo, const char* trans,
00776 const char* diag, const int* n,
00777 const int* nrhs, const double* ap,
00778 const double* b, const int* ldb,
00779 double* x, const int* ldx,
00780 double* ferr, double* berr,
00781 double* work, int* iwork, int* info);
00782
00783 extern void F77_NAME(dtptri)(const char* uplo, const char* diag,
00784 const int* n, double* ap, int* info);
00785
00786 extern void F77_NAME(dtptrs)(const char* uplo, const char* trans,
00787 const char* diag, const int* n,
00788 const int* nrhs, const double* ap,
00789 double* b, const int* ldb, int* info);
00790
00791 extern void F77_NAME(dtrcon)(const char* norm, const char* uplo,
00792 const char* diag, const int* n,
00793 const double* a, const int* lda,
00794 double* rcond, double* work,
00795 int* iwork, int* info);
00796
00797 extern void F77_NAME(dtrevc)(const char* side, const char* howmny,
00798 const int* select, const int* n,
00799 const double* t, const int* ldt,
00800 double* vl, const int* ldvl,
00801 double* vr, const int* ldvr,
00802 const int* mm, int* m, double* work, int* info);
00803
00804 extern void F77_NAME(dtrexc)(const char* compq, const int* n,
00805 double* t, const int* ldt,
00806 double* q, const int* ldq,
00807 int* ifst, int* ILST,
00808 double* work, int* info);
00809
00810 extern void F77_NAME(dtrrfs)(const char* uplo, const char* trans,
00811 const char* diag, const int* n, const int* nrhs,
00812 const double* a, const int* lda,
00813 const double* b, const int* ldb,
00814 double* x, const int* ldx,
00815 double* ferr, double* berr,
00816 double* work, int* iwork, int* info);
00817
00818 extern void F77_NAME(dtrsen)(const char* job, const char* compq,
00819 const int* select, const int* n,
00820 double* t, const int* ldt,
00821 double* q, const int* ldq,
00822 double* wr, double* wi,
00823 int* m, double* s, double* sep,
00824 double* work, const int* lwork,
00825 int* iwork, const int* liwork, int* info);
00826
00827 extern void F77_NAME(dtrsna)(const char* job, const char* howmny,
00828 const int* select, const int* n,
00829 const double* t, const int* ldt,
00830 const double* vl, const int* ldvl,
00831 const double* vr, const int* ldvr,
00832 double* s, double* sep, const int* mm,
00833 int* m, double* work, const int* lwork,
00834 int* iwork, int* info);
00835
00836 extern void F77_NAME(dtrsyl)(const char* trana, const char* tranb,
00837 const int* isgn, const int* m, const int* n,
00838 const double* a, const int* lda,
00839 const double* b, const int* ldb,
00840 double* c, const int* ldc,
00841 double* scale, int* info);
00842
00843 extern void F77_NAME(dtrti2)(const char* uplo, const char* diag,
00844 const int* n, double* a, const int* lda,
00845 int* info);
00846
00847 extern void F77_NAME(dtrtri)(const char* uplo, const char* diag,
00848 const int* n, double* a, const int* lda,
00849 int* info);
00850
00851 extern void F77_NAME(dtrtrs)(const char* uplo, const char* trans,
00852 const char* diag, const int* n, const int* nrhs,
00853 const double* a, const int* lda,
00854 double* b, const int* ldb, int* info);
00855
00856 extern void F77_NAME(dtzrqf)(const int* m, const int* n,
00857 double* a, const int* lda,
00858 double* tau, int* info);
00859
00860
00861
00862 extern void F77_NAME(dhgeqz)(const char* job, const char* compq, const char* compz,
00863 const int* n, const int *ILO, const int* IHI,
00864 double* a, const int* lda,
00865 double* b, const int* ldb,
00866 double* alphar, double* alphai, const double* beta,
00867 double* q, const int* ldq,
00868 double* z, const int* ldz,
00869 double* work, const int* lwork, int* info);
00870 extern void F77_NAME(dhsein)(const char* side, const char* eigsrc,
00871 const char* initv, int* select,
00872 const int* n, double* h, const int* ldh,
00873 double* wr, double* wi,
00874 double* vl, const int* ldvl,
00875 double* vr, const int* ldvr,
00876 const int* mm, int* m, double* work,
00877 int* ifaill, int* ifailr, int* info);
00878 extern void F77_NAME(dhseqr)(const char* job, const char* compz, const int* n,
00879 const int* ilo, const int* ihi,
00880 double* h, const int* ldh,
00881 double* wr, double* wi,
00882 double* z, const int* ldz,
00883 double* work, const int* lwork, int* info);
00884 extern void F77_NAME(dlabad)(double* small, double* large);
00885 extern void F77_NAME(dlabrd)(const int* m, const int* n, const int* nb,
00886 double* a, const int* lda, double* d, double* e,
00887 double* tauq, double* taup,
00888 double* x, const int* ldx, double* y, const int* ldy);
00889 extern void F77_NAME(dlacon)(const int* n, double* v, double* x,
00890 int* isgn, double* est, int* kase);
00891 extern void F77_NAME(dlacpy)(const char* uplo, const int* m, const int* n,
00892 const double* a, const int* lda,
00893 double* b, const int* ldb);
00894 extern void F77_NAME(dladiv)(const double* a, const double* b,
00895 const double* c, const double* d,
00896 double* p, double* q);
00897 extern void F77_NAME(dlae2)(const double* a, const double* b, const double* c,
00898 double* rt1, double* rt2);
00899 extern void F77_NAME(dlaebz)(const int* ijob, const int* nitmax, const int* n,
00900 const int* mmax, const int* minp, const int* nbmin,
00901 const double* abstol, const double* reltol,
00902 const double* pivmin, double* d, double* e,
00903 double* e2, int* nval, double* ab, double* c,
00904 int* mout, int* nab, double* work, int* iwork,
00905 int* info);
00906 extern void F77_NAME(dlaed0)(const int* icompq, const int* qsiz, const int* n,
00907 double* d, double* e, double* q, const int* ldq,
00908 double* qstore, const int* ldqs,
00909 double* work, int* iwork, int* info);
00910 extern void F77_NAME(dlaed1)(const int* n, double* d, double* q, const int* ldq,
00911 int* indxq, const double* rho, const int* cutpnt,
00912 double* work, int* iwork, int* info);
00913 extern void F77_NAME(dlaed2)(const int* k, const int* n, double* d,
00914 double* q, const int* ldq, int* indxq,
00915 double* rho, const int* cutpnt, double* z,
00916 double* dlamda, double* q2, const int *ldq2,
00917 int* indxc, int* w, int* indxp, int* indx,
00918 int* coltyp, int* info);
00919 extern void F77_NAME(dlaed3)(const int* k, const int* kstart,
00920 const int *kstop, const int* n,
00921 double* d, double* q, const int* ldq,
00922 const double* rho, const int* cutpnt,
00923 double* dlamda, int* q2, const int* ldq2,
00924 int* indxc, int* ctot, double* w,
00925 double* s, const int* lds, int* info);
00926 extern void F77_NAME(dlaed4)(const int* n, const int* i, const double* d,
00927 const double* z, const double* delta,
00928 const double* rho, double* dlam, int* info);
00929 extern void F77_NAME(dlaed5)(const int* i, const double* d, const double* z,
00930 double* delta, const double* rho, double* dlam);
00931 extern void F77_NAME(dlaed6)(const int* kniter, const int* orgati,
00932 const double* rho, const double* d,
00933 const double* z, const double* finit,
00934 double* tau, int* info);
00935 extern void F77_NAME(dlaed7)(const int* icompq, const int* n,
00936 const int* qsiz, const int* tlvls,
00937 const int* curlvl, const int* curpbm,
00938 double* d, double* q, const int* ldq,
00939 int* indxq, const double* rho, const int* cutpnt,
00940 double* qstore, double* qptr, const int* prmptr,
00941 const int* perm, const int* givptr,
00942 const int* givcol, const double* givnum,
00943 double* work, int* iwork, int* info);
00944 extern void F77_NAME(dlaed8)(const int* icompq, const int* k,
00945 const int* n, const int* qsiz,
00946 double* d, double* q, const int* ldq,
00947 const int* indxq, double* rho,
00948 const int* cutpnt, const double* z,
00949 double* dlamda, double* q2, const int* ldq2,
00950 double* w, int* perm, int* givptr,
00951 int* givcol, double* givnum, int* indxp,
00952 int* indx, int* info);
00953 extern void F77_NAME(dlaed9)(const int* k, const int* kstart, const int* kstop,
00954 const int* n, double* d, double* q, const int* ldq,
00955 const double* rho, const double* dlamda,
00956 const double* w, double* s, const int* lds, int* info);
00957 extern void F77_NAME(dlaeda)(const int* n, const int* tlvls, const int* curlvl,
00958 const int* curpbm, const int* prmptr, const int* perm,
00959 const int* givptr, const int* givcol,
00960 const double* givnum, const double* q,
00961 const int* qptr, double* z, double* ztemp, int* info);
00962 extern void F77_NAME(dlaein)(const int* rightv, const int* noinit, const int* n,
00963 const double* h, const int* ldh,
00964 const double* wr, const double* wi,
00965 double* vr, double* vi,
00966 double* b, const int* ldb, double* work,
00967 const double* eps3, const double* smlnum,
00968 const double* bignum, int* info);
00969 extern void F77_NAME(dlaev2)(const double* a, const double* b, const double* c,
00970 double* rt1, double* rt2, double* cs1, double *sn1);
00971 extern void F77_NAME(dlaexc)(const int* wantq, const int* n, double* t, const int* ldt,
00972 double* q, const int* ldq, const int* j1,
00973 const int* n1, const int* n2, double* work, int* info);
00974 extern void F77_NAME(dlag2)(const double* a, const int* lda, const double* b,
00975 const int* ldb, const double* safmin,
00976 double* scale1, double* scale2,
00977 double* wr1, double* wr2, double* wi);
00978 extern void F77_NAME(dlags2)(const int* upper,
00979 const double* a1, const double* a2, const double* a3,
00980 const double* b1, const double* b2, const double* b3,
00981 double* csu, double* snu,
00982 double* csv, double* snv, double *csq, double *snq);
00983 extern void F77_NAME(dlagtf)(const int* n, double* a, const double* lambda,
00984 double* b, double* c, const double *tol,
00985 double* d, int* in, int* info);
00986 extern void F77_NAME(dlagtm)(const char* trans, const int* n, const int* nrhs,
00987 const double* alpha, const double* dl,
00988 const double* d, const double* du,
00989 const double* x, const int* ldx, const double* beta,
00990 double* b, const int* ldb);
00991 extern void F77_NAME(dlagts)(const int* job, const int* n,
00992 const double* a, const double* b,
00993 const double* c, const double* d,
00994 const int* in, double* y, double* tol, int* info);
00995 extern void F77_NAME(dlahqr)(const int* wantt, const int* wantz, const int* n,
00996 const int* ilo, const int* ihi,
00997 double* H, const int* ldh, double* wr, double* wi,
00998 const int* iloz, const int* ihiz,
00999 double* z, const int* ldz, int* info);
01000 extern void F77_NAME(dlahrd)(const int* n, const int* k, const int* nb,
01001 double* a, const int* lda,
01002 double* tau, double* t, const int* ldt,
01003 double* y, const int* ldy);
01004 extern void F77_NAME(dlaic1)(const int* job, const int* j, const double* x,
01005 const double* sest, const double* w,
01006 const double* gamma, double* sestpr,
01007 double* s, double* c);
01008 extern void F77_NAME(dlaln2)(const int* ltrans, const int* na, const int* nw,
01009 const double* smin, const double* ca,
01010 const double* a, const int* lda,
01011 const double* d1, const double* d2,
01012 const double* b, const int* ldb,
01013 const double* wr, const double* wi,
01014 double* x, const int* ldx, double* scale,
01015 double* xnorm, int* info);
01016 extern double F77_NAME(dlamch)(const char* cmach);
01017 extern void F77_NAME(dlamrg)(const int* n1, const int* n2, const double* a,
01018 const int* dtrd1, const int* dtrd2, int* index);
01019 extern double F77_NAME(dlangb)(const char* norm, const int* n,
01020 const int* kl, const int* ku, const double* ab,
01021 const int* ldab, double* work);
01022 extern double F77_NAME(dlange)(const char* norm, const int* m, const int* n,
01023 const double* a, const int* lda, double* work);
01024 extern double F77_NAME(dlangt)(const char* norm, const int* n,
01025 const double* dl, const double* d,
01026 const double* du);
01027 extern double F77_NAME(dlanhs)(const char* norm, const int* n,
01028 const double* a, const int* lda, double* work);
01029 extern double F77_NAME(dlansb)(const char* norm, const char* uplo,
01030 const int* n, const int* k,
01031 const double* ab, const int* ldab, double* work);
01032 extern double F77_NAME(dlansp)(const char* norm, const char* uplo,
01033 const int* n, const double* ap, double* work);
01034 extern double F77_NAME(dlanst)(const char* norm, const int* n,
01035 const double* d, const double* e);
01036 extern double F77_NAME(dlansy)(const char* norm, const char* uplo, const int* n,
01037 const double* a, const int* lda, double* work);
01038 extern double F77_NAME(dlantb)(const char* norm, const char* uplo,
01039 const char* diag, const int* n, const int* k,
01040 const double* ab, const int* ldab, double* work);
01041 extern double F77_NAME(dlantp)(const char* norm, const char* uplo, const char* diag,
01042 const int* n, const double* ap, double* work);
01043 extern double F77_NAME(dlantr)(const char* norm, const char* uplo,
01044 const char* diag, const int* m, const int* n,
01045 const double* a, const int* lda, double* work);
01046 extern void F77_NAME(dlanv2)(double* a, double* b, double* c, double* d,
01047 double* rt1r, double* rt1i, double* rt2r, double* rt2i,
01048 double* cs, double *sn);
01049 extern void F77_NAME(dlapll)(const int* n, double* x, const int* incx,
01050 double* y, const int* incy, double* ssmin);
01051 extern void F77_NAME(dlapmt)(const int* forwrd, const int* m, const int* n,
01052 double* x, const int* ldx, const int* k);
01053 extern double F77_NAME(dlapy2)(const double* x, const double* y);
01054 extern double F77_NAME(dlapy3)(const double* x, const double* y, const double* z);
01055 extern void F77_NAME(dlaqgb)(const int* m, const int* n,
01056 const int* kl, const int* ku,
01057 double* ab, const int* ldab,
01058 double* r, double* c,
01059 double* rowcnd, double* colcnd,
01060 const double* amax, char* equed);
01061 extern void F77_NAME(dlaqge)(const int* m, const int* n,
01062 double* a, const int* lda,
01063 double* r, double* c,
01064 double* rowcnd, double* colcnd,
01065 const double* amax, char* equed);
01066 extern void F77_NAME(dlaqsb)(const char* uplo, const int* n, const int* kd,
01067 double* ab, const int* ldab, const double* s,
01068 const double* scond, const double* amax, char* equed);
01069 extern void F77_NAME(dlaqsp)(const char* uplo, const int* n,
01070 double* ap, const double* s, const double* scond,
01071 const double* amax, int* equed);
01072 extern void F77_NAME(dlaqsy)(const char* uplo, const int* n,
01073 double* a, const int* lda,
01074 const double* s, const double* scond,
01075 const double* amax, int* equed);
01076 extern void F77_NAME(dlaqtr)(const int* ltran, const int* lreal, const int* n,
01077 const double* t, const int* ldt,
01078 const double* b, const double* w,
01079 double* scale, double* x, double* work, int* info);
01080 extern void F77_NAME(dlar2v)(const int* n, double* x, double* y,
01081 double* z, const int* incx,
01082 const double* c, const double* s,
01083 const int* incc);
01084 extern void F77_NAME(dlarf)(const char* side, const int* m, const int* n,
01085 const double* v, const int* incv, const double* tau,
01086 double* c, const int* ldc, double* work);
01087 extern void F77_NAME(dlarfb)(const char* side, const char* trans,
01088 const char* direct, const char* storev,
01089 const int* m, const int* n, const int* k,
01090 const double* v, const int* ldv,
01091 const double* t, const int* ldt,
01092 double* c, const int* ldc,
01093 double* work, const int* lwork);
01094 extern void F77_NAME(dlarfg)(const int* n, const double* alpha,
01095 double* x, const int* incx, double* tau);
01096 extern void F77_NAME(dlarft)(const char* direct, const char* storev,
01097 const int* n, const int* k, double* v, const int* ldv,
01098 const double* tau, double* t, const int* ldt);
01099 extern void F77_NAME(dlarfx)(const char* side, const int* m, const int* n,
01100 const double* v, const double* tau,
01101 double* c, const int* ldc, double* work);
01102 extern void F77_NAME(dlargv)(const int* n, double* x, const int* incx,
01103 double* y, const int* incy, double* c, const int* incc);
01104 extern void F77_NAME(dlarnv)(const int* idist, int* iseed, const int* n, double* x);
01105 extern void F77_NAME(dlartg)(const double* f, const double* g, double* cs,
01106 double* sn, double *r);
01107 extern void F77_NAME(dlartv)(const int* n, double* x, const int* incx,
01108 double* y, const int* incy,
01109 const double* c, const double* s,
01110 const int* incc);
01111 extern void F77_NAME(dlaruv)(int* iseed, const int* n, double* x);
01112
01113 extern void F77_NAME(dlas2)(const double* f, const double* g, const double* h,
01114 double* ssmin, double* ssmax);
01115
01116 extern void F77_NAME(dlascl)(const char* type,
01117 const int* kl,const int* ku,
01118 double* cfrom, double* cto,
01119 const int* m, const int* n,
01120 double* a, const int* lda, int* info);
01121
01122 extern void F77_NAME(dlaset)(const char* uplo, const int* m, const int* n,
01123 const double* alpha, const double* beta,
01124 double* a, const int* lda);
01125 extern void F77_NAME(dlasq1)(const int* n, double* d, double* e,
01126 double* work, int* info);
01127 extern void F77_NAME(dlasq2)(const int* m, double* q, double* e,
01128 double* qq, double* ee, const double* eps,
01129 const double* tol2, const double* small2,
01130 double* sup, int* kend, int* info);
01131 extern void F77_NAME(dlasq3)(int* n, double* q, double* e, double* qq,
01132 double* ee, double* sup, double *sigma,
01133 int* kend, int* off, int* iphase,
01134 const int* iconv, const double* eps,
01135 const double* tol2, const double* small2);
01136 extern void F77_NAME(dlasq4)(const int* n, const double* q, const double* e,
01137 double* tau, double* sup);
01138 extern void F77_NAME(dlasr)(const char* side, const char* pivot,
01139 const char* direct, const int* m, const int* n,
01140 const double* c, const double* s,
01141 double* a, const int* lda);
01142 extern void F77_NAME(dlasrt)(const char* id, const int* n, double* d, int* info);
01143 extern void F77_NAME(dlassq)(const int* n, const double* x, const int* incx,
01144 double* scale, double* sumsq);
01145 extern void F77_NAME(dlasv2)(const double* f, const double* g, const double* h,
01146 double* ssmin, double* ssmax, double* snr, double* csr,
01147 double* snl, double* csl);
01148 extern void F77_NAME(dlaswp)(const int* n, double* a, const int* lda,
01149 const int* k1, const int* k2,
01150 const int* ipiv, const int* incx);
01151 extern void F77_NAME(dlasy2)(const int* ltranl, const int* ltranr,
01152 const int* isgn, const int* n1, const int* n2,
01153 const double* tl, const int* ldtl,
01154 const double* tr, const int* ldtr,
01155 const double* b, const int* ldb,
01156 double* scale, double* x, const int* ldx,
01157 double* xnorm, int* info);
01158 extern void F77_NAME(dlasyf)(const char* uplo, const int* n,
01159 const int* nb, const int* kb,
01160 double* a, const int* lda, int* ipiv,
01161 double* w, const int* ldw, int* info);
01162 extern void F77_NAME(dlatbs)(const char* uplo, const char* trans,
01163 const char* diag, const char* normin,
01164 const int* n, const int* kd,
01165 const double* ab, const int* ldab,
01166 double* x, double* scale, double* cnorm, int* info);
01167 extern void F77_NAME(dlatps)(const char* uplo, const char* trans,
01168 const char* diag, const char* normin,
01169 const int* n, const double* ap,
01170 double* x, double* scale, double* cnorm, int* info);
01171 extern void F77_NAME(dlatrd)(const char* uplo, const int* n, const int* nb,
01172 double* a, const int* lda, double* e, double* tau,
01173 double* w, const int* ldw);
01174 extern void F77_NAME(dlatrs)(const char* uplo, const char* trans,
01175 const char* diag, const char* normin,
01176 const int* n, const double* a, const int* lda,
01177 double* x, double* scale, double* cnorm, int* info);
01178 extern void F77_NAME(dlatzm)(const char* side, const int* m, const int* n,
01179 const double* v, const int* incv,
01180 const double* tau, double* c1, double* c2,
01181 const int* ldc, double* work);
01182 extern void F77_NAME(dlauu2)(const char* uplo, const int* n,
01183 double* a, const int* lda, int* info);
01184 extern void F77_NAME(dlauum)(const char* uplo, const int* n,
01185 double* a, const int* lda, int* info);
01186
01187
01188 #ifdef __cplusplus
01189 }
01190 #endif
01191
01192 #endif