9 real* X, integer* incX,
10 real* Y, integer* incY);
12 doublereal
ddot_(integer* N,
13 doublereal* X, integer* incX,
14 doublereal* Y, integer* incY);
16 void cdotu_(complex* retval,
18 complex* X, integer* incX,
19 complex* Y, integer* incY);
21 void cdotc_(complex* retval,
23 complex* X, integer* incX,
24 complex* Y, integer* incY);
26 void zdotu_(doublecomplex* retval,
28 doublecomplex* X, integer* incX,
29 doublecomplex* Y, integer* incY);
31 void zdotc_(doublecomplex* retval,
33 doublecomplex* X, integer* incX,
34 doublecomplex* Y, integer* incY);
37 real* X, integer* incX);
40 real* X, integer* incX);
42 doublereal
dnrm2_(integer* N,
43 doublereal* X, integer* incX);
45 doublereal
dasum_(integer* N,
46 doublereal* X, integer* incX);
49 complex* X, integer* incX);
52 complex* X, integer* incX);
55 doublecomplex* X, integer* incX);
58 doublecomplex* X, integer* incX);
61 real* X, integer* incX);
64 doublereal* X, integer* incX);
67 complex* X, integer* incX);
70 doublecomplex* X, integer* incX);
73 real* X, integer* incX,
74 real* Y, integer* incY);
77 real* X, integer* incX,
78 real* Y, integer* incY);
82 real* X, integer* incX,
83 real* Y, integer* incY);
86 doublereal* X, integer* incX,
87 doublereal* Y, integer* incY);
90 doublereal* X, integer* incX,
91 doublereal* Y, integer* incY);
95 doublereal* X, integer* incX,
96 doublereal* Y, integer* incY);
99 complex* X, integer* incX,
100 complex* Y, integer* incY);
103 complex* X, integer* incX,
104 complex* Y, integer* incY);
108 complex* X, integer* incX,
109 complex* Y, integer* incY);
112 doublecomplex* X, integer* incX,
113 doublecomplex* Y, integer* incY);
116 doublecomplex* X, integer* incX,
117 doublecomplex* Y, integer* incY);
120 doublecomplex* alpha,
121 doublecomplex* X, integer* incX,
122 doublecomplex* Y, integer* incY);
124 int srotg_(real* a, real* b, real* c, real* s);
126 int srot_(integer* N,
127 real* X, integer* incX,
128 real* Y, integer* incY,
131 int drotg_(doublereal* a, doublereal* b, doublereal* c, doublereal* s);
133 int drot_(integer* N,
134 doublereal* X, integer* incX,
135 doublereal* Y, integer* incY,
136 doublereal* c, doublereal* s);
140 real* X, integer* incX);
144 doublereal* X, integer* incX);
148 complex* X, integer* incX);
151 doublecomplex* alpha,
152 doublecomplex* X, integer* incX);
156 complex* X, integer* incX);
160 doublecomplex* X, integer* incX);
162 int sgemv_(
char* trans, integer* M, integer* N,
164 real* A, integer* lda,
165 real* X, integer* incX,
167 real* Y, integer* incY);
169 int sgbmv_(
char *trans, integer *M, integer *N, integer *KL, integer *KU,
171 real *A, integer *lda,
172 real *X, integer *incX,
174 real *Y, integer *incY);
176 int strmv_(
char* uplo,
char *trans,
char* diag, integer *N,
177 real *A, integer *lda,
178 real *X, integer *incX);
180 int stbmv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
181 real* A, integer* lda,
182 real* X, integer* incX);
184 int stpmv_(
char* uplo,
char* trans,
char* diag, integer* N,
186 real* X, integer* incX);
188 int strsv_(
char* uplo,
char* trans,
char* diag, integer* N,
189 real* A, integer* lda,
190 real* X, integer* incX);
192 int stbsv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
193 real* A, integer* lda,
194 real* X, integer* incX);
196 int stpsv_(
char* uplo,
char* trans,
char* diag, integer* N,
198 real* X, integer* incX);
200 int dgemv_(
char* trans, integer* M, integer* N,
202 doublereal* A, integer* lda,
203 doublereal* X, integer* incX,
205 doublereal* Y, integer* incY);
207 int dgbmv_(
char *trans, integer *M, integer *N, integer *KL, integer *KU,
209 doublereal *A, integer *lda,
210 doublereal *X, integer *incX,
212 doublereal *Y, integer *incY);
214 int dtrmv_(
char* uplo,
char *trans,
char* diag, integer *N,
215 doublereal *A, integer *lda,
216 doublereal *X, integer *incX);
218 int dtbmv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
219 doublereal* A, integer* lda,
220 doublereal* X, integer* incX);
222 int dtpmv_(
char* uplo,
char* trans,
char* diag, integer* N,
224 doublereal* X, integer* incX);
226 int dtrsv_(
char* uplo,
char* trans,
char* diag, integer* N,
227 doublereal* A, integer* lda,
228 doublereal* X, integer* incX);
230 int dtbsv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
231 doublereal* A, integer* lda,
232 doublereal* X, integer* incX);
234 int dtpsv_(
char* uplo,
char* trans,
char* diag, integer* N,
236 doublereal* X, integer* incX);
238 int cgemv_(
char* trans, integer* M, integer* N,
240 complex* A, integer* lda,
241 complex* X, integer* incX,
243 complex* Y, integer* incY);
245 int cgbmv_(
char *trans, integer *M, integer *N, integer *KL, integer *KU,
247 complex *A, integer *lda,
248 complex *X, integer *incX,
250 complex *Y, integer *incY);
252 int ctrmv_(
char* uplo,
char *trans,
char* diag, integer *N,
253 complex *A, integer *lda,
254 complex *X, integer *incX);
256 int ctbmv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
257 complex* A, integer* lda,
258 complex* X, integer* incX);
260 int ctpmv_(
char* uplo,
char* trans,
char* diag, integer* N,
262 complex* X, integer* incX);
264 int ctrsv_(
char* uplo,
char* trans,
char* diag, integer* N,
265 complex* A, integer* lda,
266 complex* X, integer* incX);
268 int ctbsv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
269 complex* A, integer* lda,
270 complex* X, integer* incX);
272 int ctpsv_(
char* uplo,
char* trans,
char* diag, integer* N,
274 complex* X, integer* incX);
276 int zgemv_(
char* trans, integer* M, integer* N,
277 doublecomplex* alpha,
278 doublecomplex* A, integer* lda,
279 doublecomplex* X, integer* incX,
281 doublecomplex* Y, integer* incY);
283 int zgbmv_(
char *trans, integer *M, integer *N, integer *KL, integer *KU,
284 doublecomplex *alpha,
285 doublecomplex *A, integer *lda,
286 doublecomplex *X, integer *incX,
288 doublecomplex *Y, integer *incY);
290 int ztrmv_(
char* uplo,
char *trans,
char* diag, integer *N,
291 doublecomplex *A, integer *lda,
292 doublecomplex *X, integer *incX);
294 int ztbmv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
295 doublecomplex* A, integer* lda,
296 doublecomplex* X, integer* incX);
298 void ztpmv_(
char* uplo,
char* trans,
char* diag, integer* N,
300 doublecomplex* X, integer* incX);
302 int ztrsv_(
char* uplo,
char* trans,
char* diag, integer* N,
303 doublecomplex* A, integer* lda,
304 doublecomplex* X, integer* incX);
306 int ztbsv_(
char* uplo,
char* trans,
char* diag, integer* N, integer* K,
307 doublecomplex* A, integer* lda,
308 doublecomplex* X, integer* incX);
310 int ztpsv_(
char* uplo,
char* trans,
char* diag, integer* N,
312 doublecomplex* X, integer* incX);
314 int ssymv_(
char* uplo, integer* N,
316 real* A, integer* lda,
317 real* X, integer* incX,
319 real* Y, integer* incY);
321 int ssbmv_(
char* uplo, integer* N, integer* K,
323 real* A, integer* lda,
324 real* X, integer* incX,
326 real* Y, integer* incY);
328 int sspmv_(
char* uplo, integer* N,
331 real* X, integer* incX,
333 real* Y, integer* incY);
335 int sger_(integer* M, integer* N,
337 real* X, integer* incX,
338 real* Y, integer* incY,
339 real* A, integer* lda);
341 int ssyr_(
char* uplo, integer* N,
343 real* X, integer* incX,
344 real* A, integer* lda);
346 int sspr_(
char* uplo, integer* N,
348 real* X, integer* incX,
351 int ssyr2_(
char* uplo, integer* N,
353 real* X, integer* incX,
354 real* Y, integer* incY,
355 real* A, integer* lda);
357 int sspr2_(
char* uplo, integer* N,
359 real* X, integer* incX,
360 real* Y, integer* incY,
363 int dsymv_(
char* uplo, integer* N,
365 doublereal* A, integer* lda,
366 doublereal* X, integer* incX,
368 doublereal* Y, integer* incY);
370 int dsbmv_(
char* uplo, integer* N, integer* K,
372 doublereal* A, integer* lda,
373 doublereal* X, integer* incX,
375 doublereal* Y, integer* incY);
377 int dspmv_(
char* uplo, integer* N,
380 doublereal* X, integer* incX,
382 doublereal* Y, integer* incY);
384 int dger_(integer* M, integer* N,
386 doublereal* X, integer* incX,
387 doublereal* Y, integer* incY,
388 doublereal* A, integer* lda);
390 int dsyr_(
char* uplo, integer* N,
392 doublereal* X, integer* incX,
393 doublereal* A, integer* lda);
395 int dspr_(
char* uplo, integer* N,
397 doublereal* X, integer* incX,
400 int dsyr2_(
char* uplo, integer* N,
402 doublereal* X, integer* incX,
403 doublereal* Y, integer* incY,
404 doublereal* A, integer* lda);
406 int dspr2_(
char* uplo, integer* N,
408 doublereal* X, integer* incX,
409 doublereal* Y, integer* incY,
412 int chemv_(
char* uplo, integer* N,
414 complex* A, integer* lda,
415 complex* X, integer* incX,
417 complex* Y, integer* incY);
419 int chbmv_(
char* uplo, integer* N, integer* K,
421 complex* A, integer* lda,
422 complex* X, integer* incX,
424 complex* Y, integer* incY);
426 int chpmv_(
char* uplo, integer* N,
429 complex* X, integer* incX,
431 complex* Y, integer* incY);
433 int cgeru_(integer* M, integer* N,
435 complex* X, integer* incX,
436 complex* Y, integer* incY,
437 complex* A, integer* lda);
439 int cgerc_(integer* M, integer* N,
441 complex* X, integer* incX,
442 complex* Y, integer* incY,
443 complex* A, integer* lda);
445 int cher_(
char* uplo, integer* N,
447 complex* X, integer* incX,
448 complex* A, integer* lda);
450 int chpr_(
char* uplo, integer* N,
452 complex* X, integer* incX,
455 int cher2_(
char* uplo, integer* N,
457 complex* X, integer* incX,
458 complex* Y, integer* incY,
459 complex* A, integer* lda);
461 int chpr2_(
char* uplo, integer* N,
463 complex* X, integer* incX,
464 complex* Y, integer* incY,
467 int zhemv_(
char* uplo, integer* N,
468 doublecomplex* alpha,
469 doublecomplex* A, integer* lda,
470 doublecomplex* X, integer* incX,
472 doublecomplex* Y, integer* incY);
474 int zhbmv_(
char* uplo, integer* N, integer* K,
475 doublecomplex* alpha,
476 doublecomplex* A, integer* lda,
477 doublecomplex* X, integer* incX,
479 doublecomplex* Y, integer* incY);
481 int zhpmv_(
char* uplo, integer* N,
482 doublecomplex* alpha,
484 doublecomplex* X, integer* incX,
486 doublecomplex* Y, integer* incY);
488 int zgeru_(integer* M, integer* N,
489 doublecomplex* alpha,
490 doublecomplex* X, integer* incX,
491 doublecomplex* Y, integer* incY,
492 doublecomplex* A, integer* lda);
494 int zgerc_(integer* M, integer* N,
495 doublecomplex* alpha,
496 doublecomplex* X, integer* incX,
497 doublecomplex* Y, integer* incY,
498 doublecomplex* A, integer* lda);
500 int zher_(
char* uplo, integer* N,
502 doublecomplex* X, integer* incX,
503 doublecomplex* A, integer* lda);
505 int zhpr_(
char* uplo, integer* N,
507 doublecomplex* X, integer* incX,
510 int zher2_(
char* uplo, integer* N,
511 doublecomplex* alpha,
512 doublecomplex* X, integer* incX,
513 doublecomplex* Y, integer* incY,
514 doublecomplex* A, integer* lda);
516 int zhpr2_(
char* uplo, integer* N,
517 doublecomplex* alpha,
518 doublecomplex* X, integer* incX,
519 doublecomplex* Y, integer* incY,
522 int sgemm_(
char* transA,
char* transB, integer* M, integer* N, integer* K,
524 real* A, integer* lda,
525 real* B, integer* ldb,
527 real* C, integer* ldc);
529 int ssymm_(
char* side,
char* uplo, integer* M, integer* N,
531 real* A, integer* lda,
532 real* B, integer* ldb,
534 real* C, integer* ldc);
536 int ssyrk_(
char* uplo,
char* trans, integer* N, integer* K,
538 real* A, integer* lda,
540 real* C, integer* ldc);
542 int ssyr2k_(
char* uplo,
char* trans, integer* N, integer* K,
544 real* A, integer* lda,
545 real* B, integer* ldb,
547 real* C, integer* ldc);
549 int strmm_(
char* side,
char* uplo,
char* trans,
char* diag,
550 integer* M, integer* N,
552 real* A, integer* lda,
553 real* B, integer* ldb);
555 int strsm_(
char* side,
char* uplo,
char* trans,
char* diag,
556 integer* M, integer* N,
558 real* A, integer* lda,
559 real* B, integer* ldb);
561 int dgemm_(
char* transA,
char* transB, integer* M, integer* N, integer* K,
563 doublereal* A, integer* lda,
564 doublereal* B, integer* ldb,
566 doublereal* C, integer* ldc);
568 int dsymm_(
char* side,
char* uplo, integer* M, integer* N,
570 doublereal* A, integer* lda,
571 doublereal* B, integer* ldb,
573 doublereal* C, integer* ldc);
575 int dsyrk_(
char* uplo,
char* trans, integer* N, integer* K,
577 doublereal* A, integer* lda,
579 doublereal* C, integer* ldc);
581 int dsyr2k_(
char* uplo,
char* trans, integer* N, integer* K,
583 doublereal* A, integer* lda,
584 doublereal* B, integer* ldb,
586 doublereal* C, integer* ldc);
588 int dtrmm_(
char* side,
char* uplo,
char* trans,
char* diag,
589 integer* M, integer* N,
591 doublereal* A, integer* lda,
592 doublereal* B, integer* ldb);
594 int dtrsm_(
char* side,
char* uplo,
char* trans,
char* diag,
595 integer* M, integer* N,
597 doublereal* A, integer* lda,
598 doublereal* B, integer* ldb);
600 int cgemm_(
char* transA,
char* transB, integer* M, integer* N, integer* K,
602 complex* A, integer* lda,
603 complex* B, integer* ldb,
605 complex* C, integer* ldc);
607 int csymm_(
char* side,
char* uplo, integer* M, integer* N,
609 complex* A, integer* lda,
610 complex* B, integer* ldb,
612 complex* C, integer* ldc);
614 int csyrk_(
char* uplo,
char* trans, integer* N, integer* K,
616 complex* A, integer* lda,
618 complex* C, integer* ldc);
620 int csyr2k_(
char* uplo,
char* trans, integer* N, integer* K,
622 complex* A, integer* lda,
623 complex* B, integer* ldb,
625 complex* C, integer* ldc);
627 int ctrmm_(
char* side,
char* uplo,
char* trans,
char* diag,
628 integer* M, integer* N,
630 complex* A, integer* lda,
631 complex* B, integer* ldb);
633 int ctrsm_(
char* side,
char* uplo,
char* trans,
char* diag,
634 integer* M, integer* N,
636 complex* A, integer* lda,
637 complex* B, integer* ldb);
639 int zgemm_(
char* transA,
char* transB, integer* M, integer* N, integer* K,
640 doublecomplex* alpha,
641 doublecomplex* A, integer* lda,
642 doublecomplex* B, integer* ldb,
644 doublecomplex* C, integer* ldc);
646 int zsymm_(
char* side,
char* uplo, integer* M, integer* N,
647 doublecomplex* alpha,
648 doublecomplex* A, integer* lda,
649 doublecomplex* B, integer* ldb,
651 doublecomplex* C, integer* ldc);
653 int zsyrk_(
char* uplo,
char* trans, integer* N, integer* K,
654 doublecomplex* alpha,
655 doublecomplex* A, integer* lda,
657 doublecomplex* C, integer* ldc);
659 int zsyr2k_(
char* uplo,
char* trans, integer* N, integer* K,
660 doublecomplex* alpha,
661 doublecomplex* A, integer* lda,
662 doublecomplex* B, integer* ldb,
664 doublecomplex* C, integer* ldc);
666 int ztrmm_(
char* side,
char* uplo,
char* trans,
char* diag,
667 integer* M, integer* N,
668 doublecomplex* alpha,
669 doublecomplex* A, integer* lda,
670 doublecomplex* B, integer* ldb);
672 int ztrsm_(
char* side,
char* uplo,
char* trans,
char* diag,
673 integer* M, integer* N,
674 doublecomplex* alpha,
675 doublecomplex* A, integer* lda,
676 doublecomplex* B, integer* ldb);
678 int chemm_(
char* side,
char* uplo, integer* M, integer* N,
680 complex* A, integer* lda,
681 complex* B, integer* ldb,
683 complex* C, integer* ldc);
685 int cherk_(
char* uplo,
char* trans, integer* N, integer* K,
687 complex* A, integer* lda,
689 complex* C, integer* ldc);
691 int cher2k_(
char* uplo,
char* trans, integer* N, integer* K,
693 complex* A, integer* lda,
694 complex* B, integer* ldb,
696 complex* C, integer* ldc);
698 int zhemm_(
char* side,
char* uplo, integer* M, integer* N,
699 doublecomplex* alpha,
700 doublecomplex* A, integer* lda,
701 doublecomplex* B, integer* ldb,
703 doublecomplex* C, integer* ldc);
705 int zherk_(
char* uplo,
char* trans, integer* N, integer* K,
707 doublecomplex* A, integer* lda,
709 doublecomplex* C, integer* ldc);
711 int zher2k_(
char* uplo,
char* trans, integer* N, integer* K,
712 doublecomplex* alpha,
713 doublecomplex* A, integer* lda,
714 doublecomplex* B, integer* ldb,
716 doublecomplex* C, integer* ldc);
int ctbmv_(char *uplo, char *trans, char *diag, integer *N, integer *K, complex *A, integer *lda, complex *X, integer *incX)
int chpmv_(char *uplo, integer *N, complex *alpha, complex *Ap, complex *X, integer *incX, complex *beta, complex *Y, integer *incY)
int cscal_(integer *N, complex *alpha, complex *X, integer *incX)
int strsm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, real *alpha, real *A, integer *lda, real *B, integer *ldb)
int dscal_(integer *N, doublereal *alpha, doublereal *X, integer *incX)
int zcopy_(integer *N, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY)
int csyr2k_(char *uplo, char *trans, integer *N, integer *K, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb, complex *beta, complex *C, integer *ldc)
int ztrsm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb)
int stbmv_(char *uplo, char *trans, char *diag, integer *N, integer *K, real *A, integer *lda, real *X, integer *incX)
real scasum_(integer *N, complex *X, integer *incX)
int zscal_(integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX)
int dsbmv_(char *uplo, integer *N, integer *K, doublereal *alpha, doublereal *A, integer *lda, doublereal *X, integer *incX, doublereal *beta, doublereal *Y, integer *incY)
void cdotc_(complex *retval, integer *N, complex *X, integer *incX, complex *Y, integer *incY)
int sswap_(integer *N, real *X, integer *incX, real *Y, integer *incY)
int dspr_(char *uplo, integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *Ap)
int stbsv_(char *uplo, char *trans, char *diag, integer *N, integer *K, real *A, integer *lda, real *X, integer *incX)
doublereal dnrm2_(integer *N, doublereal *X, integer *incX)
int dsyr2k_(char *uplo, char *trans, integer *N, integer *K, doublereal *alpha, doublereal *A, integer *lda, doublereal *B, integer *ldb, doublereal *beta, doublereal *C, integer *ldc)
int chbmv_(char *uplo, integer *N, integer *K, complex *alpha, complex *A, integer *lda, complex *X, integer *incX, complex *beta, complex *Y, integer *incY)
real scnrm2_(integer *N, complex *X, integer *incX)
int cher2k_(char *uplo, char *trans, integer *N, integer *K, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb, real *beta, complex *C, integer *ldc)
int zherk_(char *uplo, char *trans, integer *N, integer *K, doublereal *alpha, doublecomplex *A, integer *lda, doublereal *beta, doublecomplex *C, integer *ldc)
int sspr2_(char *uplo, integer *N, real *alpha, real *X, integer *incX, real *Y, integer *incY, real *A)
int ssyr_(char *uplo, integer *N, real *alpha, real *X, integer *incX, real *A, integer *lda)
int zher_(char *uplo, integer *N, doublereal *alpha, doublecomplex *X, integer *incX, doublecomplex *A, integer *lda)
int zher2k_(char *uplo, char *trans, integer *N, integer *K, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb, doublereal *beta, doublecomplex *C, integer *ldc)
integer izamax_(integer *N, doublecomplex *X, integer *incX)
integer icamax_(integer *N, complex *X, integer *incX)
int dswap_(integer *N, doublereal *X, integer *incX, doublereal *Y, integer *incY)
int srot_(integer *N, real *X, integer *incX, real *Y, integer *incY, real *c, real *s)
doublereal dasum_(integer *N, doublereal *X, integer *incX)
int sgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, real *alpha, real *A, integer *lda, real *X, integer *incX, real *beta, real *Y, integer *incY)
integer isamax_(integer *N, real *X, integer *incX)
int strmm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, real *alpha, real *A, integer *lda, real *B, integer *ldb)
int strsv_(char *uplo, char *trans, char *diag, integer *N, real *A, integer *lda, real *X, integer *incX)
int zhemv_(char *uplo, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX, doublecomplex *beta, doublecomplex *Y, integer *incY)
void zdotc_(doublecomplex *retval, integer *N, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY)
real snrm2_(integer *N, real *X, integer *incX)
int sscal_(integer *N, real *alpha, real *X, integer *incX)
int zhpmv_(char *uplo, integer *N, doublecomplex *alpha, doublecomplex *Ap, doublecomplex *X, integer *incX, doublecomplex *beta, doublecomplex *Y, integer *incY)
int dgemv_(char *trans, integer *M, integer *N, doublereal *alpha, doublereal *A, integer *lda, doublereal *X, integer *incX, doublereal *beta, doublereal *Y, integer *incY)
int dger_(integer *M, integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *Y, integer *incY, doublereal *A, integer *lda)
int saxpy_(integer *N, real *alpha, real *X, integer *incX, real *Y, integer *incY)
int ztbmv_(char *uplo, char *trans, char *diag, integer *N, integer *K, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX)
int dtrsm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, doublereal *alpha, doublereal *A, integer *lda, doublereal *B, integer *ldb)
int dtrsv_(char *uplo, char *trans, char *diag, integer *N, doublereal *A, integer *lda, doublereal *X, integer *incX)
int dspr2_(char *uplo, integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *Y, integer *incY, doublereal *A)
real sasum_(integer *N, real *X, integer *incX)
int sger_(integer *M, integer *N, real *alpha, real *X, integer *incX, real *Y, integer *incY, real *A, integer *lda)
int dsyrk_(char *uplo, char *trans, integer *N, integer *K, doublereal *alpha, doublereal *A, integer *lda, doublereal *beta, doublereal *C, integer *ldc)
int dsyr_(char *uplo, integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *A, integer *lda)
int srotg_(real *a, real *b, real *c, real *s)
int sspr_(char *uplo, integer *N, real *alpha, real *X, integer *incX, real *Ap)
int ztpsv_(char *uplo, char *trans, char *diag, integer *N, doublecomplex *Ap, doublecomplex *X, integer *incX)
int ztrsv_(char *uplo, char *trans, char *diag, integer *N, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX)
int dgemm_(char *transA, char *transB, integer *M, integer *N, integer *K, doublereal *alpha, doublereal *A, integer *lda, doublereal *B, integer *ldb, doublereal *beta, doublereal *C, integer *ldc)
int ztbsv_(char *uplo, char *trans, char *diag, integer *N, integer *K, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX)
int chpr2_(char *uplo, integer *N, complex *alpha, complex *X, integer *incX, complex *Y, integer *incY, complex *Ap)
int ssymv_(char *uplo, integer *N, real *alpha, real *A, integer *lda, real *X, integer *incX, real *beta, real *Y, integer *incY)
int zhbmv_(char *uplo, integer *N, integer *K, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX, doublecomplex *beta, doublecomplex *Y, integer *incY)
int zgerc_(integer *M, integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY, doublecomplex *A, integer *lda)
doublereal dzasum_(integer *N, doublecomplex *X, integer *incX)
void zdotu_(doublecomplex *retval, integer *N, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY)
int zhpr2_(char *uplo, integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY, doublecomplex *Ap)
int ctbsv_(char *uplo, char *trans, char *diag, integer *N, integer *K, complex *A, integer *lda, complex *X, integer *incX)
int ssyr2k_(char *uplo, char *trans, integer *N, integer *K, real *alpha, real *A, integer *lda, real *B, integer *ldb, real *beta, real *C, integer *ldc)
int zgemm_(char *transA, char *transB, integer *M, integer *N, integer *K, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb, doublecomplex *beta, doublecomplex *C, integer *ldc)
void ztpmv_(char *uplo, char *trans, char *diag, integer *N, doublecomplex *Ap, doublecomplex *X, integer *incX)
int chemv_(char *uplo, integer *N, complex *alpha, complex *A, integer *lda, complex *X, integer *incX, complex *beta, complex *Y, integer *incY)
int zsymm_(char *side, char *uplo, integer *M, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb, doublecomplex *beta, doublecomplex *C, integer *ldc)
int stpsv_(char *uplo, char *trans, char *diag, integer *N, real *Ap, real *X, integer *incX)
int cherk_(char *uplo, char *trans, integer *N, integer *K, real *alpha, complex *A, integer *lda, real *beta, complex *C, integer *ldc)
int zgeru_(integer *M, integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY, doublecomplex *A, integer *lda)
int ctrmv_(char *uplo, char *trans, char *diag, integer *N, complex *A, integer *lda, complex *X, integer *incX)
int dsymm_(char *side, char *uplo, integer *M, integer *N, doublereal *alpha, doublereal *A, integer *lda, doublereal *B, integer *ldb, doublereal *beta, doublereal *C, integer *ldc)
int sspmv_(char *uplo, integer *N, real *alpha, real *Ap, real *X, integer *incX, real *beta, real *Y, integer *incY)
int ztrmv_(char *uplo, char *trans, char *diag, integer *N, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX)
int ctpmv_(char *uplo, char *trans, char *diag, integer *N, complex *Ap, complex *X, integer *incX)
int dtrmv_(char *uplo, char *trans, char *diag, integer *N, doublereal *A, integer *lda, doublereal *X, integer *incX)
int daxpy_(integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *Y, integer *incY)
int ssyrk_(char *uplo, char *trans, integer *N, integer *K, real *alpha, real *A, integer *lda, real *beta, real *C, integer *ldc)
integer idamax_(integer *N, doublereal *X, integer *incX)
doublereal ddot_(integer *N, doublereal *X, integer *incX, doublereal *Y, integer *incY)
int drotg_(doublereal *a, doublereal *b, doublereal *c, doublereal *s)
int csymm_(char *side, char *uplo, integer *M, integer *N, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb, complex *beta, complex *C, integer *ldc)
int cgemm_(char *transA, char *transB, integer *M, integer *N, integer *K, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb, complex *beta, complex *C, integer *ldc)
int dgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, doublereal *alpha, doublereal *A, integer *lda, doublereal *X, integer *incX, doublereal *beta, doublereal *Y, integer *incY)
int cgeru_(integer *M, integer *N, complex *alpha, complex *X, integer *incX, complex *Y, integer *incY, complex *A, integer *lda)
int chemm_(char *side, char *uplo, integer *M, integer *N, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb, complex *beta, complex *C, integer *ldc)
int dtpsv_(char *uplo, char *trans, char *diag, integer *N, doublereal *Ap, doublereal *X, integer *incX)
int dtpmv_(char *uplo, char *trans, char *diag, integer *N, doublereal *Ap, doublereal *X, integer *incX)
int csyrk_(char *uplo, char *trans, integer *N, integer *K, complex *alpha, complex *A, integer *lda, complex *beta, complex *C, integer *ldc)
int dcopy_(integer *N, doublereal *X, integer *incX, doublereal *Y, integer *incY)
int zaxpy_(integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY)
int zhemm_(char *side, char *uplo, integer *M, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb, doublecomplex *beta, doublecomplex *C, integer *ldc)
int dtbmv_(char *uplo, char *trans, char *diag, integer *N, integer *K, doublereal *A, integer *lda, doublereal *X, integer *incX)
int ssyr2_(char *uplo, integer *N, real *alpha, real *X, integer *incX, real *Y, integer *incY, real *A, integer *lda)
doublereal dznrm2_(integer *N, doublecomplex *X, integer *incX)
void cdotu_(complex *retval, integer *N, complex *X, integer *incX, complex *Y, integer *incY)
int zsyr2k_(char *uplo, char *trans, integer *N, integer *K, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb, doublecomplex *beta, doublecomplex *C, integer *ldc)
int zswap_(integer *N, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY)
int ccopy_(integer *N, complex *X, integer *incX, complex *Y, integer *incY)
int dtrmm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, doublereal *alpha, doublereal *A, integer *lda, doublereal *B, integer *ldb)
real sdot_(integer *N, real *X, integer *incX, real *Y, integer *incY)
int ssbmv_(char *uplo, integer *N, integer *K, real *alpha, real *A, integer *lda, real *X, integer *incX, real *beta, real *Y, integer *incY)
int dspmv_(char *uplo, integer *N, doublereal *alpha, doublereal *Ap, doublereal *X, integer *incX, doublereal *beta, doublereal *Y, integer *incY)
int sgemm_(char *transA, char *transB, integer *M, integer *N, integer *K, real *alpha, real *A, integer *lda, real *B, integer *ldb, real *beta, real *C, integer *ldc)
int chpr_(char *uplo, integer *N, real *alpha, complex *X, integer *incX, complex *Ap)
int scopy_(integer *N, real *X, integer *incX, real *Y, integer *incY)
int zgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX, doublecomplex *beta, doublecomplex *Y, integer *incY)
int ctrmm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb)
int ctpsv_(char *uplo, char *trans, char *diag, integer *N, complex *Ap, complex *X, integer *incX)
int ztrmm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *B, integer *ldb)
int cgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, complex *alpha, complex *A, integer *lda, complex *X, integer *incX, complex *beta, complex *Y, integer *incY)
int cswap_(integer *N, complex *X, integer *incX, complex *Y, integer *incY)
int cgemv_(char *trans, integer *M, integer *N, complex *alpha, complex *A, integer *lda, complex *X, integer *incX, complex *beta, complex *Y, integer *incY)
int cgerc_(integer *M, integer *N, complex *alpha, complex *X, integer *incX, complex *Y, integer *incY, complex *A, integer *lda)
int caxpy_(integer *N, complex *alpha, complex *X, integer *incX, complex *Y, integer *incY)
int dtbsv_(char *uplo, char *trans, char *diag, integer *N, integer *K, doublereal *A, integer *lda, doublereal *X, integer *incX)
int zher2_(char *uplo, integer *N, doublecomplex *alpha, doublecomplex *X, integer *incX, doublecomplex *Y, integer *incY, doublecomplex *A, integer *lda)
int zsyrk_(char *uplo, char *trans, integer *N, integer *K, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *beta, doublecomplex *C, integer *ldc)
int strmv_(char *uplo, char *trans, char *diag, integer *N, real *A, integer *lda, real *X, integer *incX)
int ssymm_(char *side, char *uplo, integer *M, integer *N, real *alpha, real *A, integer *lda, real *B, integer *ldb, real *beta, real *C, integer *ldc)
int cher_(char *uplo, integer *N, real *alpha, complex *X, integer *incX, complex *A, integer *lda)
int zhpr_(char *uplo, integer *N, doublereal *alpha, doublecomplex *X, integer *incX, doublecomplex *Ap)
int drot_(integer *N, doublereal *X, integer *incX, doublereal *Y, integer *incY, doublereal *c, doublereal *s)
int zdscal_(integer *N, doublereal *alpha, doublecomplex *X, integer *incX)
int csscal_(integer *N, real *alpha, complex *X, integer *incX)
int cher2_(char *uplo, integer *N, complex *alpha, complex *X, integer *incX, complex *Y, integer *incY, complex *A, integer *lda)
int dsymv_(char *uplo, integer *N, doublereal *alpha, doublereal *A, integer *lda, doublereal *X, integer *incX, doublereal *beta, doublereal *Y, integer *incY)
int sgemv_(char *trans, integer *M, integer *N, real *alpha, real *A, integer *lda, real *X, integer *incX, real *beta, real *Y, integer *incY)
int dsyr2_(char *uplo, integer *N, doublereal *alpha, doublereal *X, integer *incX, doublereal *Y, integer *incY, doublereal *A, integer *lda)
int ctrsm_(char *side, char *uplo, char *trans, char *diag, integer *M, integer *N, complex *alpha, complex *A, integer *lda, complex *B, integer *ldb)
int stpmv_(char *uplo, char *trans, char *diag, integer *N, real *Ap, real *X, integer *incX)
int ctrsv_(char *uplo, char *trans, char *diag, integer *N, complex *A, integer *lda, complex *X, integer *incX)
int zgemv_(char *trans, integer *M, integer *N, doublecomplex *alpha, doublecomplex *A, integer *lda, doublecomplex *X, integer *incX, doublecomplex *beta, doublecomplex *Y, integer *incY)