fblaswr.h 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851
  1. real
  2. sdot_(integer* N,
  3. real* X, integer* incX,
  4. real* Y, integer* incY);
  5. doublereal
  6. ddot_(integer* N,
  7. doublereal* X, integer* incX,
  8. doublereal* Y, integer* incY);
  9. void
  10. cdotu_(complex* retval,
  11. integer* N,
  12. complex* X, integer* incX,
  13. complex* Y, integer* incY);
  14. void
  15. cdotc_(complex* retval,
  16. integer* N,
  17. complex* X, integer* incX,
  18. complex* Y, integer* incY);
  19. void
  20. zdotu_(doublecomplex* retval,
  21. integer* N,
  22. doublecomplex* X, integer* incX,
  23. doublecomplex* Y, integer* incY);
  24. void
  25. zdotc_(doublecomplex* retval,
  26. integer* N,
  27. doublecomplex* X, integer* incX,
  28. doublecomplex* Y, integer* incY);
  29. real
  30. snrm2_(integer* N,
  31. real* X, integer* incX);
  32. real
  33. sasum_(integer* N,
  34. real* X, integer* incX);
  35. doublereal
  36. dnrm2_(integer* N,
  37. doublereal* X, integer* incX);
  38. doublereal
  39. dasum_(integer* N,
  40. doublereal* X, integer* incX);
  41. real
  42. scnrm2_(integer* N,
  43. complex* X, integer* incX);
  44. real
  45. scasum_(integer* N,
  46. complex* X, integer* incX);
  47. doublereal
  48. dznrm2_(integer* N,
  49. doublecomplex* X, integer* incX);
  50. doublereal
  51. dzasum_(integer* N,
  52. doublecomplex* X, integer* incX);
  53. integer
  54. isamax_(integer* N,
  55. real* X, integer* incX);
  56. integer
  57. idamax_(integer* N,
  58. doublereal* X, integer* incX);
  59. integer
  60. icamax_(integer* N,
  61. complex* X, integer* incX);
  62. integer
  63. izamax_(integer* N,
  64. doublecomplex* X, integer* incX);
  65. int
  66. sswap_(integer* N,
  67. real* X, integer* incX,
  68. real* Y, integer* incY);
  69. int
  70. scopy_(integer* N,
  71. real* X, integer* incX,
  72. real* Y, integer* incY);
  73. int
  74. saxpy_(integer* N,
  75. real* alpha,
  76. real* X, integer* incX,
  77. real* Y, integer* incY);
  78. int
  79. dswap_(integer* N,
  80. doublereal* X, integer* incX,
  81. doublereal* Y, integer* incY);
  82. int
  83. dcopy_(integer* N,
  84. doublereal* X, integer* incX,
  85. doublereal* Y, integer* incY);
  86. int
  87. daxpy_(integer* N,
  88. doublereal* alpha,
  89. doublereal* X, integer* incX,
  90. doublereal* Y, integer* incY);
  91. int
  92. cswap_(integer* N,
  93. complex* X, integer* incX,
  94. complex* Y, integer* incY);
  95. int
  96. ccopy_(integer* N,
  97. complex* X, integer* incX,
  98. complex* Y, integer* incY);
  99. int
  100. caxpy_(integer* N,
  101. complex* alpha,
  102. complex* X, integer* incX,
  103. complex* Y, integer* incY);
  104. int
  105. zswap_(integer* N,
  106. doublecomplex* X, integer* incX,
  107. doublecomplex* Y, integer* incY);
  108. int
  109. zcopy_(integer* N,
  110. doublecomplex* X, integer* incX,
  111. doublecomplex* Y, integer* incY);
  112. int
  113. zaxpy_(integer* N,
  114. doublecomplex* alpha,
  115. doublecomplex* X, integer* incX,
  116. doublecomplex* Y, integer* incY);
  117. int
  118. srotg_(real* a, real* b, real* c, real* s);
  119. int
  120. srot_(integer* N,
  121. real* X, integer* incX,
  122. real* Y, integer* incY,
  123. real* c, real* s);
  124. int
  125. crotg_(complex* a, complex* b, complex* c, complex* s);
  126. int
  127. drotg_(doublereal* a, doublereal* b, doublereal* c, doublereal* s);
  128. int
  129. drot_(integer* N,
  130. doublereal* X, integer* incX,
  131. doublereal* Y, integer* incY,
  132. doublereal* c, doublereal* s);
  133. int
  134. zrotg_(doublecomplex* a, doublecomplex* b, doublecomplex* c, doublecomplex* s);
  135. int
  136. sscal_(integer* N,
  137. real* alpha,
  138. real* X, integer* incX);
  139. int
  140. dscal_(integer* N,
  141. doublereal* alpha,
  142. doublereal* X, integer* incX);
  143. int
  144. cscal_(integer* N,
  145. complex* alpha,
  146. complex* X, integer* incX);
  147. int
  148. zscal_(integer* N,
  149. doublecomplex* alpha,
  150. doublecomplex* X, integer* incX);
  151. int
  152. csscal_(integer* N,
  153. real* alpha,
  154. complex* X, integer* incX);
  155. int
  156. zdscal_(integer* N,
  157. doublereal* alpha,
  158. doublecomplex* X, integer* incX);
  159. int
  160. sgemv_(char* trans, integer* M, integer* N,
  161. real* alpha,
  162. real* A, integer* lda,
  163. real* X, integer* incX,
  164. real* beta,
  165. real* Y, integer* incY);
  166. int
  167. sgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
  168. real *alpha,
  169. real *A, integer *lda,
  170. real *X, integer *incX,
  171. real *beta,
  172. real *Y, integer *incY);
  173. int
  174. strmv_(char* uplo, char *trans, char* diag, integer *N,
  175. real *A, integer *lda,
  176. real *X, integer *incX);
  177. int
  178. stbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  179. real* A, integer* lda,
  180. real* X, integer* incX);
  181. int
  182. stpmv_(char* uplo, char* trans, char* diag, integer* N,
  183. real* Ap,
  184. real* X, integer* incX);
  185. int
  186. strsv_(char* uplo, char* trans, char* diag, integer* N,
  187. real* A, integer* lda,
  188. real* X, integer* incX);
  189. int
  190. stbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  191. real* A, integer* lda,
  192. real* X, integer* incX);
  193. int
  194. stpsv_(char* uplo, char* trans, char* diag, integer* N,
  195. real* Ap,
  196. real* X, integer* incX);
  197. int
  198. dgemv_(char* trans, integer* M, integer* N,
  199. doublereal* alpha,
  200. doublereal* A, integer* lda,
  201. doublereal* X, integer* incX,
  202. doublereal* beta,
  203. doublereal* Y, integer* incY);
  204. int
  205. dgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
  206. doublereal *alpha,
  207. doublereal *A, integer *lda,
  208. doublereal *X, integer *incX,
  209. doublereal *beta,
  210. doublereal *Y, integer *incY);
  211. int
  212. dtrmv_(char* uplo, char *trans, char* diag, integer *N,
  213. doublereal *A, integer *lda,
  214. doublereal *X, integer *incX);
  215. int
  216. dtbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  217. doublereal* A, integer* lda,
  218. doublereal* X, integer* incX);
  219. int
  220. dtpmv_(char* uplo, char* trans, char* diag, integer* N,
  221. doublereal* Ap,
  222. doublereal* X, integer* incX);
  223. int
  224. dtrsv_(char* uplo, char* trans, char* diag, integer* N,
  225. doublereal* A, integer* lda,
  226. doublereal* X, integer* incX);
  227. int
  228. dtbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  229. doublereal* A, integer* lda,
  230. doublereal* X, integer* incX);
  231. int
  232. dtpsv_(char* uplo, char* trans, char* diag, integer* N,
  233. doublereal* Ap,
  234. doublereal* X, integer* incX);
  235. int
  236. cgemv_(char* trans, integer* M, integer* N,
  237. complex* alpha,
  238. complex* A, integer* lda,
  239. complex* X, integer* incX,
  240. complex* beta,
  241. complex* Y, integer* incY);
  242. int
  243. cgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
  244. complex *alpha,
  245. complex *A, integer *lda,
  246. complex *X, integer *incX,
  247. complex *beta,
  248. complex *Y, integer *incY);
  249. int
  250. ctrmv_(char* uplo, char *trans, char* diag, integer *N,
  251. complex *A, integer *lda,
  252. complex *X, integer *incX);
  253. int
  254. ctbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  255. complex* A, integer* lda,
  256. complex* X, integer* incX);
  257. int
  258. ctpmv_(char* uplo, char* trans, char* diag, integer* N,
  259. complex* Ap,
  260. complex* X, integer* incX);
  261. int
  262. ctrsv_(char* uplo, char* trans, char* diag, integer* N,
  263. complex* A, integer* lda,
  264. complex* X, integer* incX);
  265. int
  266. ctbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  267. complex* A, integer* lda,
  268. complex* X, integer* incX);
  269. int
  270. ctpsv_(char* uplo, char* trans, char* diag, integer* N,
  271. complex* Ap,
  272. complex* X, integer* incX);
  273. int
  274. zgemv_(char* trans, integer* M, integer* N,
  275. doublecomplex* alpha,
  276. doublecomplex* A, integer* lda,
  277. doublecomplex* X, integer* incX,
  278. doublecomplex* beta,
  279. doublecomplex* Y, integer* incY);
  280. int
  281. zgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
  282. doublecomplex *alpha,
  283. doublecomplex *A, integer *lda,
  284. doublecomplex *X, integer *incX,
  285. doublecomplex *beta,
  286. doublecomplex *Y, integer *incY);
  287. int
  288. ztrmv_(char* uplo, char *trans, char* diag, integer *N,
  289. doublecomplex *A, integer *lda,
  290. doublecomplex *X, integer *incX);
  291. int
  292. ztbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  293. doublecomplex* A, integer* lda,
  294. doublecomplex* X, integer* incX);
  295. void
  296. ztpmv_(char* uplo, char* trans, char* diag, integer* N,
  297. doublecomplex* Ap,
  298. doublecomplex* X, integer* incX);
  299. int
  300. ztrsv_(char* uplo, char* trans, char* diag, integer* N,
  301. doublecomplex* A, integer* lda,
  302. doublecomplex* X, integer* incX);
  303. int
  304. ztbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
  305. doublecomplex* A, integer* lda,
  306. doublecomplex* X, integer* incX);
  307. int
  308. ztpsv_(char* uplo, char* trans, char* diag, integer* N,
  309. doublecomplex* Ap,
  310. doublecomplex* X, integer* incX);
  311. int
  312. ssymv_(char* uplo, integer* N,
  313. real* alpha,
  314. real* A, integer* lda,
  315. real* X, integer* incX,
  316. real* beta,
  317. real* Y, integer* incY);
  318. int
  319. ssbmv_(char* uplo, integer* N, integer* K,
  320. real* alpha,
  321. real* A, integer* lda,
  322. real* X, integer* incX,
  323. real* beta,
  324. real* Y, integer* incY);
  325. int
  326. sspmv_(char* uplo, integer* N,
  327. real* alpha,
  328. real* Ap,
  329. real* X, integer* incX,
  330. real* beta,
  331. real* Y, integer* incY);
  332. int
  333. sger_(integer* M, integer* N,
  334. real* alpha,
  335. real* X, integer* incX,
  336. real* Y, integer* incY,
  337. real* A, integer* lda);
  338. int
  339. ssyr_(char* uplo, integer* N,
  340. real* alpha,
  341. real* X, integer* incX,
  342. real* A, integer* lda);
  343. int
  344. sspr_(char* uplo, integer* N,
  345. real* alpha,
  346. real* X, integer* incX,
  347. real* Ap);
  348. int
  349. ssyr2_(char* uplo, integer* N,
  350. real* alpha,
  351. real* X, integer* incX,
  352. real* Y, integer* incY,
  353. real* A, integer* lda);
  354. int
  355. sspr2_(char* uplo, integer* N,
  356. real* alpha,
  357. real* X, integer* incX,
  358. real* Y, integer* incY,
  359. real* A);
  360. int
  361. dsymv_(char* uplo, integer* N,
  362. doublereal* alpha,
  363. doublereal* A, integer* lda,
  364. doublereal* X, integer* incX,
  365. doublereal* beta,
  366. doublereal* Y, integer* incY);
  367. int
  368. dsbmv_(char* uplo, integer* N, integer* K,
  369. doublereal* alpha,
  370. doublereal* A, integer* lda,
  371. doublereal* X, integer* incX,
  372. doublereal* beta,
  373. doublereal* Y, integer* incY);
  374. int
  375. dspmv_(char* uplo, integer* N,
  376. doublereal* alpha,
  377. doublereal* Ap,
  378. doublereal* X, integer* incX,
  379. doublereal* beta,
  380. doublereal* Y, integer* incY);
  381. int
  382. dger_(integer* M, integer* N,
  383. doublereal* alpha,
  384. doublereal* X, integer* incX,
  385. doublereal* Y, integer* incY,
  386. doublereal* A, integer* lda);
  387. int
  388. dsyr_(char* uplo, integer* N,
  389. doublereal* alpha,
  390. doublereal* X, integer* incX,
  391. doublereal* A, integer* lda);
  392. int
  393. dspr_(char* uplo, integer* N,
  394. doublereal* alpha,
  395. doublereal* X, integer* incX,
  396. doublereal* Ap);
  397. int
  398. dsyr2_(char* uplo, integer* N,
  399. doublereal* alpha,
  400. doublereal* X, integer* incX,
  401. doublereal* Y, integer* incY,
  402. doublereal* A, integer* lda);
  403. int
  404. dspr2_(char* uplo, integer* N,
  405. doublereal* alpha,
  406. doublereal* X, integer* incX,
  407. doublereal* Y, integer* incY,
  408. doublereal* A);
  409. int
  410. chemv_(char* uplo, integer* N,
  411. complex* alpha,
  412. complex* A, integer* lda,
  413. complex* X, integer* incX,
  414. complex* beta,
  415. complex* Y, integer* incY);
  416. int
  417. chbmv_(char* uplo, integer* N, integer* K,
  418. complex* alpha,
  419. complex* A, integer* lda,
  420. complex* X, integer* incX,
  421. complex* beta,
  422. complex* Y, integer* incY);
  423. int
  424. chpmv_(char* uplo, integer* N,
  425. complex* alpha,
  426. complex* Ap,
  427. complex* X, integer* incX,
  428. complex* beta,
  429. complex* Y, integer* incY);
  430. int
  431. cgeru_(integer* M, integer* N,
  432. complex* alpha,
  433. complex* X, integer* incX,
  434. complex* Y, integer* incY,
  435. complex* A, integer* lda);
  436. int
  437. cgerc_(integer* M, integer* N,
  438. complex* alpha,
  439. complex* X, integer* incX,
  440. complex* Y, integer* incY,
  441. complex* A, integer* lda);
  442. int
  443. cher_(char* uplo, integer* N,
  444. real* alpha,
  445. complex* X, integer* incX,
  446. complex* A, integer* lda);
  447. int
  448. chpr_(char* uplo, integer* N,
  449. real* alpha,
  450. complex* X, integer* incX,
  451. complex* Ap);
  452. int
  453. cher2_(char* uplo, integer* N,
  454. complex* alpha,
  455. complex* X, integer* incX,
  456. complex* Y, integer* incY,
  457. complex* A, integer* lda);
  458. int
  459. chpr2_(char* uplo, integer* N,
  460. complex* alpha,
  461. complex* X, integer* incX,
  462. complex* Y, integer* incY,
  463. complex* Ap);
  464. int
  465. zhemv_(char* uplo, integer* N,
  466. doublecomplex* alpha,
  467. doublecomplex* A, integer* lda,
  468. doublecomplex* X, integer* incX,
  469. doublecomplex* beta,
  470. doublecomplex* Y, integer* incY);
  471. int
  472. zhbmv_(char* uplo, integer* N, integer* K,
  473. doublecomplex* alpha,
  474. doublecomplex* A, integer* lda,
  475. doublecomplex* X, integer* incX,
  476. doublecomplex* beta,
  477. doublecomplex* Y, integer* incY);
  478. int
  479. zhpmv_(char* uplo, integer* N,
  480. doublecomplex* alpha,
  481. doublecomplex* Ap,
  482. doublecomplex* X, integer* incX,
  483. doublecomplex* beta,
  484. doublecomplex* Y, integer* incY);
  485. int
  486. zgeru_(integer* M, integer* N,
  487. doublecomplex* alpha,
  488. doublecomplex* X, integer* incX,
  489. doublecomplex* Y, integer* incY,
  490. doublecomplex* A, integer* lda);
  491. int
  492. zgerc_(integer* M, integer* N,
  493. doublecomplex* alpha,
  494. doublecomplex* X, integer* incX,
  495. doublecomplex* Y, integer* incY,
  496. doublecomplex* A, integer* lda);
  497. int
  498. zher_(char* uplo, integer* N,
  499. doublereal* alpha,
  500. doublecomplex* X, integer* incX,
  501. doublecomplex* A, integer* lda);
  502. int
  503. zhpr_(char* uplo, integer* N,
  504. doublereal* alpha,
  505. doublecomplex* X, integer* incX,
  506. doublecomplex* Ap);
  507. int
  508. zher2_(char* uplo, integer* N,
  509. doublecomplex* alpha,
  510. doublecomplex* X, integer* incX,
  511. doublecomplex* Y, integer* incY,
  512. doublecomplex* A, integer* lda);
  513. int
  514. zhpr2_(char* uplo, integer* N,
  515. doublecomplex* alpha,
  516. doublecomplex* X, integer* incX,
  517. doublecomplex* Y, integer* incY,
  518. doublecomplex* Ap);
  519. int
  520. sgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
  521. real* alpha,
  522. real* A, integer* lda,
  523. real* B, integer* ldb,
  524. real* beta,
  525. real* C, integer* ldc);
  526. int
  527. ssymm_(char* side, char* uplo, integer* M, integer* N,
  528. real* alpha,
  529. real* A, integer* lda,
  530. real* B, integer* ldb,
  531. real* beta,
  532. real* C, integer* ldc);
  533. int
  534. ssyrk_(char* uplo, char* trans, integer* N, integer* K,
  535. real* alpha,
  536. real* A, integer* lda,
  537. real* beta,
  538. real* C, integer* ldc);
  539. int
  540. ssyr2k_(char* uplo, char* trans, integer* N, integer* K,
  541. real* alpha,
  542. real* A, integer* lda,
  543. real* B, integer* ldb,
  544. real* beta,
  545. real* C, integer* ldc);
  546. int
  547. strmm_(char* side, char* uplo, char* trans, char* diag,
  548. integer* M, integer* N,
  549. real* alpha,
  550. real* A, integer* lda,
  551. real* B, integer* ldb);
  552. int
  553. strsm_(char* side, char* uplo, char* trans, char* diag,
  554. integer* M, integer* N,
  555. real* alpha,
  556. real* A, integer* lda,
  557. real* B, integer* ldb);
  558. int
  559. dgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
  560. doublereal* alpha,
  561. doublereal* A, integer* lda,
  562. doublereal* B, integer* ldb,
  563. doublereal* beta,
  564. doublereal* C, integer* ldc);
  565. int
  566. dsymm_(char* side, char* uplo, integer* M, integer* N,
  567. doublereal* alpha,
  568. doublereal* A, integer* lda,
  569. doublereal* B, integer* ldb,
  570. doublereal* beta,
  571. doublereal* C, integer* ldc);
  572. int
  573. dsyrk_(char* uplo, char* trans, integer* N, integer* K,
  574. doublereal* alpha,
  575. doublereal* A, integer* lda,
  576. doublereal* beta,
  577. doublereal* C, integer* ldc);
  578. int
  579. dsyr2k_(char* uplo, char* trans, integer* N, integer* K,
  580. doublereal* alpha,
  581. doublereal* A, integer* lda,
  582. doublereal* B, integer* ldb,
  583. doublereal* beta,
  584. doublereal* C, integer* ldc);
  585. int
  586. dtrmm_(char* side, char* uplo, char* trans, char* diag,
  587. integer* M, integer* N,
  588. doublereal* alpha,
  589. doublereal* A, integer* lda,
  590. doublereal* B, integer* ldb);
  591. int
  592. dtrsm_(char* side, char* uplo, char* trans, char* diag,
  593. integer* M, integer* N,
  594. doublereal* alpha,
  595. doublereal* A, integer* lda,
  596. doublereal* B, integer* ldb);
  597. int
  598. cgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
  599. complex* alpha,
  600. complex* A, integer* lda,
  601. complex* B, integer* ldb,
  602. complex* beta,
  603. complex* C, integer* ldc);
  604. int
  605. csymm_(char* side, char* uplo, integer* M, integer* N,
  606. complex* alpha,
  607. complex* A, integer* lda,
  608. complex* B, integer* ldb,
  609. complex* beta,
  610. complex* C, integer* ldc);
  611. int
  612. csyrk_(char* uplo, char* trans, integer* N, integer* K,
  613. complex* alpha,
  614. complex* A, integer* lda,
  615. complex* beta,
  616. complex* C, integer* ldc);
  617. int
  618. csyr2k_(char* uplo, char* trans, integer* N, integer* K,
  619. complex* alpha,
  620. complex* A, integer* lda,
  621. complex* B, integer* ldb,
  622. complex* beta,
  623. complex* C, integer* ldc);
  624. int
  625. ctrmm_(char* side, char* uplo, char* trans, char* diag,
  626. integer* M, integer* N,
  627. complex* alpha,
  628. complex* A, integer* lda,
  629. complex* B, integer* ldb);
  630. int
  631. ctrsm_(char* side, char* uplo, char* trans, char* diag,
  632. integer* M, integer* N,
  633. complex* alpha,
  634. complex* A, integer* lda,
  635. complex* B, integer* ldb);
  636. int
  637. zgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
  638. doublecomplex* alpha,
  639. doublecomplex* A, integer* lda,
  640. doublecomplex* B, integer* ldb,
  641. doublecomplex* beta,
  642. doublecomplex* C, integer* ldc);
  643. int
  644. zsymm_(char* side, char* uplo, integer* M, integer* N,
  645. doublecomplex* alpha,
  646. doublecomplex* A, integer* lda,
  647. doublecomplex* B, integer* ldb,
  648. doublecomplex* beta,
  649. doublecomplex* C, integer* ldc);
  650. int
  651. zsyrk_(char* uplo, char* trans, integer* N, integer* K,
  652. doublecomplex* alpha,
  653. doublecomplex* A, integer* lda,
  654. doublecomplex* beta,
  655. doublecomplex* C, integer* ldc);
  656. int
  657. zsyr2k_(char* uplo, char* trans, integer* N, integer* K,
  658. doublecomplex* alpha,
  659. doublecomplex* A, integer* lda,
  660. doublecomplex* B, integer* ldb,
  661. doublecomplex* beta,
  662. doublecomplex* C, integer* ldc);
  663. int
  664. ztrmm_(char* side, char* uplo, char* trans, char* diag,
  665. integer* M, integer* N,
  666. doublecomplex* alpha,
  667. doublecomplex* A, integer* lda,
  668. doublecomplex* B, integer* ldb);
  669. int
  670. ztrsm_(char* side, char* uplo, char* trans, char* diag,
  671. integer* M, integer* N,
  672. doublecomplex* alpha,
  673. doublecomplex* A, integer* lda,
  674. doublecomplex* B, integer* ldb);
  675. int
  676. chemm_(char* side, char* uplo, integer* M, integer* N,
  677. complex* alpha,
  678. complex* A, integer* lda,
  679. complex* B, integer* ldb,
  680. complex* beta,
  681. complex* C, integer* ldc);
  682. int
  683. cherk_(char* uplo, char* trans, integer* N, integer* K,
  684. real* alpha,
  685. complex* A, integer* lda,
  686. real* beta,
  687. complex* C, integer* ldc);
  688. int
  689. cher2k_(char* uplo, char* trans, integer* N, integer* K,
  690. complex* alpha,
  691. complex* A, integer* lda,
  692. complex* B, integer* ldb,
  693. real* beta,
  694. complex* C, integer* ldc);
  695. int
  696. zhemm_(char* side, char* uplo, integer* M, integer* N,
  697. doublecomplex* alpha,
  698. doublecomplex* A, integer* lda,
  699. doublecomplex* B, integer* ldb,
  700. doublecomplex* beta,
  701. doublecomplex* C, integer* ldc);
  702. int
  703. zherk_(char* uplo, char* trans, integer* N, integer* K,
  704. doublereal* alpha,
  705. doublecomplex* A, integer* lda,
  706. doublereal* beta,
  707. doublecomplex* C, integer* ldc);
  708. int
  709. zher2k_(char* uplo, char* trans, integer* N, integer* K,
  710. doublecomplex* alpha,
  711. doublecomplex* A, integer* lda,
  712. doublecomplex* B, integer* ldb,
  713. doublereal* beta,
  714. doublecomplex* C, integer* ldc);