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