PageRenderTime 58ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/gretl-1.9.9/lib/src/clapack_double.h

#
C Header | 1449 lines | 1112 code | 334 blank | 3 comment | 0 complexity | 12d5af9af860f3116f780be03c1076da MD5 | raw file
Possible License(s): GPL-3.0

Large files files are truncated, but you can click here to view the full file

    

  1. #ifndef CLAPACK_DOUBLE_H
    2. 

  2. #define CLAPACK_DOUBLE_H
    3. 

  3. 

  4. /* CLAPACK subroutines: double-precision real versions only */
    5. 

  5. 

  6. int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
    7. 

  7. 	    d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 
    8. 

  8. 	    integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
    9. 

  9. 	    iwork, integer *info);
    10. 

  10.  
    11. 

  11. int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    12. 

  12. 	    nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 
    13. 

  13. 	    integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
    14. 

  14. 	    ldc, doublereal *work, integer *info);
    15. 

  15.  
    16. 

  16. int ddisna_(char *job, integer *m, integer *n, doublereal *
    17. 

  17. 	    d__, doublereal *sep, integer *info);
    18. 

  18.  
    19. 

  19. int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    20. 

  20. 	    integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
    21. 

  21. 	    d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 
    22. 

  22. 	    integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 
    23. 

  23. 	    integer *info);
    24. 

  24.  
    25. 

  25. int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    26. 

  26. 	    doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
    27. 

  27. 	    doublereal *rcond, doublereal *work, integer *iwork, integer *info);
    28. 

  28.  
    29. 

  29. int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    30. 

  30. 	    doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
    31. 

  31. 	    doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
    32. 

  32. 	    info);
    33. 

  33.  
    34. 

  34. int dgbrfs_(char *trans, integer *n, integer *kl, integer *
    35. 

  35. 	    ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
    36. 

  36. 	    integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 
    37. 

  37. 	    doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
    38. 

  38. 	    doublereal *work, integer *iwork, integer *info);
    39. 

  39.  
    40. 

  40. int dgbsv_(integer *n, integer *kl, integer *ku, integer *
    41. 

  41. 	   nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 
    42. 

  42. 	   integer *ldb, integer *info);
    43. 

  43.  
    44. 

  44. int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    45. 

  45. 	    integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
    46. 

  46. 	    doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 
    47. 

  47. 	    doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 
    48. 

  48. 	    doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
    49. 

  49. 	    doublereal *berr, doublereal *work, integer *iwork, integer *info);
    50. 

  50.  
    51. 

  51. int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    52. 

  52. 	    doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    53. 

  53.  
    54. 

  54. int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    55. 

  55. 	    doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    56. 

  56.  
    57. 

  57. int dgbtrs_(char *trans, integer *n, integer *kl, integer *
    58. 

  58. 	    ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 
    59. 

  59. 	    doublereal *b, integer *ldb, integer *info);
    60. 

  60.  
    61. 

  61. int dgebak_(char *job, char *side, integer *n, integer *ilo, 
    62. 

  62. 	    integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
    63. 

  63. 	    ldv, integer *info);
    64. 

  64.  
    65. 

  65. int dgebal_(char *job, integer *n, doublereal *a, integer *
    66. 

  66. 	    lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
    67. 

  67.  
    68. 

  68. int dgebd2_(integer *m, integer *n, doublereal *a, integer *
    69. 

  69. 	    lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
    70. 

  70. 	    taup, doublereal *work, integer *info);
    71. 

  71.  
    72. 

  72. int dgebrd_(integer *m, integer *n, doublereal *a, integer *
    73. 

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

  74. 	    taup, doublereal *work, integer *lwork, integer *info);
    75. 

  75.  
    76. 

  76. int dgecon_(char *norm, integer *n, doublereal *a, integer *
    77. 

  77. 	    lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    78. 

  78. 	    iwork, integer *info);
    79. 

  79.  
    80. 

  80. int dgeequ_(integer *m, integer *n, doublereal *a, integer *
    81. 

  81. 	    lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
    82. 

  82. 	    *colcnd, doublereal *amax, integer *info);
    83. 

  83.  
    84. 

  84. int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 
    85. 

  85. 	   doublereal *a, integer *lda, integer *sdim, doublereal *wr, 
    86. 

  86. 	   doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 
    87. 

  87. 	   integer *lwork, logical *bwork, integer *info);
    88. 

  88.  
    89. 

  89. int dgeesx_(char *jobvs, char *sort, L_fp select, char *
    90. 

  90. 	    sense, integer *n, doublereal *a, integer *lda, integer *sdim, 
    91. 

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

  92. 	    doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
    93. 

  93. 	    lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
    94. 

  94.  
    95. 

  95. int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
    96. 

  96. 	   a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 
    97. 

  97. 	   integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 
    98. 

  98. 	   integer *lwork, integer *info);
    99. 

  99.  
    100. 

  100. int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    101. 

  101. 	    sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 
    102. 

  102. 	    doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
    103. 

  103. 	    integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 
    104. 

  104. 	    doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal 
    105. 

  105. 	    *work, integer *lwork, integer *iwork, integer *info);
    106. 

  106.  
    107. 

  107. int dgegs_(char *jobvsl, char *jobvsr, integer *n, 
    108. 

  108. 	   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    109. 

  109. 	   alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 
    110. 

  110. 	   integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 
    111. 

  111. 	   integer *lwork, integer *info);
    112. 

  112.  
    113. 

  113. int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
    114. 

  114. 	   a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
    115. 

  115. 	   doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
    116. 

  116. 	   doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
    117. 

  117. 	   integer *info);
    118. 

  118.  
    119. 

  119. int dgehd2_(integer *n, integer *ilo, integer *ihi, 
    120. 

  120. 	    doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    121. 

  121. 	    integer *info);
    122. 

  122.  
    123. 

  123. int dgehrd_(integer *n, integer *ilo, integer *ihi, 
    124. 

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

  125. 	    integer *lwork, integer *info);
    126. 

  126.  
    127. 

  127. int dgelq2_(integer *m, integer *n, doublereal *a, integer *
    128. 

  128. 	    lda, doublereal *tau, doublereal *work, integer *info);
    129. 

  129.  
    130. 

  130. int dgelqf_(integer *m, integer *n, doublereal *a, integer *
    131. 

  131. 	    lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    132. 

  132.  
    133. 

  133. int dgels_(char *trans, integer *m, integer *n, integer *
    134. 

  134. 	   nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
    135. 

  135. 	   doublereal *work, integer *lwork, integer *info);
    136. 

  136.  
    137. 

  137. int dgelsd_(integer *m, integer *n, integer *nrhs, 
    138. 

  138. 	    doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    139. 

  139. 	    s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
    140. 

  140. 	    integer *iwork, integer *info);
    141. 

  141.  
    142. 

  142. int dgelss_(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 *info);
    146. 

  146.  
    147. 

  147. int dgelsx_(integer *m, integer *n, integer *nrhs, 
    148. 

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

  149. 	    jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
    150. 

  150. 	    info);
    151. 

  151.  
    152. 

  152. int dgelsy_(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. 	    lwork, integer *info);
    156. 

  156.  
    157. 

  157. int dgeql2_(integer *m, integer *n, doublereal *a, integer *
    158. 

  158. 	    lda, doublereal *tau, doublereal *work, integer *info);
    159. 

  159.  
    160. 

  160. int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
    161. 

  161. 	    lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    162. 

  162.  
    163. 

  163. int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
    164. 

  164. 	    lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
    165. 

  165. 	    integer *info);
    166. 

  166.  
    167. 

  167. int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
    168. 

  168. 	    lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
    169. 

  169.  
    170. 

  170. int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
    171. 

  171. 	    lda, doublereal *tau, doublereal *work, integer *info);
    172. 

  172.  
    173. 

  173. int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
    174. 

  174. 	    lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    175. 

  175.  
    176. 

  176. int dgerfs_(char *trans, integer *n, integer *nrhs, 
    177. 

  177. 	    doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
    178. 

  178. 	    ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
    179. 

  179. 	    doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
    180. 

  180. 	    integer *info);
    181. 

  181.  
    182. 

  182. int dgerq2_(integer *m, integer *n, doublereal *a, integer *
    183. 

  183. 	    lda, doublereal *tau, doublereal *work, integer *info);
    184. 

  184.  
    185. 

  185. int dgerqf_(integer *m, integer *n, doublereal *a, integer *
    186. 

  186. 	    lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    187. 

  187.  
    188. 

  188. int dgesc2_(integer *n, doublereal *a, integer *lda, 
    189. 

  189. 	    doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
    190. 

  190.  
    191. 

  191. int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
    192. 

  192. 	    a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 
    193. 

  193. 	    doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
    194. 

  194. 	    integer *iwork, integer *info);
    195. 

  195.  
    196. 

  196. int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 
    197. 

  197. 	   *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
    198. 

  198.  
    199. 

  199. int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
    200. 

  200. 	    doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
    201. 

  201. 	    ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
    202. 

  202. 	    integer *info);
    203. 

  203.  
    204. 

  204. int dgesvx_(char *fact, char *trans, integer *n, integer *
    205. 

  205. 	    nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
    206. 

  206. 	    integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
    207. 

  207. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    208. 

  208. 	    rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    209. 

  209. 	    iwork, integer *info);
    210. 

  210.  
    211. 

  211. int dgetc2_(integer *n, doublereal *a, integer *lda, integer 
    212. 

  212. 	    *ipiv, integer *jpiv, integer *info);
    213. 

  213.  
    214. 

  214. int dgetf2_(integer *m, integer *n, doublereal *a, integer *
    215. 

  215. 	    lda, integer *ipiv, integer *info);
    216. 

  216.  
    217. 

  217. int dgetrf_(integer *m, integer *n, doublereal *a, integer *
    218. 

  218. 	    lda, integer *ipiv, integer *info);
    219. 

  219.  
    220. 

  220. int dgetri_(integer *n, doublereal *a, integer *lda, integer 
    221. 

  221. 	    *ipiv, doublereal *work, integer *lwork, integer *info);
    222. 

  222.  
    223. 

  223. int dgetrs_(char *trans, integer *n, integer *nrhs, 
    224. 

  224. 	    doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
    225. 

  225. 	    ldb, integer *info);
    226. 

  226.  
    227. 

  227. int dggbak_(char *job, char *side, integer *n, integer *ilo, 
    228. 

  228. 	    integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
    229. 

  229. 	    doublereal *v, integer *ldv, integer *info);
    230. 

  230.  
    231. 

  231. int dggbal_(char *job, integer *n, doublereal *a, integer *
    232. 

  232. 	    lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 
    233. 

  233. 	    doublereal *lscale, doublereal *rscale, doublereal *work, integer *
    234. 

  234. 	    info);
    235. 

  235.  
    236. 

  236. int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
    237. 

  237. 	   delctg, integer *n, doublereal *a, integer *lda, doublereal *b, 
    238. 

  238. 	   integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 
    239. 

  239. 	   doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 
    240. 

  240. 	   integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 
    241. 

  241. 	   integer *info);
    242. 

  242.  
    243. 

  243. int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
    244. 

  244. 	    delctg, char *sense, integer *n, doublereal *a, integer *lda, 
    245. 

  245. 	    doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 
    246. 

  246. 	    doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
    247. 

  247. 	    doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
    248. 

  248. 	    rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
    249. 

  249. 	    liwork, logical *bwork, integer *info);
    250. 

  250.  
    251. 

  251. int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
    252. 

  252. 	   a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
    253. 

  253. 	   doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
    254. 

  254. 	   doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
    255. 

  255. 	   integer *info);
    256. 

  256.  
    257. 

  257. int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
    258. 

  258. 	    sense, integer *n, doublereal *a, integer *lda, doublereal *b, 
    259. 

  259. 	    integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    260. 

  260. 	    beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
    261. 

  261. 	    integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
    262. 

  262. 	    doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
    263. 

  263. 	    rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
    264. 

  264. 	    bwork, integer *info);
    265. 

  265.  
    266. 

  266. int dggglm_(integer *n, integer *m, integer *p, doublereal *
    267. 

  267. 	    a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 
    268. 

  268. 	    doublereal *x, doublereal *y, doublereal *work, integer *lwork, 
    269. 

  269. 	    integer *info);
    270. 

  270.  
    271. 

  271. int dgghrd_(char *compq, char *compz, integer *n, integer *
    272. 

  272. 	    ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 
    273. 

  273. 	    integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
    274. 

  274. 	    ldz, integer *info);
    275. 

  275.  
    276. 

  276. int dgglse_(integer *m, integer *n, integer *p, doublereal *
    277. 

  277. 	    a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 
    278. 

  278. 	    doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 
    279. 

  279. 	    integer *info);
    280. 

  280.  
    281. 

  281. int dggqrf_(integer *n, integer *m, integer *p, doublereal *
    282. 

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

  283. 	    doublereal *taub, doublereal *work, integer *lwork, integer *info);
    284. 

  284.  
    285. 

  285. int dggrqf_(integer *m, integer *p, integer *n, doublereal *
    286. 

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

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

  288.  
    289. 

  289. int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
    290. 

  290. 	    integer *n, integer *p, integer *k, integer *l, doublereal *a, 
    291. 

  291. 	    integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 
    292. 

  292. 	    doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 
    293. 

  293. 	    *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 
    294. 

  294. 	    integer *info);
    295. 

  295.  
    296. 

  296. int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
    297. 

  297. 	    integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 
    298. 

  298. 	    integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 
    299. 

  299. 	    *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 
    300. 

  300. 	    doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 
    301. 

  301. 	    doublereal *work, integer *info);
    302. 

  302.  
    303. 

  303. int dgtcon_(char *norm, integer *n, doublereal *dl, 
    304. 

  304. 	    doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 
    305. 

  305. 	    doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    306. 

  306. 	    iwork, integer *info);
    307. 

  307.  
    308. 

  308. int dgtrfs_(char *trans, integer *n, integer *nrhs, 
    309. 

  309. 	    doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 
    310. 

  310. 	    doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
    311. 

  311. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    312. 

  312. 	    ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    313. 

  313. 	    info);
    314. 

  314.  
    315. 

  315. int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 
    316. 

  316. 	   doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 
    317. 

  317. 	   *info);
    318. 

  318.  
    319. 

  319. int dgtsvx_(char *fact, char *trans, integer *n, integer *
    320. 

  320. 	    nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
    321. 

  321. 	    dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
    322. 

  322. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    323. 

  323. 	    rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    324. 

  324. 	    iwork, integer *info);
    325. 

  325.  
    326. 

  326. int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 
    327. 

  327. 	    doublereal *du, doublereal *du2, integer *ipiv, integer *info);
    328. 

  328.  
    329. 

  329. int dgttrs_(char *trans, integer *n, integer *nrhs, 
    330. 

  330. 	    doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
    331. 

  331. 	    integer *ipiv, doublereal *b, integer *ldb, integer *info);
    332. 

  332.  
    333. 

  333. int dgtts2_(integer *itrans, integer *n, integer *nrhs, 
    334. 

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

  335. 	    integer *ipiv, doublereal *b, integer *ldb);
    336. 

  336.  
    337. 

  337. int dhgeqz_(char *job, char *compq, char *compz, integer *n, 
    338. 

  338. 	    integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
    339. 

  339. 	    b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    340. 

  340. 	    beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
    341. 

  341. 	    doublereal *work, integer *lwork, integer *info);
    342. 

  342.  
    343. 

  343. int dhsein_(char *side, char *eigsrc, char *initv, logical *
    344. 

  344. 	    select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 
    345. 

  345. 	    doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
    346. 

  346. 	    integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
    347. 

  347. 	    ifaill, integer *ifailr, integer *info);
    348. 

  348.  
    349. 

  349. int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
    350. 

  350. 	    integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 
    351. 

  351. 	    doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 
    352. 

  352. 	    integer *lwork, integer *info);
    353. 

  353.  
    354. 

  354. int dlabad_(doublereal *smal, doublereal *lrge);
    355. 

  355.  
    356. 

  356. int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
    357. 

  357. 	    a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 
    358. 

  358. 	    doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 
    359. 

  359. 	    *ldy);
    360. 

  360.  
    361. 

  361. int dlacon_(integer *n, doublereal *v, doublereal *x, 
    362. 

  362. 	    integer *isgn, doublereal *est, integer *kase);
    363. 

  363.  
    364. 

  364. int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
    365. 

  365. 	    a, integer *lda, doublereal *b, integer *ldb);
    366. 

  366.  
    367. 

  367. int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 
    368. 

  368. 	    doublereal *d__, doublereal *p, doublereal *q);
    369. 

  369.  
    370. 

  370. int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 
    371. 

  371. 	   doublereal *rt1, doublereal *rt2);
    372. 

  372.  
    373. 

  373. int dlaebz_(integer *ijob, integer *nitmax, integer *n, 
    374. 

  374. 	    integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 
    375. 

  375. 	    doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
    376. 

  376. 	    e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 
    377. 

  377. 	    integer *mout, integer *nab, doublereal *work, integer *iwork, 
    378. 

  378. 	    integer *info);
    379. 

  379.  
    380. 

  380. int dlaed0_(integer *icompq, integer *qsiz, integer *n, 
    381. 

  381. 	    doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 
    382. 

  382. 	    doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 
    383. 

  383. 	    integer *info);
    384. 

  384.  
    385. 

  385. int dlaed1_(integer *n, doublereal *d__, doublereal *q, 
    386. 

  386. 	    integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 
    387. 

  387. 	    doublereal *work, integer *iwork, integer *info);
    388. 

  388.  
    389. 

  389. int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
    390. 

  390. 	    d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 
    391. 

  391. 	    doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 
    392. 

  392. 	    integer *indx, integer *indxc, integer *indxp, integer *coltyp, 
    393. 

  393. 	    integer *info);
    394. 

  394.  
    395. 

  395. int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
    396. 

  396. 	    d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
    397. 

  397. 	    doublereal *q2, integer *indx, integer *ctot, doublereal *w, 
    398. 

  398. 	    doublereal *s, integer *info);
    399. 

  399.  
    400. 

  400. int dlaed4_(integer *n, integer *i__, doublereal *d__, 
    401. 

  401. 	    doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
    402. 

  402. 	    integer *info);
    403. 

  403.  
    404. 

  404. int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 
    405. 

  405. 	    doublereal *delta, doublereal *rho, doublereal *dlam);
    406. 

  406.  
    407. 

  407. int dlaed6_(integer *kniter, logical *orgati, doublereal *
    408. 

  408. 	    rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
    409. 

  409. 	    tau, integer *info);
    410. 

  410.  
    411. 

  411. int dlaed7_(integer *icompq, integer *n, integer *qsiz, 
    412. 

  412. 	    integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
    413. 

  413. 	    doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 
    414. 

  414. 	    *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
    415. 

  415. 	    perm, integer *givptr, integer *givcol, doublereal *givnum, 
    416. 

  416. 	    doublereal *work, integer *iwork, integer *info);
    417. 

  417.  
    418. 

  418. int dlaed8_(integer *icompq, integer *k, integer *n, integer 
    419. 

  419. 	    *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 
    420. 

  420. 	    doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
    421. 

  421. 	    doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 
    422. 

  422. 	    *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 
    423. 

  423. 	    *indx, integer *info);
    424. 

  424.  
    425. 

  425. int dlaed9_(integer *k, integer *kstart, integer *kstop, 
    426. 

  426. 	    integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
    427. 

  427. 	    rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 
    428. 

  428. 	    integer *info);
    429. 

  429.  
    430. 

  430. int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 
    431. 

  431. 	    integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
    432. 

  432. 	    integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 
    433. 

  433. 	    doublereal *z__, doublereal *ztemp, integer *info);
    434. 

  434.  
    435. 

  435. int dlaein_(logical *rightv, logical *noinit, integer *n, 
    436. 

  436. 	    doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 
    437. 

  437. 	    doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 
    438. 

  438. 	    doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
    439. 

  439. 	    bignum, integer *info);
    440. 

  440.  
    441. 

  441. int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 
    442. 

  442. 	    doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
    443. 

  443.  
    444. 

  444. int dlaexc_(logical *wantq, integer *n, doublereal *t, 
    445. 

  445. 	    integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 
    446. 

  446. 	    integer *n2, doublereal *work, integer *info);
    447. 

  447.  
    448. 

  448. int dlag2_(doublereal *a, integer *lda, doublereal *b, 
    449. 

  449. 	   integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
    450. 

  450. 	   scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
    451. 

  451.  
    452. 

  452. int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 
    453. 

  453. 	    doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 
    454. 

  454. 	    doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 
    455. 

  455. 	    doublereal *csq, doublereal *snq);
    456. 

  456.  
    457. 

  457. int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 
    458. 

  458. 	    doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 
    459. 

  459. 	    integer *in, integer *info);
    460. 

  460.  
    461. 

  461. int dlagtm_(char *trans, integer *n, integer *nrhs, 
    462. 

  462. 	    doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 
    463. 

  463. 	    doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 
    464. 

  464. 	    *ldb);
    465. 

  465.  
    466. 

  466. int dlagts_(integer *job, integer *n, doublereal *a, 
    467. 

  467. 	    doublereal *b, doublereal *c__, doublereal *d__, integer *in, 
    468. 

  468. 	    doublereal *y, doublereal *tol, integer *info);
    469. 

  469.  
    470. 

  470. int dlagv2_(doublereal *a, integer *lda, doublereal *b, 
    471. 

  471. 	    integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    472. 

  472. 	    beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
    473. 

  473. 	    snr);
    474. 

  474.  
    475. 

  475. int dlahqr_(logical *wantt, logical *wantz, integer *n, 
    476. 

  476. 	    integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
    477. 

  477. 	    *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
    478. 

  478. 	    integer *ldz, integer *info);
    479. 

  479.  
    480. 

  480. int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
    481. 

  481. 	    a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 
    482. 

  482. 	    doublereal *y, integer *ldy);
    483. 

  483.  
    484. 

  484. int dlaic1_(integer *job, integer *j, doublereal *x, 
    485. 

  485. 	    doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
    486. 

  486. 	    sestpr, doublereal *s, doublereal *c__);
    487. 

  487.  
    488. 

  488. int dlaln2_(logical *ltrans, integer *na, integer *nw, 
    489. 

  489. 	    doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 
    490. 

  490. 	    doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 
    491. 

  491. 	    doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 
    492. 

  492. 	    doublereal *scale, doublereal *xnorm, integer *info);
    493. 

  493.  
    494. 

  494. int dlals0_(integer *icompq, integer *nl, integer *nr, 
    495. 

  495. 	    integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 
    496. 

  496. 	    *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
    497. 

  497. 	    integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
    498. 

  498. 	    poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
    499. 

  499. 	    k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
    500. 

  500.  
    501. 

  501. int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 
    502. 

  502. 	    integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
    503. 

  503. 	    ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 
    504. 

  504. 	    doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
    505. 

  505. 	    poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
    506. 

  506. 	    perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
    507. 

  507. 	    work, integer *iwork, integer *info);
    508. 

  508.  
    509. 

  509. int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 
    510. 

  510. 	    *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 
    511. 

  511. 	    doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 
    512. 

  512. 	    integer *info);
    513. 

  513.  
    514. 

  514. int dlamc1_(integer *beta, integer *t, logical *rnd, logical 
    515. 

  515. 	    *ieee1);
    516. 

  516.  
    517. 

  517. int dlamc2_(integer *beta, integer *t, logical *rnd, 
    518. 

  518. 	    doublereal *eps, integer *emin, doublereal *rmin, integer *emax, 
    519. 

  519. 	    doublereal *rmax);
    520. 

  520.  
    521. 

  521. int dlamc4_(integer *emin, doublereal *start, integer *base);
    522. 

  522.  
    523. 

  523. int dlamc5_(integer *beta, integer *p, integer *emin, 
    524. 

  524. 	    logical *ieee, integer *emax, doublereal *rmax);
    525. 

  525.  
    526. 

  526. int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 
    527. 

  527. 	    *dtrd1, integer *dtrd2, integer *index);
    528. 

  528.  
    529. 

  529. int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 
    530. 

  530. 	    doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
    531. 

  531. 	    doublereal *rt2i, doublereal *cs, doublereal *sn);
    532. 

  532.  
    533. 

  533. int dlapll_(integer *n, doublereal *x, integer *incx, 
    534. 

  534. 	    doublereal *y, integer *incy, doublereal *ssmin);
    535. 

  535.  
    536. 

  536. int dlapmt_(logical *forwrd, integer *m, integer *n, 
    537. 

  537. 	    doublereal *x, integer *ldx, integer *k);
    538. 

  538.  
    539. 

  539. int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
    540. 

  540. 	    doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
    541. 

  541. 	    doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
    542. 

  542.  
    543. 

  543. int dlaqge_(integer *m, integer *n, doublereal *a, integer *
    544. 

  544. 	    lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
    545. 

  545. 	    *colcnd, doublereal *amax, char *equed);
    546. 

  546.  
    547. 

  547. int dlaqp2_(integer *m, integer *n, integer *offset, 
    548. 

  548. 	    doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 
    549. 

  549. 	    doublereal *vn1, doublereal *vn2, doublereal *work);
    550. 

  550.  
    551. 

  551. int dlaqps_(integer *m, integer *n, integer *offset, integer 
    552. 

  552. 	    *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 
    553. 

  553. 	    doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 
    554. 

  554. 	    doublereal *f, integer *ldf);
    555. 

  555.  
    556. 

  556. int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
    557. 

  557. 	    ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    558. 

  558. 	    char *equed);
    559. 

  559.  
    560. 

  560. int dlaqsp_(char *uplo, integer *n, doublereal *ap, 
    561. 

  561. 	    doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    562. 

  562.  
    563. 

  563. int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
    564. 

  564. 	    lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    565. 

  565.  
    566. 

  566. int dlaqtr_(logical *ltran, logical *lreal, integer *n, 
    567. 

  567. 	    doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 
    568. 

  568. 	    *scale, doublereal *x, doublereal *work, integer *info);
    569. 

  569.  
    570. 

  570. int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 
    571. 

  571. 	    *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
    572. 

  572. 	    lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal 
    573. 

  573. 	    *mingma, integer *r__, integer *isuppz, doublereal *work);
    574. 

  574.  
    575. 

  575. int dlar2v_(integer *n, doublereal *x, doublereal *y, 
    576. 

  576. 	    doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 
    577. 

  577. 	    integer *incc);
    578. 

  578.  
    579. 

  579. int dlarf_(char *side, integer *m, integer *n, doublereal *v,
    580. 

  580. 	   integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 
    581. 

  581. 	   doublereal *work);
    582. 

  582.  
    583. 

  583. int dlarfb_(char *side, char *trans, char *direct, char *
    584. 

  584. 	    storev, integer *m, integer *n, integer *k, doublereal *v, integer *
    585. 

  585. 	    ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 
    586. 

  586. 	    doublereal *work, integer *ldwork);
    587. 

  587.  
    588. 

  588. int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
    589. 

  589. 	    integer *incx, doublereal *tau);
    590. 

  590.  
    591. 

  591. int dlarft_(char *direct, char *storev, integer *n, integer *
    592. 

  592. 	    k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
    593. 

  593. 	    integer *ldt);
    594. 

  594.  
    595. 

  595. int dlarfx_(char *side, integer *m, integer *n, doublereal *
    596. 

  596. 	    v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
    597. 

  597.  
    598. 

  598. int dlargv_(integer *n, doublereal *x, integer *incx, 
    599. 

  599. 	    doublereal *y, integer *incy, doublereal *c__, integer *incc);
    600. 

  600.  
    601. 

  601. int dlarnv_(integer *idist, integer *iseed, integer *n, 
    602. 

  602. 	    doublereal *x);
    603. 

  603.  
    604. 

  604. int dlarrb_(integer *n, doublereal *d__, doublereal *l, 
    605. 

  605. 	    doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, 
    606. 

  606. 	    doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *
    607. 

  607. 	    wgap, doublereal *werr, doublereal *work, integer *iwork, integer *
    608. 

  608. 	    info);
    609. 

  609.  
    610. 

  610. int dlarre_(integer *n, doublereal *d__, doublereal *e, 
    611. 

  611. 	    doublereal *tol, integer *nsplit, integer *isplit, integer *m, 
    612. 

  612. 	    doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work,
    613. 

  613. 	    integer *info);
    614. 

  614.  
    615. 

  615. int dlarrf_(integer *n, doublereal *d__, doublereal *l, 
    616. 

  616. 	    doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, 
    617. 

  617. 	    doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work,
    618. 

  618. 	    integer *iwork, integer *info);
    619. 

  619.  
    620. 

  620. int dlarrv_(integer *n, doublereal *d__, doublereal *l, 
    621. 

  621. 	    integer *isplit, integer *m, doublereal *w, integer *iblock, 
    622. 

  622. 	    doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz, 
    623. 

  623. 	    integer *isuppz, doublereal *work, integer *iwork, integer *info);
    624. 

  624.  
    625. 

  625. int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 
    626. 

  626. 	    doublereal *sn, doublereal *r__);
    627. 

  627.  
    628. 

  628. int dlartv_(integer *n, doublereal *x, integer *incx, 
    629. 

  629. 	    doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 
    630. 

  630. 	    *incc);
    631. 

  631.  
    632. 

  632. int dlaruv_(integer *iseed, integer *n, doublereal *x);
    633. 

  633.  
    634. 

  634. int dlarz_(char *side, integer *m, integer *n, integer *l, 
    635. 

  635. 	   doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 
    636. 

  636. 	   integer *ldc, doublereal *work);
    637. 

  637.  
    638. 

  638. int dlarzb_(char *side, char *trans, char *direct, char *
    639. 

  639. 	    storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
    640. 

  640. 	    integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
    641. 

  641. 	    ldc, doublereal *work, integer *ldwork);
    642. 

  642.  
    643. 

  643. int dlarzt_(char *direct, char *storev, integer *n, integer *
    644. 

  644. 	    k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
    645. 

  645. 	    integer *ldt);
    646. 

  646.  
    647. 

  647. int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 
    648. 

  648. 	   doublereal *ssmin, doublereal *ssmax);
    649. 

  649.  
    650. 

  650. int dlascl_(char *type__, integer *kl, integer *ku, 
    651. 

  651. 	    doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
    652. 

  652. 	    doublereal *a, integer *lda, integer *info);
    653. 

  653.  
    654. 

  654. int dlasd0_(integer *n, integer *sqre, doublereal *d__, 
    655. 

  655. 	    doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
    656. 

  656. 	    ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
    657. 

  657. 	    info);
    658. 

  658.  
    659. 

  659. int dlasd1_(integer *nl, integer *nr, integer *sqre, 
    660. 

  660. 	    doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 
    661. 

  661. 	    integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
    662. 

  662. 	    iwork, doublereal *work, integer *info);
    663. 

  663.  
    664. 

  664. int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 
    665. 

  665. 	    *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
    666. 

  666. 	    beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 
    667. 

  667. 	    doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 
    668. 

  668. 	    integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
    669. 

  669. 	    idxq, integer *coltyp, integer *info);
    670. 

  670.  
    671. 

  671. int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 
    672. 

  672. 	    *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 
    673. 

  673. 	    doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 
    674. 

  674. 	    doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 
    675. 

  675. 	    integer *idxc, integer *ctot, doublereal *z__, integer *info);
    676. 

  676.  
    677. 

  677. int dlasd4_(integer *n, integer *i__, doublereal *d__, 
    678. 

  678. 	    doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
    679. 

  679. 	    sigma, doublereal *work, integer *info);
    680. 

  680.  
    681. 

  681. int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 
    682. 

  682. 	    doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
    683. 

  683. 	    work);
    684. 

  684.  
    685. 

  685. int dlasd6_(integer *icompq, integer *nl, integer *nr, 
    686. 

  686. 	    integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 
    687. 

  687. 	    doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 
    688. 

  688. 	    integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    689. 

  689. 	    integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
    690. 

  690. 	    difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 
    691. 

  691. 	    doublereal *work, integer *iwork, integer *info);
    692. 

  692.  
    693. 

  693. int dlasd7_(integer *icompq, integer *nl, integer *nr, 
    694. 

  694. 	    integer *sqre, integer *k, doublereal *d__, doublereal *z__, 
    695. 

  695. 	    doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 
    696. 

  696. 	    doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
    697. 

  697. 	    dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 
    698. 

  698. 	    integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    699. 

  699. 	    integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
    700. 

  700.  
    701. 

  701. int dlasd8_(integer *icompq, integer *k, doublereal *d__, 
    702. 

  702. 	    doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 
    703. 

  703. 	    doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
    704. 

  704. 	    work, integer *info);
    705. 

  705.  
    706. 

  706. int dlasd9_(integer *icompq, integer *ldu, integer *k, 
    707. 

  707. 	    doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl, 
    708. 

  708. 	    doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *
    709. 

  709. 	    work, integer *info);
    710. 

  710.  
    711. 

  711. int dlasda_(integer *icompq, integer *smlsiz, integer *n, 
    712. 

  712. 	    integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 
    713. 

  713. 	    *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 
    714. 

  714. 	    doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 
    715. 

  715. 	    integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 
    716. 

  716. 	    doublereal *s, doublereal *work, integer *iwork, integer *info);
    717. 

  717.  
    718. 

  718. int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
    719. 

  719. 	    ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 
    720. 

  720. 	    doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 
    721. 

  721. 	    doublereal *c__, integer *ldc, doublereal *work, integer *info);
    722. 

  722.  
    723. 

  723. int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
    724. 

  724. 	    inode, integer *ndiml, integer *ndimr, integer *msub);
    725. 

  725.  
    726. 

  726. int dlaset_(char *uplo, integer *m, integer *n, doublereal *
    727. 

  727. 	    alpha, doublereal *beta, doublereal *a, integer *lda);
    728. 

  728.  
    729. 

  729. int dlasq1_(integer *n, doublereal *d__, doublereal *e, 
    730. 

  730. 	    doublereal *work, integer *info);
    731. 

  731.  
    732. 

  732. int dlasq2_(integer *n, doublereal *z__, integer *info);
    733. 

  733.  
    734. 

  734. int dlasq3_(integer *i0, integer *n0, doublereal *z__, 
    735. 

  735. 	    integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
    736. 

  736. 	    doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 
    737. 

  737. 	    logical *ieee);
    738. 

  738.  
    739. 

  739. int dlasq4_(integer *i0, integer *n0, doublereal *z__, 
    740. 

  740. 	    integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 
    741. 

  741. 	    doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 
    742. 

  742. 	    doublereal *tau, integer *ttype);
    743. 

  743.  
    744. 

  744. int dlasq5_(integer *i0, integer *n0, doublereal *z__, 
    745. 

  745. 	    integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 
    746. 

  746. 	    doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
    747. 

  747. 	    logical *ieee);
    748. 

  748.  
    749. 

  749. int dlasq6_(integer *i0, integer *n0, doublereal *z__, 
    750. 

  750. 	    integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
    751. 

  751. 	    doublereal *dn, doublereal *dnm1, doublereal *dnm2);
    752. 

  752.  
    753. 

  753. int dlasr_(char *side, char *pivot, char *direct, integer *m,
    754. 

  754. 	   integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
    755. 

  755. 	   lda);
    756. 

  756.  
    757. 

  757. int dlasrt_(char *id, integer *n, doublereal *d__, integer *
    758. 

  758. 	    info);
    759. 

  759.  
    760. 

  760. int dlassq_(integer *n, doublereal *x, integer *incx, 
    761. 

  761. 	    doublereal *scale, doublereal *sumsq);
    762. 

  762.  
    763. 

  763. int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 
    764. 

  764. 	    doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
    765. 

  765. 	    csr, doublereal *snl, doublereal *csl);
    766. 

  766.  
    767. 

  767. int dlaswp_(integer *n, doublereal *a, integer *lda, integer 
    768. 

  768. 	    *k1, integer *k2, integer *ipiv, integer *incx);
    769. 

  769.  
    770. 

  770. int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
    771. 

  771. 	    integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
    772. 

  772. 	    tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 
    773. 

  773. 	    doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
    774. 

  774.  
    775. 

  775. int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    776. 

  776. 	    doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
    777. 

  777. 	    ldw, integer *info);
    778. 

  778.  
    779. 

  779. int dlatbs_(char *uplo, char *trans, char *diag, char *
    780. 

  780. 	    normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 
    781. 

  781. 	    doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
    782. 

  782.  
    783. 

  783. int dlatdf_(integer *ijob, integer *n, doublereal *z__, 
    784. 

  784. 	    integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 
    785. 

  785. 	    integer *ipiv, integer *jpiv);
    786. 

  786.  
    787. 

  787. int dlatps_(char *uplo, char *trans, char *diag, char *
    788. 

  788. 	    normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 
    789. 

  789. 	    doublereal *cnorm, integer *info);
    790. 

  790.  
    791. 

  791. int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
    792. 

  792. 	    a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 
    793. 

  793. 	    integer *ldw);
    794. 

  794.  
    795. 

  795. int dlatrs_(char *uplo, char *trans, char *diag, char *
    796. 

  796. 	    normin, integer *n, doublereal *a, integer *lda, doublereal *x, 
    797. 

  797. 	    doublereal *scale, doublereal *cnorm, integer *info);
    798. 

  798.  
    799. 

  799. int dlatrz_(integer *m, integer *n, integer *l, doublereal *
    800. 

  800. 	    a, integer *lda, doublereal *tau, doublereal *work);
    801. 

  801.  
    802. 

  802. int dlatzm_(char *side, integer *m, integer *n, doublereal *
    803. 

  803. 	    v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 
    804. 

  804. 	    integer *ldc, doublereal *work);
    805. 

  805.  
    806. 

  806. int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
    807. 

  807. 	    lda, integer *info);
    808. 

  808.  
    809. 

  809. int dlauum_(char *uplo, integer *n, doublereal *a, integer *
    810. 

  810. 	    lda, integer *info);
    811. 

  811.  
    812. 

  812. int dopgtr_(char *uplo, integer *n, doublereal *ap, 
    813. 

  813. 	    doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 
    814. 

  814. 	    integer *info);
    815. 

  815.  
    816. 

  816. int dopmtr_(char *side, char *uplo, char *trans, integer *m, 
    817. 

  817. 	    integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 
    818. 

  818. 	    *ldc, doublereal *work, integer *info);
    819. 

  819.  
    820. 

  820. int dorg2l_(integer *m, integer *n, integer *k, doublereal *
    821. 

  821. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    822. 

  822.  
    823. 

  823. int dorg2r_(integer *m, integer *n, integer *k, doublereal *
    824. 

  824. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    825. 

  825.  
    826. 

  826. int dorgbr_(char *vect, integer *m, integer *n, integer *k, 
    827. 

  827. 	    doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    828. 

  828. 	    integer *lwork, integer *info);
    829. 

  829.  
    830. 

  830. int dorghr_(integer *n, integer *ilo, integer *ihi, 
    831. 

  831. 	    doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
    832. 

  832. 	    integer *lwork, integer *info);
    833. 

  833.  
    834. 

  834. int dorgl2_(integer *m, integer *n, integer *k, doublereal *
    835. 

  835. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    836. 

  836.  
    837. 

  837. int dorglq_(integer *m, integer *n, integer *k, doublereal *
    838. 

  838. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    839. 

  839. 	    integer *info);
    840. 

  840.  
    841. 

  841. int dorgql_(integer *m, integer *n, integer *k, doublereal *
    842. 

  842. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    843. 

  843. 	    integer *info);
    844. 

  844.  
    845. 

  845. int dorgqr_(integer *m, integer *n, integer *k, doublereal *
    846. 

  846. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    847. 

  847. 	    integer *info);
    848. 

  848.  
    849. 

  849. int dorgr2_(integer *m, integer *n, integer *k, doublereal *
    850. 

  850. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    851. 

  851.  
    852. 

  852. int dorgrq_(integer *m, integer *n, integer *k, doublereal *
    853. 

  853. 	    a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
    854. 

  854. 	    integer *info);
    855. 

  855.  
    856. 

  856. int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
    857. 

  857. 	    lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    858. 

  858.  
    859. 

  859. int dorm2l_(char *side, char *trans, integer *m, integer *n, 
    860. 

  860. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    861. 

  861. 	    c__, integer *ldc, doublereal *work, integer *info);
    862. 

  862.  
    863. 

  863. int dorm2r_(char *side, char *trans, integer *m, integer *n, 
    864. 

  864. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    865. 

  865. 	    c__, integer *ldc, doublereal *work, integer *info);
    866. 

  866.  
    867. 

  867. int dormbr_(char *vect, char *side, char *trans, integer *m, 
    868. 

  868. 	    integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 
    869. 

  869. 	    doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    870. 

  870. 	    integer *info);
    871. 

  871.  
    872. 

  872. int dormhr_(char *side, char *trans, integer *m, integer *n, 
    873. 

  873. 	    integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
    874. 

  874. 	    tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    875. 

  875. 	    integer *info);
    876. 

  876.  
    877. 

  877. int dorml2_(char *side, char *trans, integer *m, integer *n, 
    878. 

  878. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    879. 

  879. 	    c__, integer *ldc, doublereal *work, integer *info);
    880. 

  880.  
    881. 

  881. int dormlq_(char *side, char *trans, integer *m, integer *n, 
    882. 

  882. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    883. 

  883. 	    c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    884. 

  884.  
    885. 

  885. int dormql_(char *side, char *trans, integer *m, integer *n, 
    886. 

  886. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    887. 

  887. 	    c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    888. 

  888.  
    889. 

  889. int dormqr_(char *side, char *trans, integer *m, integer *n, 
    890. 

  890. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    891. 

  891. 	    c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    892. 

  892.  
    893. 

  893. int dormr2_(char *side, char *trans, integer *m, integer *n, 
    894. 

  894. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    895. 

  895. 	    c__, integer *ldc, doublereal *work, integer *info);
    896. 

  896.  
    897. 

  897. int dormr3_(char *side, char *trans, integer *m, integer *n, 
    898. 

  898. 	    integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
    899. 

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

  900.  
    901. 

  901. int dormrq_(char *side, char *trans, integer *m, integer *n, 
    902. 

  902. 	    integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    903. 

  903. 	    c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    904. 

  904.  
    905. 

  905. int dormrz_(char *side, char *trans, integer *m, integer *n, 
    906. 

  906. 	    integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
    907. 

  907. 	    doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
    908. 

  908. 	    integer *info);
    909. 

  909.  
    910. 

  910. int dormtr_(char *side, char *uplo, char *trans, integer *m, 
    911. 

  911. 	    integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
    912. 

  912. 	    c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    913. 

  913.  
    914. 

  914. int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
    915. 

  915. 	    ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
    916. 

  916. 	    work, integer *iwork, integer *info);
    917. 

  917.  
    918. 

  918. int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
    919. 

  919. 	    ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    920. 

  920. 	    integer *info);
    921. 

  921.  
    922. 

  922. int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
    923. 

  923. 	    nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
    924. 

  924. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    925. 

  925. 	    ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    926. 

  926. 	    info);
    927. 

  927.  
    928. 

  928. int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
    929. 

  929. 	    ab, integer *ldab, integer *info);
    930. 

  930.  
    931. 

  931. int dpbsv_(char *uplo, integer *n, integer *kd, integer *
    932. 

  932. 	   nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
    933. 

  933. 	   integer *info);
    934. 

  934.  
    935. 

  935. int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
    936. 

  936. 	    integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
    937. 

  937. 	    integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
    938. 

  938. 	    ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    939. 

  939. 	    doublereal *berr, doublereal *work, integer *iwork, integer *info);
    940. 

  940.  
    941. 

  941. int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
    942. 

  942. 	    ab, integer *ldab, integer *info);
    943. 

  943.  
    944. 

  944. int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
    945. 

  945. 	    ab, integer *ldab, integer *info);
    946. 

  946.  
    947. 

  947. int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
    948. 

  948. 	    nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
    949. 

  949. 	    integer *info);
    950. 

  950.  
    951. 

  951. int dpocon_(char *uplo, integer *n, doublereal *a, integer *
    952. 

  952. 	    lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    953. 

  953. 	    iwork, integer *info);
    954. 

  954.  
    955. 

  955. int dpoequ_(integer *n, doublereal *a, integer *lda, 
    956. 

  956. 	    doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    957. 

  957.  
    958. 

  958. int dporfs_(char *uplo, integer *n, integer *nrhs, 
    959. 

  959. 	    doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
    960. 

  960. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    961. 

  961. 	    ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    962. 

  962. 	    info);
    963. 

  963.  
    964. 

  964. int dposv_(char *uplo, integer *n, integer *nrhs, doublereal 
    965. 

  965. 	   *a, integer *lda, doublereal *b, integer *ldb, integer *info);
    966. 

  966.  
    967. 

  967. int dposvx_(char *fact, char *uplo, integer *n, integer *
    968. 

  968. 	    nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
    969. 

  969. 	    char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
    970. 

  970. 	    x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
    971. 

  971. 	    berr, doublereal *work, integer *iwork, integer *info);
    972. 

  972.  
    973. 

  973. int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
    974. 

  974. 	    lda, integer *info);
    975. 

  975.  
    976. 

  976. int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
    977. 

  977. 	    lda, integer *info);
    978. 

  978.  
    979. 

  979. int dpotri_(char *uplo, integer *n, doublereal *a, integer *
    980. 

  980. 	    lda, integer *info);
    981. 

  981.  
    982. 

  982. int dpotrs_(char *uplo, integer *n, integer *nrhs, 
    983. 

  983. 	    doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    984. 

  984. 	    info);
    985. 

  985.  
    986. 

  986. int dppcon_(char *uplo, integer *n, doublereal *ap, 
    987. 

  987. 	    doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    988. 

  988. 	    iwork, integer *info);
    989. 

  989.  
    990. 

  990. int dppequ_(char *uplo, integer *n, doublereal *ap, 
    991. 

  991. 	    doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    992. 

  992.  
    993. 

  993. int dpprfs_(char *uplo, integer *n, integer *nrhs, 
    994. 

  994. 	    doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, 
    995. 

  995. 	    doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
    996. 

  996. 	    doublereal *work, integer *iwork, integer *info);
    997. 

  997.  
    998. 

  998. int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal 
    999. 

  999. 	   *ap, doublereal *b, integer *ldb, integer *info);
    1000. 

  1000.  
    1001. 

  1001. int dppsvx_(char *fact, char *uplo, integer *n, integer *
    1002. 

  1002. 	    nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, 
    1003. 

  1003. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    1004. 

  1004. 	    rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    1005. 

  1005. 	    iwork, integer *info);
    1006. 

  1006.  
    1007. 

  1007. int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
    1008. 

  1008. 	    info);
    1009. 

  1009.  
    1010. 

  1010. int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
    1011. 

  1011. 	    info);
    1012. 

  1012.  
    1013. 

  1013. int dpptrs_(char *uplo, integer *n, integer *nrhs, 
    1014. 

  1014. 	    doublereal *ap, doublereal *b, integer *ldb, integer *info);
    1015. 

  1015.  
    1016. 

  1016. int dptcon_(integer *n, doublereal *d__, doublereal *e, 
    1017. 

  1017. 	    doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
    1018. 

  1018.  
    1019. 

  1019. int dpteqr_(char *compz, integer *n, doublereal *d__, 
    1020. 

  1020. 	    doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
    1021. 

  1021. 	    integer *info);
    1022. 

  1022.  
    1023. 

  1023. int dptrfs_(integer *n, integer *nrhs, doublereal *d__, 
    1024. 

  1024. 	    doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer 
    1025. 

  1025. 	    *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    1026. 

  1026. 	    doublereal *work, integer *info);
    1027. 

  1027.  
    1028. 

  1028. int dptsv_(integer *n, integer *nrhs, doublereal *d__, 
    1029. 

  1029. 	   doublereal *e, doublereal *b, integer *ldb, integer *info);
    1030. 

  1030.  
    1031. 

  1031. int dptsvx_(char *fact, integer *n, integer *nrhs, 
    1032. 

  1032. 	    doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, 
    1033. 

  1033. 	    doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    1034. 

  1034. 	    rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    1035. 

  1035. 	    info);
    1036. 

  1036.  
    1037. 

  1037. int dpttrf_(integer *n, doublereal *d__, doublereal *e, 
    1038. 

  1038. 	    integer *info);
    1039. 

  1039.  
    1040. 

  1040. int dpttrs_(integer *n, integer *nrhs, doublereal *d__, 
    1041. 

  1041. 	    doublereal *e, doublereal *b, integer *ldb, integer *info);
    1042. 

  1042.  
    1043. 

  1043. int dptts2_(integer *n, integer *nrhs, doublereal *d__, 
    1044. 

  1044. 	    doublereal *e, doublereal *b, integer *ldb);
    1045. 

  1045.  
    1046. 

  1046. int drscl_(integer *n, doublereal *sa, doublereal *sx, 
    1047. 

  1047. 	   integer *incx);
    1048. 

  1048.  
    1049. 

  1049. int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, 
    1050. 

  1050. 	   doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
    1051. 

  1051. 	   integer *ldz, doublereal *work, integer *info);
    1052. 

  1052.  
    1053. 

  1053. int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
    1054. 

  1054. 	    doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
    1055. 

  1055. 	    integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
    1056. 

  1056. 	    integer *liwork, integer *info);
    1057. 

  1057.  
    1058. 

  1058. int dsbevx_(char *jobz, char *range, char *uplo, integer *n, 
    1059. 

  1059. 	    integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
    1060. 

  1060. 	    ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, 
    1061. 

  1061. 	    doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
    1062. 

  1062. 	    integer *ldz, doublereal *work, integer *iwork, integer *ifail, 
    1063. 

  1063. 	    integer *info);
    1064. 

  1064.  
    1065. 

  1065. int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, 
    1066. 

  1066. 	    integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    1067. 

  1067. 	    ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
    1068. 

  1068.  
    1069. 

  1069. int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
    1070. 

  1070. 	   integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    1071. 

  1071. 	   ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
    1072. 

  1072. 	   integer *info);
    1073. 

  1073.  
    1074. 

  1074. int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
    1075. 

  1075. 	    integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    1076. 

  1076. 	    ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
    1077. 

  1077. 	    integer *lwork, integer *iwork, integer *liwork, integer *info);
    1078. 

  1078.  
    1079. 

  1079. int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, 
    1080. 

  1080. 	    integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
    1081. 

  1081. 	    bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, 
    1082. 

  1082. …
    1083.

Large files files are truncated, but you can click here to view the full file