PageRenderTime 63ms CodeModel.GetById 29ms RepoModel.GetById 0ms app.codeStats 1ms

/opencv_source/3rdparty/include/clapack.h

https://bitbucket.org/raviyellani/opencv1
C Header | 1025 lines | 795 code | 230 blank | 0 comment | 0 complexity | f16ecffafbb1685d999fedea843bf18d MD5 | raw file
    

  1. #ifndef __CLAPACK_H
    2. 

  2. #define __CLAPACK_H
    3. 

  3. 

  4. #include "f2c.h"
    5. 

  5. #include "cblas.h"
    6. 

  6. 

  7. #ifdef __cplusplus
    8. 

  8. extern "C" {
    9. 

  9. #endif
    10. 

  10. 

  11. /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
    12. 

  12. 	d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 
    13. 

  13. 	integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
    14. 

  14. 	iwork, integer *info);
    15. 

  15. 

  16. /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    17. 

  17. 	nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 
    18. 

  18. 	integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
    19. 

  19. 	ldc, doublereal *work, integer *info);
    20. 

  20. 

  21. /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
    22. 

  22. 	d__, doublereal *sep, integer *info);
    23. 

  23. 

  24. /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    25. 

  25. 	 integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
    26. 

  26. 	d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 
    27. 

  27. 	integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 
    28. 

  28. 	integer *info);
    29. 

  29. 

  30. /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    31. 

  31. 	 doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
    32. 

  32. 	doublereal *rcond, doublereal *work, integer *iwork, integer *info);
    33. 

  33. 

  34. /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    35. 

  35. 	 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
    36. 

  36. 	doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
    37. 

  37. 	info);
    38. 

  38. 

  39. /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
    40. 

  40. 	ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
    41. 

  41. 	integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 
    42. 

  42. 	doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
    43. 

  43. 	doublereal *work, integer *iwork, integer *info);
    44. 

  44. 

  45. /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
    46. 

  46. 	nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 
    47. 

  47. 	integer *ldb, integer *info);
    48. 

  48. 

  49. /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    50. 

  50. 	 integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
    51. 

  51. 	doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 
    52. 

  52. 	doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 
    53. 

  53. 	doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
    54. 

  54. 	doublereal *berr, doublereal *work, integer *iwork, integer *info);
    55. 

  55. 

  56. /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    57. 

  57. 	 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    58. 

  58. 

  59. /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    60. 

  60. 	 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    61. 

  61. 

  62. /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
    63. 

  63. 	ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 
    64. 

  64. 	doublereal *b, integer *ldb, integer *info);
    65. 

  65. 

  66. /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, 
    67. 

  67. 	integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
    68. 

  68. 	ldv, integer *info);
    69. 

  69. 

  70. /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
    71. 

  71. 	lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
    72. 

  72. 

  73. /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
    74. 

  74. 	lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
    75. 

  75. 	taup, doublereal *work, integer *info);
    76. 

  76. 

  77. /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
    78. 

  78. 	lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
    79. 

  79. 	taup, doublereal *work, integer *lwork, integer *info);
    80. 

  80. 

  81. /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
    82. 

  82. 	lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    83. 

  83. 	iwork, integer *info);
    84. 

  84. 

  85. /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
    86. 

  86. 	lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
    87. 

  87. 	*colcnd, doublereal *amax, integer *info);
    88. 

  88. 

  89. /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 
    90. 

  90. 	doublereal *a, integer *lda, integer *sdim, doublereal *wr, 
    91. 

  91. 	doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 
    92. 

  92. 	integer *lwork, logical *bwork, integer *info);
    93. 

  93. 

  94. /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
    95. 

  95. 	sense, integer *n, doublereal *a, integer *lda, integer *sdim, 
    96. 

  96. 	doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, 
    97. 

  97. 	doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
    98. 

  98. 	lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
    99. 

  99. 

  100. /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
    101. 

  101. 	a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 
    102. 

  102. 	integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 
    103. 

  103. 	integer *lwork, integer *info);
    104. 

  104. 

  105. /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    106. 

  106. 	sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 
    107. 

  107. 	doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
    108. 

  108. 	integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 
    109. 

  109. 	doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal  	
    110. 

  110. 	*work, integer *lwork, integer *iwork, integer *info);
    111. 

  111. 

  112. /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, 
    113. 

  113. 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    114. 

  114. 	alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 
    115. 

  115. 	integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 
    116. 

  116. 	integer *lwork, integer *info);
    117. 

  117. 

  118. /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
    119. 

  119. 	a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
    120. 

  120. 	doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
    121. 

  121. 	doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
    122. 

  122. 	integer *info);
    123. 

  123. 

  124. /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, 
    125. 

  125. 	doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    126. 

  126. 	integer *info);
    127. 

  127. 

  128. /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, 
    129. 

  129. 	doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    130. 

  130. 	integer *lwork, integer *info);
    131. 

  131. 

  132. /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
    133. 

  133. 	lda, doublereal *tau, doublereal *work, integer *info);
    134. 

  134. 

  135. /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
    136. 

  136. 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    137. 

  137. 

  138. /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
    139. 

  139. 	nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
    140. 

  140. 	doublereal *work, integer *lwork, integer *info);
    141. 

  141. 

  142. /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, 
    143. 

  143. 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    144. 

  144. 	s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
    145. 

  145. 	 integer *iwork, integer *info);
    146. 

  146. 

  147. /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, 
    148. 

  148. 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    149. 

  149. 	s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
    150. 

  150. 	 integer *info);
    151. 

  151. 

  152. /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, 
    153. 

  153. 	doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    154. 

  154. 	jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
    155. 

  155. 	info);
    156. 

  156. 

  157. /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, 
    158. 

  158. 	doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    159. 

  159. 	jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
    160. 

  160. 	lwork, integer *info);
    161. 

  161. 

  162. /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
    163. 

  163. 	lda, doublereal *tau, doublereal *work, integer *info);
    164. 

  164. 

  165. /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
    166. 

  166. 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    167. 

  167. 

  168. /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
    169. 

  169. 	lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
    170. 

  170. 	 integer *info);
    171. 

  171. 

  172. /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
    173. 

  173. 	lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
    174. 

  174. 

  175. /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
    176. 

  176. 	lda, doublereal *tau, doublereal *work, integer *info);
    177. 

  177. 

  178. /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
    179. 

  179. 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    180. 

  180. 

  181. /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, 
    182. 

  182. 	doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
    183. 

  183. 	ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
    184. 

  184. 	doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
    185. 

  185. 	integer *info);
    186. 

  186. 

  187. /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
    188. 

  188. 	lda, doublereal *tau, doublereal *work, integer *info);
    189. 

  189. 

  190. /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
    191. 

  191. 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    192. 

  192. 

  193. /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, 
    194. 

  194. 	doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
    195. 

  195. 

  196. /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
    197. 

  197. 	a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 
    198. 

  198. 	doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
    199. 

  199. 	integer *iwork, integer *info);
    200. 

  200. 

  201. /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 
    202. 

  202. 	*lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
    203. 

  203. 

  204. /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
    205. 

  205. 	doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
    206. 

  206. 	ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
    207. 

  207. 	integer *info);
    208. 

  208. 

  209. /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
    210. 

  210. 	nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
    211. 

  211. 	integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
    212. 

  212. 	doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    213. 

  213. 	rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    214. 

  214. 	iwork, integer *info);
    215. 

  215. 

  216. /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer 
    217. 

  217. 	*ipiv, integer *jpiv, integer *info);
    218. 

  218. 

  219. /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
    220. 

  220. 	lda, integer *ipiv, integer *info);
    221. 

  221. 

  222. /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
    223. 

  223. 	lda, integer *ipiv, integer *info);
    224. 

  224. 

  225. /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer 
    226. 

  226. 	*ipiv, doublereal *work, integer *lwork, integer *info);
    227. 

  227. 

  228. /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, 
    229. 

  229. 	doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
    230. 

  230. 	ldb, integer *info);
    231. 

  231. 

  232. /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, 
    233. 

  233. 	integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
    234. 

  234. 	doublereal *v, integer *ldv, integer *info);
    235. 

  235. 

  236. /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
    237. 

  237. 	lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 
    238. 

  238. 	doublereal *lscale, doublereal *rscale, doublereal *work, integer *
    239. 

  239. 	info);
    240. 

  240. 

  241. /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
    242. 

  242. 	selctg, integer *n, doublereal *a, integer *lda, doublereal *b, 
    243. 

  243. 	integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 
    244. 

  244. 	doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 
    245. 

  245. 	integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 
    246. 

  246. 	integer *info);
    247. 

  247. 

  248. /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
    249. 

  249. 	selctg, char *sense, integer *n, doublereal *a, integer *lda, 
    250. 

  250. 	doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 
    251. 

  251. 	doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
    252. 

  252. 	 doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
    253. 

  253. 	rcondv, doublereal *work, integer *lwork, integer *iwork, integer * 	
    254. 

  254. 	liwork, logical *bwork, integer *info);
    255. 

  255. 

  256. /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
    257. 

  257. 	a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
    258. 

  258. 	doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
    259. 

  259. 	doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
    260. 

  260. 	integer *info);
    261. 

  261. 

  262. /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
    263. 

  263. 	sense, integer *n, doublereal *a, integer *lda, doublereal *b, 
    264. 

  264. 	integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    265. 

  265. 	beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
    266. 

  266. 	integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
    267. 

  267. 	doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
    268. 

  268. 	rcondv, doublereal *work, integer *lwork, integer *iwork, logical * 	
    269. 

  269. 	bwork, integer *info);
    270. 

  270. 

  271. /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
    272. 

  272. 	a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 
    273. 

  273. 	doublereal *x, doublereal *y, doublereal *work, integer *lwork, 
    274. 

  274. 	integer *info);
    275. 

  275. 

  276. /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
    277. 

  277. 	ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 
    278. 

  278. 	integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
    279. 

  279. 	ldz, integer *info);
    280. 

  280. 

  281. /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
    282. 

  282. 	a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 
    283. 

  283. 	doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 
    284. 

  284. 	integer *info);
    285. 

  285. 

  286. /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
    287. 

  287. 	a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
    288. 

  288. 	doublereal *taub, doublereal *work, integer *lwork, integer *info);
    289. 

  289. 

  290. /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
    291. 

  291. 	a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
    292. 

  292. 	doublereal *taub, doublereal *work, integer *lwork, integer *info);
    293. 

  293. 

  294. /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
    295. 

  295. 	integer *n, integer *p, integer *k, integer *l, doublereal *a, 
    296. 

  296. 	integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 
    297. 

  297. 	doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 
    298. 

  298. 	*ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 
    299. 

  299. 	integer *info);
    300. 

  300. 

  301. /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
    302. 

  302. 	integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 
    303. 

  303. 	integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 
    304. 

  304. 	*l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 
    305. 

  305. 	doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 
    306. 

  306. 	doublereal *work, integer *info);
    307. 

  307. 

  308. /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, 
    309. 

  309. 	doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 
    310. 

  310. 	doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    311. 

  311. 	iwork, integer *info);
    312. 

  312. 

  313. /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, 
    314. 

  314. 	doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 
    315. 

  315. 	doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
    316. 

  316. 	doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    317. 

  317. 	ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    318. 

  318. 	info);
    319. 

  319. 

  320. /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 
    321. 

  321. 	doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 
    322. 

  322. 	*info);
    323. 

  323. 

  324. /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
    325. 

  325. 	nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
    326. 

  326. 	dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
    327. 

  327. 	doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    328. 

  328. 	rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    329. 

  329. 	iwork, integer *info);
    330. 

  330. 

  331. /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 
    332. 

  332. 	doublereal *du, doublereal *du2, integer *ipiv, integer *info);
    333. 

  333. 

  334. /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, 
    335. 

  335. 	doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,  	
    336. 

  336. 	integer *ipiv, doublereal *b, integer *ldb, integer *info);
    337. 

  337. 

  338. /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, 
    339. 

  339. 	doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
    340. 

  340. 	integer *ipiv, doublereal *b, integer *ldb);
    341. 

  341. 

  342. /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, 
    343. 

  343. 	integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
    344. 

  344. 	*t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal *
    345. 

  345. 	beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
    346. 

  346. 	doublereal *work, integer *lwork, integer *info);
    347. 

  347. 

  348. /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
    349. 

  349. 	select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 
    350. 

  350. 	doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
    351. 

  351. 	integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
    352. 

  352. 	ifaill, integer *ifailr, integer *info);
    353. 

  353. 

  354. /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
    355. 

  355. 	 integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 
    356. 

  356. 	doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 
    357. 

  357. 	integer *lwork, integer *info);
    358. 

  358. 

  359. /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
    360. 

  360. 

  361. /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
    362. 

  362. 	a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 
    363. 

  363. 	doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 
    364. 

  364. 	*ldy);
    365. 

  365. 

  366. /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x, 
    367. 

  367. 	integer *isgn, doublereal *est, integer *kase, integer *isave);
    368. 

  368. 

  369. /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, 
    370. 

  370. 	integer *isgn, doublereal *est, integer *kase);
    371. 

  371. 

  372. /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
    373. 

  373. 	a, integer *lda, doublereal *b, integer *ldb);
    374. 

  374. 

  375. /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 
    376. 

  376. 	doublereal *d__, doublereal *p, doublereal *q);
    377. 

  377. 

  378. /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 
    379. 

  379. 	doublereal *rt1, doublereal *rt2);
    380. 

  380. 

  381. /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, 
    382. 

  382. 	integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 
    383. 

  383. 	doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
    384. 

  384. 	e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 
    385. 

  385. 	integer *mout, integer *nab, doublereal *work, integer *iwork, 
    386. 

  386. 	integer *info);
    387. 

  387. 

  388. /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, 
    389. 

  389. 	doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 
    390. 

  390. 	doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 
    391. 

  391. 	integer *info);
    392. 

  392. 

  393. /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, 
    394. 

  394. 	integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 
    395. 

  395. 	doublereal *work, integer *iwork, integer *info);
    396. 

  396. 

  397. /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
    398. 

  398. 	d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 
    399. 

  399. 	doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 
    400. 

  400. 	integer *indx, integer *indxc, integer *indxp, integer *coltyp, 
    401. 

  401. 	integer *info);
    402. 

  402. 

  403. /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
    404. 

  404. 	d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
    405. 

  405. 	 doublereal *q2, integer *indx, integer *ctot, doublereal *w, 
    406. 

  406. 	doublereal *s, integer *info);
    407. 

  407. 

  408. /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, 
    409. 

  409. 	doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
    410. 

  410. 	 integer *info);
    411. 

  411. 

  412. /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 
    413. 

  413. 	doublereal *delta, doublereal *rho, doublereal *dlam);
    414. 

  414. 

  415. /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
    416. 

  416. 	rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
    417. 

  417. 	tau, integer *info);
    418. 

  418. 

  419. /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, 
    420. 

  420. 	integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
    421. 

  421. 	doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 
    422. 

  422. 	*cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
    423. 

  423. 	perm, integer *givptr, integer *givcol, doublereal *givnum, 
    424. 

  424. 	doublereal *work, integer *iwork, integer *info);
    425. 

  425. 

  426. /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer 
    427. 

  427. 	*qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 
    428. 

  428. 	doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
    429. 

  429. 	 doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 
    430. 

  430. 	*givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 
    431. 

  431. 	*indx, integer *info);
    432. 

  432. 

  433. /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, 
    434. 

  434. 	integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
    435. 

  435. 	rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 
    436. 

  436. 	integer *info);
    437. 

  437. 

  438. /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 
    439. 

  439. 	integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
    440. 

  440. 	integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 
    441. 

  441. 	doublereal *z__, doublereal *ztemp, integer *info);
    442. 

  442. 

  443. /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, 
    444. 

  444. 	doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 
    445. 

  445. 	doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 
    446. 

  446. 	doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
    447. 

  447. 	bignum, integer *info);
    448. 

  448. 

  449. /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 
    450. 

  450. 	doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
    451. 

  451. 

  452. /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, 
    453. 

  453. 	integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 
    454. 

  454. 	integer *n2, doublereal *work, integer *info);
    455. 

  455. 

  456. /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, 
    457. 

  457. 	integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
    458. 

  458. 	scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
    459. 

  459. 

  460. /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer *
    461. 

  461. 	lda, real *sa, integer *ldsa, integer *info);
    462. 

  462. 

  463. /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 
    464. 

  464. 	doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 
    465. 

  465. 	doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 
    466. 

  466. 	doublereal *csq, doublereal *snq);
    467. 

  467. 

  468. /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 
    469. 

  469. 	doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 
    470. 

  470. 	integer *in, integer *info);
    471. 

  471. 

  472. /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, 
    473. 

  473. 	doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 
    474. 

  474. 	doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 
    475. 

  475. 	*ldb);
    476. 

  476. 

  477. /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, 
    478. 

  478. 	doublereal *b, doublereal *c__, doublereal *d__, integer *in, 
    479. 

  479. 	doublereal *y, doublereal *tol, integer *info);
    480. 

  480. 

  481. /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, 
    482. 

  482. 	integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    483. 

  483. 	beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
    484. 

  484. 	snr);
    485. 

  485. 

  486. /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, 
    487. 

  487. 	integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
    488. 

  488. 	*wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
    489. 

  489. 	integer *ldz, integer *info);
    490. 

  490. 

  491. /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal *
    492. 

  492. 	a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 
    493. 

  493. 	doublereal *y, integer *ldy);
    494. 

  494. 

  495. /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
    496. 

  496. 	a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 
    497. 

  497. 	doublereal *y, integer *ldy);
    498. 

  498. 

  499. /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, 
    500. 

  500. 	doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
    501. 

  501. 	sestpr, doublereal *s, doublereal *c__);
    502. 

  502. 

  503. /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, 
    504. 

  504. 	doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 
    505. 

  505. 	doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 
    506. 

  506. 	doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 
    507. 

  507. 	doublereal *scale, doublereal *xnorm, integer *info);
    508. 

  508. 

  509. /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, 
    510. 

  510. 	integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 
    511. 

  511. 	*bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
    512. 

  512. 	integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
    513. 

  513. 	poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
    514. 

  514. 	k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
    515. 

  515. 

  516. /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 
    517. 

  517. 	integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
    518. 

  518. 	ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 
    519. 

  519. 	doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
    520. 

  520. 	poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
    521. 

  521. 	perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
    522. 

  522. 	work, integer *iwork, integer *info);
    523. 

  523. 

  524. /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 
    525. 

  525. 	*nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 
    526. 

  526. 	doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 
    527. 

  527. 	integer *info);
    528. 

  528. 

  529. /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 
    530. 

  530. 	*dtrd1, integer *dtrd2, integer *index);
    531. 

  531. 

  532. /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 
    533. 

  533. 	doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
    534. 

  534. 	 doublereal *rt2i, doublereal *cs, doublereal *sn);
    535. 

  535. 

  536. /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, 
    537. 

  537. 	doublereal *y, integer *incy, doublereal *ssmin);
    538. 

  538. 

  539. /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, 
    540. 

  540. 	doublereal *x, integer *ldx, integer *k);
    541. 

  541. 

  542. /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
    543. 

  543. 	 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
    544. 

  544. 	doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
    545. 

  545. 

  546. /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
    547. 

  547. 	lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
    548. 

  548. 	*colcnd, doublereal *amax, char *equed);
    549. 

  549. 

  550. /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, 
    551. 

  551. 	doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 
    552. 

  552. 	doublereal *vn1, doublereal *vn2, doublereal *work);
    553. 

  553. 

  554. /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer 
    555. 

  555. 	*nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 
    556. 

  556. 	doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 
    557. 

  557. 	doublereal *f, integer *ldf);
    558. 

  558. 

  559. /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n, 
    560. 

  560. 	integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
    561. 

  561. 	*wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
    562. 

  562. 	integer *ldz, doublereal *work, integer *lwork, integer *info);
    563. 

  563. 

  564. /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh, 
    565. 

  565. 	doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2, 
    566. 

  566. 	doublereal *v);
    567. 

  567. 

  568. /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n, 
    569. 

  569. 	integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
    570. 

  570. 	ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 
    571. 

  571. 	integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
    572. 

  572. 	v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
    573. 

  573. 	nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
    574. 

  574. 

  575. /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n, 
    576. 

  576. 	integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
    577. 

  577. 	ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 
    578. 

  578. 	integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
    579. 

  579. 	v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
    580. 

  580. 	nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
    581. 

  581. 

  582. /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n, 
    583. 

  583. 	integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
    584. 

  584. 	*wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
    585. 

  585. 	integer *ldz, doublereal *work, integer *lwork, integer *info);
    586. 

  586. 

  587. /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 
    588. 

  588. 	integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal 
    589. 

  589. 	*sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz, 
    590. 

  590. 	integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer *
    591. 

  591. 	ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv, 
    592. 

  592. 	integer *ldwv, integer *nh, doublereal *wh, integer *ldwh);
    593. 

  593. 

  594. /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
    595. 

  595. 	ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    596. 

  596. 	 char *equed);
    597. 

  597. 

  598. /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, 
    599. 

  599. 	doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    600. 

  600. 

  601. /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
    602. 

  602. 	lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    603. 

  603. 

  604. /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, 
    605. 

  605. 	doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 
    606. 

  606. 	*scale, doublereal *x, doublereal *work, integer *info);
    607. 

  607. 

  608. /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 
    609. 

  609. 	*lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
    610. 

  610. 	lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical 
    611. 

  611. 	*wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 
    612. 

  612. 	integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 
    613. 

  613. 	doublereal *rqcorr, doublereal *work);
    614. 

  614. 

  615. /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, 
    616. 

  616. 	doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 
    617. 

  617. 	integer *incc);
    618. 

  618. 

  619. /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
    620. 

  620. 	 integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 
    621. 

  621. 	doublereal *work);
    622. 

  622. 

  623. /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
    624. 

  624. 	storev, integer *m, integer *n, integer *k, doublereal *v, integer *
    625. 

  625. 	ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 
    626. 

  626. 	doublereal *work, integer *ldwork);
    627. 

  627. 

  628. /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
    629. 

  629. 	integer *incx, doublereal *tau);
    630. 

  630. 

  631. /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
    632. 

  632. 	k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
    633. 

  633. 	integer *ldt);
    634. 

  634. 

  635. /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
    636. 

  636. 	v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
    637. 

  637. 

  638. /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, 
    639. 

  639. 	doublereal *y, integer *incy, doublereal *c__, integer *incc);
    640. 

  640. 

  641. /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, 
    642. 

  642. 	doublereal *x);
    643. 

  643. 

  644. /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e, 
    645. 

  645. 	doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit,
    646. 

  646. 	 integer *isplit, integer *info);
    647. 

  647. 

  648. /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld, 
    649. 

  649. 	integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2,
    650. 

  650. 	 integer *offset, doublereal *w, doublereal *wgap, doublereal *werr, 
    651. 

  651. 	doublereal *work, integer *iwork, doublereal *pivmin, doublereal *
    652. 

  652. 	spdiam, integer *twist, integer *info);
    653. 

  653. 

  654. /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl, 
    655. 

  655. 	doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin, 
    656. 

  656. 	integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
    657. 

  657. 

  658. /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal 
    659. 

  659. 	*vl, doublereal *vu, integer *il, integer *iu, doublereal *gers, 
    660. 

  660. 	doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2, 
    661. 

  661. 	doublereal *pivmin, integer *nsplit, integer *isplit, integer *m, 
    662. 

  662. 	doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu, 
    663. 

  663. 	integer *iblock, integer *indexw, doublereal *work, integer *iwork, 
    664. 

  664. 	integer *info);
    665. 

  665. 

  666. /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl, 
    667. 

  667. 	doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal 
    668. 

  668. 	*e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal *
    669. 

  669. 	spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w, 
    670. 

  670. 	doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw, 
    671. 

  671. 	doublereal *gers, doublereal *pivmin, doublereal *work, integer *
    672. 

  672. 	iwork, integer *info);
    673. 

  673. 

  674. /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, 
    675. 

  675. 	doublereal *ld, integer *clstrt, integer *clend, doublereal *w, 
    676. 

  676. 	doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal *
    677. 

  677. 	clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma, 
    678. 

  678. 	doublereal *dplus, doublereal *lplus, doublereal *work, integer *info);
    679. 

  679. 

  680. /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2, 
    681. 

  681. 	integer *ifirst, integer *ilast, doublereal *rtol, integer *offset, 
    682. 

  682. 	doublereal *w, doublereal *werr, doublereal *work, integer *iwork, 
    683. 

  683. 	doublereal *pivmin, doublereal *spdiam, integer *info);
    684. 

  684. 

  685. /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl, 
    686. 

  686. 	doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin, 
    687. 

  687. 	doublereal *reltol, doublereal *w, doublereal *werr, integer *info);
    688. 

  688. 

  689. /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e, 
    690. 

  690. 	integer *info);
    691. 

  691. 

  692. /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, 
    693. 

  693. 	doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 
    694. 

  694. 	integer *m, integer *dol, integer *dou, doublereal *minrgp, 
    695. 

  695. 	doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
    696. 

  696. 	 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
    697. 

  697. 	 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
    698. 

  698. 	integer *iwork, integer *info);
    699. 

  699. 

  700. /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 
    701. 

  701. 	doublereal *sn, doublereal *r__);
    702. 

  702. 

  703. /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, 
    704. 

  704. 	doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 
    705. 

  705. 	*incc);
    706. 

  706. 

  707. /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
    708. 

  708. 

  709. /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, 
    710. 

  710. 	doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 
    711. 

  711. 	integer *ldc, doublereal *work);
    712. 

  712. 

  713. /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
    714. 

  714. 	storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
    715. 

  715. 	 integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
    716. 

  716. 	ldc, doublereal *work, integer *ldwork  	);
    717. 

  717. 

  718. /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
    719. 

  719. 	k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
    720. 

  720. 	integer *ldt);
    721. 

  721. 

  722. /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 
    723. 

  723. 	doublereal *ssmin, doublereal *ssmax);
    724. 

  724. 

  725. /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 
    726. 

  726. 	doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
    727. 

  727. 	doublereal *a, integer *lda, integer *info);
    728. 

  728. 

  729. /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, 
    730. 

  730. 	doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
    731. 

  731. 	ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
    732. 

  732. 	info);
    733. 

  733. 

  734. /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, 
    735. 

  735. 	doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 
    736. 

  736. 	integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
    737. 

  737. 	iwork, doublereal *work, integer *info);
    738. 

  738. 

  739. /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 
    740. 

  740. 	*k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
    741. 

  741. 	beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 
    742. 

  742. 	doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 
    743. 

  743. 	integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
    744. 

  744. 	idxq, integer *coltyp, integer *info);
    745. 

  745. 

  746. /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 
    747. 

  747. 	*k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 
    748. 

  748. 	doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 
    749. 

  749. 	doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 
    750. 

  750. 	integer *idxc, integer *ctot, doublereal *z__, integer *info);
    751. 

  751. 

  752. /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, 
    753. 

  753. 	doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
    754. 

  754. 	sigma, doublereal *work, integer *info);
    755. 

  755. 

  756. /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 
    757. 

  757. 	doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
    758. 

  758. 	work);
    759. 

  759. 

  760. /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, 
    761. 

  761. 	integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 
    762. 

  762. 	doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 
    763. 

  763. 	integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    764. 

  764. 	 integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
    765. 

  765. 	difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 
    766. 

  766. 	doublereal *work, integer *iwork, integer *info);
    767. 

  767. 

  768. /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, 
    769. 

  769. 	integer *sqre, integer *k, doublereal *d__, doublereal *z__, 
    770. 

  770. 	doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 
    771. 

  771. 	doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
    772. 

  772. 	dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 
    773. 

  773. 	integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    774. 

  774. 	 integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
    775. 

  775. 

  776. /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, 
    777. 

  777. 	doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 
    778. 

  778. 	doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
    779. 

  779. 	work, integer *info);
    780. 

  780. 

  781. /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, 
    782. 

  782. 	integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 
    783. 

  783. 	*ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 
    784. 

  784. 	doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 
    785. 

  785. 	integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 
    786. 

  786. 	doublereal *s, doublereal *work, integer *iwork, integer *info);
    787. 

  787. 

  788. /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
    789. 

  789. 	ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 
    790. 

  790. 	doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 
    791. 

  791. 	doublereal *c__, integer *ldc, doublereal *work, integer *info);
    792. 

  792. 

  793. /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
    794. 

  794. 	inode, integer *ndiml, integer *ndimr, integer *msub);
    795. 

  795. 

  796. /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
    797. 

  797. 	alpha, doublereal *beta, doublereal *a, integer *lda);
    798. 

  798. 

  799. /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, 
    800. 

  800. 	doublereal *work, integer *info);
    801. 

  801. 

  802. /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
    803. 

  803. 

  804. /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, 
    805. 

  805. 	integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
    806. 

  806. 	 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 
    807. 

  807. 	logical *ieee);
    808. 

  808. 

  809. /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, 
    810. 

  810. 	integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 
    811. 

  811. 	doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 
    812. 

  812. 	doublereal *tau, integer *ttype);
    813. 

  813. 

  814. /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, 
    815. 

  815. 	integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 
    816. 

  816. 	doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
    817. 

  817. 	 logical *ieee);
    818. 

  818. 

  819. /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, 
    820. 

  820. 	integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
    821. 

  821. 	 doublereal *dn, doublereal *dnm1, doublereal *dnm2);
    822. 

  822. 

  823. /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
    824. 

  824. 	 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
    825. 

  825. 	lda);
    826. 

  826. 

  827. /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
    828. 

  828. 	info);
    829. 

  829. 

  830. /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 
    831. 

  831. 	doublereal *scale, doublereal *sumsq);
    832. 

  832. 

  833. /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 
    834. 

  834. 	doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
    835. 

  835. 	csr, doublereal *snl, doublereal *csl);
    836. 

  836. 

  837. /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer 
    838. 

  838. 	*k1, integer *k2, integer *ipiv, integer *incx);
    839. 

  839. 

  840. /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
    841. 

  841. 	integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
    842. 

  842. 	tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 
    843. 

  843. 	doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
    844. 

  844. 

  845. /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    846. 

  846. 	 doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
    847. 

  847. 	ldw, integer *info);
    848. 

  848. 

  849. /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
    850. 

  850. 	normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 
    851. 

  851. 	doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
    852. 

  852. 

  853. /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, 
    854. 

  854. 	integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 
    855. 

  855. 	integer *ipiv, integer *jpiv);
    856. 

  856. 

  857. /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
    858. 

  858. 	normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 
    859. 

  859. 	doublereal *cnorm, integer *info);
    860. 

  860. 

  861. /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
    862. 

  862. 	a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 
    863. 

  863. 	integer *ldw);
    864. 

  864. 

  865. /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
    866. 

  866. 	normin, integer *n, doublereal *a, integer *lda, doublereal *x, 
    867. 

  867. 	doublereal *scale, doublereal *cnorm, integer *info);
    868. 

  868. 

  869. /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
    870. 

  870. 	a, integer *lda, doublereal *tau, doublereal *work);
    871. 

  871. 

  872. /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
    873. 

  873. 	v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 
    874. 

  874. 	integer *ldc, doublereal *work);
    875. 

  875. 

  876. /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
    877. 

  877. 	lda, integer *info);
    878. 

  878. 

  879. /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
    880. 

  880. 	lda, integer *info);
    881. 

  881. 

  882. /* Subroutine */ int dlazq3_(integer *i0, integer *n0, doublereal *z__, 
    883. 

  883. 	integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
    884. 

  884. 	 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 
    885. 

  885. 	logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, 
    886. 

  886. 	doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *tau);
    887. 

  887. 

  888. /* Subroutine */ int dlazq4_(integer *i0, integer *n0, doublereal *z__, 
    889. 

  889. 	integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 
    890. 

  890. 	doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 
    891. 

  891. 	doublereal *tau, integer *ttype, doublereal *g);
    892. 

  892. 

  893. /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, 
    894. 

  894. 	doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 
    895. 

  895. 	integer *info);
    896. 

  896. 

  897. /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, 
    898. 

  898. 	integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 
    899. 

  899. 	*ldc, doublereal *work, integer *info);
    900. 

  900. 

  901. /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
    902. 

  902. 	a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    903. 

  903. 

  904. /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
    905. 

  905. 	a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    906. 

  906. 

  907. /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, 
    908. 

  908. 	doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    909. 

  909. 	integer *lwork, integer *info);
    910. 

  910. 

  911. /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, 
    912. 

  912. 	doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    913. 

  913. 	integer *lwork, integer *info);
    914. 

  914. 

  915. /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
    916. 

  916. 	a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    917. 

  917. 

  918. /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
    919. 

  919. 	a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    920. 

  920. 	integer *info);
    921. 

  921. 

  922. /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
    923. 

  923. 	a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    924. 

  924. 	integer *info);
    925. 

  925. 

  926. /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
    927. 

  927. 	a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    928. 

  928. 	integer *info);
    929. 

  929. 

  930. /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
    931. 

  931. 	a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    932. 

  932. 

  933. /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
    934. 

  934. 	a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    935. 

  935. 	integer *info);
    936. 

  936. 

  937. /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
    938. 

  938. 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    939. 

  939. 

  940. /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n, 
    941. 

  941. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    942. 

  942. 	c__, integer *ldc, doublereal *work, integer *info);
    943. 

  943. 

  944. /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, 
    945. 

  945. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    946. 

  946. 	c__, integer *ldc, doublereal *work, integer *info);
    947. 

  947. 

  948. /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, 
    949. 

  949. 	integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 
    950. 

  950. 	doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    951. 

  951. 	integer *info);
    952. 

  952. 

  953. /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, 
    954. 

  954. 	integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
    955. 

  955. 	tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    956. 

  956. 	integer *info);
    957. 

  957. 

  958. /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, 
    959. 

  959. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    960. 

  960. 	c__, integer *ldc, doublereal *work, integer *info);
    961. 

  961. 

  962. /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, 
    963. 

  963. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    964. 

  964. 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    965. 

  965. 

  966. /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n, 
    967. 

  967. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    968. 

  968. 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    969. 

  969. 

  970. /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, 
    971. 

  971. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    972. 

  972. 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    973. 

  973. 

  974. /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, 
    975. 

  975. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    976. 

  976. 	c__, integer *ldc, doublereal *work, integer *info);
    977. 

  977. 

  978. /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, 
    979. 

  979. 	integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
    980. 

  980. 	doublereal *c__, integer *ldc, doublereal *work, integer *info);
    981. 

  981. 

  982. /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, 
    983. 

  983. 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    984. 

  984. 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    985. 

  985. 

  986. /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, 
    987. 

  987. 	integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
    988. 

  988. 	doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    989. 

  989. 	integer *info);
    990. 

  990. 

  991. /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, 
    992. 

  992. 	integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
    993. 

  993. 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    994. 

  994. 

  995. /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
    996. 

  996. 	ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
    997. 

  997. 	work, integer *iwork, integer *info);
    998. 

  998. 

  999. /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
    1000. 

  1000. 	ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    1001. 

  1001. 	 integer *info);
    1002. 

  1002. 

  1003. /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
    1004. 

  1004. 	nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
    1005. 

  1005. 	doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    1006. 

  1006. 	ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    1007. 

  1007. 	info);
    1008. 

  1008. 

  1009. /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
    1010. 

  1010. 	ab, integer *ldab, integer *info);
    1011. 

  1011. 

  1012. /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
    1013. 

  1013. 	nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
    1014. 

  1014. 	integer *info);
    1015. 

  1015. 

  1016. /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
    1017. 

  1017. 	integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
    1018. 

  1018. 	integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
    1019. 

  1019. 	ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    1020. 

  1020. 	 doublereal *berr, doublereal *work, integer *iwork, integer *info);
    1021. 

  1021. 

  1022. /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
    1023. 

  1023. 	ab, integer *ldab, integer *info);
    1024. 

  1024. 

  1025. /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
    1026. 

  1026.