SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
All Classes Files Functions Variables Typedefs Macros
PBpblas.h
Go to the documentation of this file.
1/* ---------------------------------------------------------------------
2*
3* -- PBLAS routine (version 2.0) --
4* University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5* and University of California, Berkeley.
6* April 1, 1998
7*
8* ---------------------------------------------------------------------
9*/
10/*
11* This file includes PBLAS definitions. All PBLAS routines include this
12* file.
13*
14* ---------------------------------------------------------------------
15* #define macro constants
16* ---------------------------------------------------------------------
17*/
18#if( _F2C_CALL_ == _F2C_ADD_ )
19/*
20* These defines set up the naming scheme required to have a FORTRAN
21* routine call a C routine. No redefinition is necessary to have the
22* following FORTRAN to C interface:
23*
24* FORTRAN CALL C DECLARATION
25* CALL PDGEMM(...) void pdgemm_(...)
26*
27* This is the PBLAS default.
28*/
29#define PB_freebuf_ PB_freebuf_
30#define PB_topget_ pb_topget_
31#define PB_topset_ pb_topset_
32
33#endif
34
35#if( _F2C_CALL_ == _F2C_UPCASE )
36/*
37* These defines set up the naming scheme required to have a FORTRAN
38* routine call a C routine. No redefinition is necessary to have the
39* following FORTRAN to C interface:
40*
41* FORTRAN CALL C DECLARATION
42* CALL PDGEMM(...) void PDGEMM(...)
43*/
44#define pilaenv_ PILAENV
45#define PB_freebuf_ PB_FREEBUF
46#define PB_topget_ PB_TOPGET
47#define PB_topset_ PB_TOPSET
48 /* Level-1 PBLAS */
49#define picopy_ PICOPY
50#define pscopy_ PSCOPY
51#define pdcopy_ PDCOPY
52#define pccopy_ PCCOPY
53#define pzcopy_ PZCOPY
54
55#define psswap_ PSSWAP
56#define pdswap_ PDSWAP
57#define pcswap_ PCSWAP
58#define pzswap_ PZSWAP
59
60#define psaxpy_ PSAXPY
61#define pdaxpy_ PDAXPY
62#define pcaxpy_ PCAXPY
63#define pzaxpy_ PZAXPY
64
65#define psscal_ PSSCAL
66#define pdscal_ PDSCAL
67#define pcscal_ PCSCAL
68#define pzscal_ PZSCAL
69#define pcsscal_ PCSSCAL
70#define pzdscal_ PZDSCAL
71
72#define psasum_ PSASUM
73#define pdasum_ PDASUM
74#define pscasum_ PSCASUM
75#define pdzasum_ PDZASUM
76
77#define psnrm2_ PSNRM2
78#define pdnrm2_ PDNRM2
79#define pscnrm2_ PSCNRM2
80#define pdznrm2_ PDZNRM2
81
82#define psdot_ PSDOT
83#define pddot_ PDDOT
84#define pcdotu_ PCDOTU
85#define pzdotu_ PZDOTU
86#define pcdotc_ PCDOTC
87#define pzdotc_ PZDOTC
88
89#define psamax_ PSAMAX
90#define pdamax_ PDAMAX
91#define pcamax_ PCAMAX
92#define pzamax_ PZAMAX
93
94#define psgemv_ PSGEMV
95#define pdgemv_ PDGEMV
96#define pcgemv_ PCGEMV
97#define pzgemv_ PZGEMV
98
99#define psagemv_ PSAGEMV
100#define pdagemv_ PDAGEMV
101#define pcagemv_ PCAGEMV
102#define pzagemv_ PZAGEMV
103
104#define pssymv_ PSSYMV
105#define pdsymv_ PDSYMV
106#define pchemv_ PCHEMV
107#define pzhemv_ PZHEMV
108
109#define psasymv_ PSASYMV
110#define pdasymv_ PDASYMV
111#define pcahemv_ PCAHEMV
112#define pzahemv_ PZAHEMV
113
114#define pstrmv_ PSTRMV
115#define pdtrmv_ PDTRMV
116#define pctrmv_ PCTRMV
117#define pztrmv_ PZTRMV
118
119#define psatrmv_ PSATRMV
120#define pdatrmv_ PDATRMV
121#define pcatrmv_ PCATRMV
122#define pzatrmv_ PZATRMV
123
124#define pstrsv_ PSTRSV
125#define pdtrsv_ PDTRSV
126#define pctrsv_ PCTRSV
127#define pztrsv_ PZTRSV
128
129#define psger_ PSGER
130#define pdger_ PDGER
131#define pcgeru_ PCGERU
132#define pzgeru_ PZGERU
133#define pcgerc_ PCGERC
134#define pzgerc_ PZGERC
135
136#define pssyr_ PSSYR
137#define pdsyr_ PDSYR
138#define pcher_ PCHER
139#define pzher_ PZHER
140
141#define pssyr2_ PSSYR2
142#define pdsyr2_ PDSYR2
143#define pcher2_ PCHER2
144#define pzher2_ PZHER2
145
146#define psgemm_ PSGEMM
147#define pdgemm_ PDGEMM
148#define pcgemm_ PCGEMM
149#define pzgemm_ PZGEMM
150
151#define psgeadd_ PSGEADD
152#define pdgeadd_ PDGEADD
153#define pcgeadd_ PCGEADD
154#define pzgeadd_ PZGEADD
155
156#define pssymm_ PSSYMM
157#define pdsymm_ PDSYMM
158#define pcsymm_ PCSYMM
159#define pchemm_ PCHEMM
160#define pzsymm_ PZSYMM
161#define pzhemm_ PZHEMM
162
163#define pstrmm_ PSTRMM
164#define pdtrmm_ PDTRMM
165#define pctrmm_ PCTRMM
166#define pztrmm_ PZTRMM
167
168#define pstrsm_ PSTRSM
169#define pdtrsm_ PDTRSM
170#define pctrsm_ PCTRSM
171#define pztrsm_ PZTRSM
172
173#define pssyrk_ PSSYRK
174#define pdsyrk_ PDSYRK
175#define pcsyrk_ PCSYRK
176#define pcherk_ PCHERK
177#define pzsyrk_ PZSYRK
178#define pzherk_ PZHERK
179
180#define pssyr2k_ PSSYR2K
181#define pdsyr2k_ PDSYR2K
182#define pcsyr2k_ PCSYR2K
183#define pcher2k_ PCHER2K
184#define pzsyr2k_ PZSYR2K
185#define pzher2k_ PZHER2K
186
187#define pstradd_ PSTRADD
188#define pdtradd_ PDTRADD
189#define pctradd_ PCTRADD
190#define pztradd_ PZTRADD
191
192#define pstran_ PSTRAN
193#define pdtran_ PDTRAN
194#define pctranu_ PCTRANU
195#define pztranu_ PZTRANU
196#define pctranc_ PCTRANC
197#define pztranc_ PZTRANC
198
199#endif
200
201#if( _F2C_CALL_ == _F2C_NOCHANGE )
202/*
203* These defines set up the naming scheme required to have a FORTRAN
204* routine call a C routine with the following FORTRAN to C interface:
205*
206* FORTRAN CALL C DECLARATION
207* CALLL PDGEMM(...) void pdgemm(...)
208*/
209#define pilaenv_ pilaenv
210#define PB_freebuf_ PB_freebuf
211#define PB_topget_ pb_topget
212#define PB_topset_ pb_topset
213
214#define picopy_ picopy
215#define pscopy_ pscopy
216#define pdcopy_ pdcopy
217#define pccopy_ pccopy
218#define pzcopy_ pzcopy
219
220#define psswap_ psswap
221#define pdswap_ pdswap
222#define pcswap_ pcswap
223#define pzswap_ pzswap
224
225#define psaxpy_ psaxpy
226#define pdaxpy_ pdaxpy
227#define pcaxpy_ pcaxpy
228#define pzaxpy_ pzaxpy
229
230#define psscal_ psscal
231#define pdscal_ pdscal
232#define pcscal_ pcscal
233#define pzscal_ pzscal
234#define pcsscal_ pcsscal
235#define pzdscal_ pzdscal
236
237#define psasum_ psasum
238#define pdasum_ pdasum
239#define pscasum_ pscasum
240#define pdzasum_ pdzasum
241
242#define psnrm2_ psnrm2
243#define pdnrm2_ pdnrm2
244#define pscnrm2_ pscnrm2
245#define pdznrm2_ pdznrm2
246
247#define psdot_ psdot
248#define pddot_ pddot
249#define pcdotu_ pcdotu
250#define pzdotu_ pzdotu
251#define pcdotc_ pcdotc
252#define pzdotc_ pzdotc
253
254#define psamax_ psamax
255#define pdamax_ pdamax
256#define pcamax_ pcamax
257#define pzamax_ pzamax
258
259#define psgemv_ psgemv
260#define pdgemv_ pdgemv
261#define pcgemv_ pcgemv
262#define pzgemv_ pzgemv
263
264#define psagemv_ psagemv
265#define pdagemv_ pdagemv
266#define pcagemv_ pcagemv
267#define pzagemv_ pzagemv
268
269#define pssymv_ pssymv
270#define pdsymv_ pdsymv
271#define pchemv_ pchemv
272#define pzhemv_ pzhemv
273
274#define psasymv_ psasymv
275#define pdasymv_ pdasymv
276#define pcahemv_ pcahemv
277#define pzahemv_ pzahemv
278
279#define pstrmv_ pstrmv
280#define pdtrmv_ pdtrmv
281#define pctrmv_ pctrmv
282#define pztrmv_ pztrmv
283
284#define psatrmv_ psatrmv
285#define pdatrmv_ pdatrmv
286#define pcatrmv_ pcatrmv
287#define pzatrmv_ pzatrmv
288
289#define pstrsv_ pstrsv
290#define pdtrsv_ pdtrsv
291#define pctrsv_ pctrsv
292#define pztrsv_ pztrsv
293
294#define psger_ psger
295#define pdger_ pdger
296#define pcgeru_ pcgeru
297#define pzgeru_ pzgeru
298#define pcgerc_ pcgerc
299#define pzgerc_ pzgerc
300
301#define pssyr_ pssyr
302#define pdsyr_ pdsyr
303#define pcher_ pcher
304#define pzher_ pzher
305
306#define pssyr2_ pssyr2
307#define pdsyr2_ pdsyr2
308#define pcher2_ pcher2
309#define pzher2_ pzher2
310
311#define psgeadd_ psgeadd
312#define pdgeadd_ pdgeadd
313#define pcgeadd_ pcgeadd
314#define pzgeadd_ pzgeadd
315
316#define psgemm_ psgemm
317#define pdgemm_ pdgemm
318#define pcgemm_ pcgemm
319#define pzgemm_ pzgemm
320
321#define pssymm_ pssymm
322#define pdsymm_ pdsymm
323#define pcsymm_ pcsymm
324#define pchemm_ pchemm
325#define pzsymm_ pzsymm
326#define pzhemm_ pzhemm
327
328#define pstrmm_ pstrmm
329#define pdtrmm_ pdtrmm
330#define pctrmm_ pctrmm
331#define pztrmm_ pztrmm
332
333#define pstrsm_ pstrsm
334#define pdtrsm_ pdtrsm
335#define pctrsm_ pctrsm
336#define pztrsm_ pztrsm
337
338#define pssyrk_ pssyrk
339#define pdsyrk_ pdsyrk
340#define pcsyrk_ pcsyrk
341#define pcherk_ pcherk
342#define pzsyrk_ pzsyrk
343#define pzherk_ pzherk
344
345#define pssyr2k_ pssyr2k
346#define pdsyr2k_ pdsyr2k
347#define pcsyr2k_ pcsyr2k
348#define pcher2k_ pcher2k
349#define pzsyr2k_ pzsyr2k
350#define pzher2k_ pzher2k
351
352#define pstradd_ pstradd
353#define pdtradd_ pdtradd
354#define pctradd_ pctradd
355#define pztradd_ pztradd
356
357#define pstran_ pstran
358#define pdtran_ pdtran
359#define pctranu_ pctranu
360#define pztranu_ pztranu
361#define pctranc_ pctranc
362#define pztranc_ pztranc
363
364#endif
365
366#if( _F2C_CALL_ == _F2C_F77ISF2C )
367
368#define PB_freebuf_ PB_freebuf__
369#define PB_topget_ pb_topget__
370#define PB_topset_ pb_topset__
371
372#endif
373/*
374* ---------------------------------------------------------------------
375* Function prototypes
376* ---------------------------------------------------------------------
377*/
378#ifdef __STDC__
379
380void PB_freebuf_ ( void );
381
383 F_CHAR_T );
384
386 F_CHAR_T );
387
388void picopy_ ( Int *, Int *, Int *,
389 Int *, Int *, Int *,
390 Int *, Int *, Int *,
391 Int *, Int * );
392void pscopy_ ( Int *, float *, Int *,
393 Int *, Int *, Int *,
394 float *, Int *, Int *,
395 Int *, Int * );
396void pdcopy_ ( Int *, double *, Int *,
397 Int *, Int *, Int *,
398 double *, Int *, Int *,
399 Int *, Int * );
400void pccopy_ ( Int *, float *, Int *,
401 Int *, Int *, Int *,
402 float *, Int *, Int *,
403 Int *, Int * );
404void pzcopy_ ( Int *, double *, Int *,
405 Int *, Int *, Int *,
406 double *, Int *, Int *,
407 Int *, Int * );
408
409void psswap_ ( Int *, float *, Int *,
410 Int *, Int *, Int *,
411 float *, Int *, Int *,
412 Int *, Int * );
413void pdswap_ ( Int *, double *, Int *,
414 Int *, Int *, Int *,
415 double *, Int *, Int *,
416 Int *, Int * );
417void pcswap_ ( Int *, float *, Int *,
418 Int *, Int *, Int *,
419 float *, Int *, Int *,
420 Int *, Int * );
421void pzswap_ ( Int *, double *, Int *,
422 Int *, Int *, Int *,
423 double *, Int *, Int *,
424 Int *, Int * );
425
426void psaxpy_ ( Int *, float *, float *,
427 Int *, Int *, Int *,
428 Int *, float *, Int *,
429 Int *, Int *, Int * );
430void pdaxpy_ ( Int *, double *, double *,
431 Int *, Int *, Int *,
432 Int *, double *, Int *,
433 Int *, Int *, Int * );
434void pcaxpy_ ( Int *, float *, float *,
435 Int *, Int *, Int *,
436 Int *, float *, Int *,
437 Int *, Int *, Int * );
438void pzaxpy_ ( Int *, double *, double *,
439 Int *, Int *, Int *,
440 Int *, double *, Int *,
441 Int *, Int *, Int * );
442
443void psscal_ ( Int *, float *, float *,
444 Int *, Int *, Int *,
445 Int * );
446void pdscal_ ( Int *, double *, double *,
447 Int *, Int *, Int *,
448 Int * );
449void pcscal_ ( Int *, float *, float *,
450 Int *, Int *, Int *,
451 Int * );
452void pcsscal_ ( Int *, float *, float *,
453 Int *, Int *, Int *,
454 Int * );
455void pzscal_ ( Int *, double *, double *,
456 Int *, Int *, Int *,
457 Int * );
458void pzdscal_ ( Int *, double *, double *,
459 Int *, Int *, Int *,
460 Int * );
461
462void psasum_ ( Int *, float *, float *,
463 Int *, Int *, Int *,
464 Int * );
465void pdasum_ ( Int *, double *, double *,
466 Int *, Int *, Int *,
467 Int * );
468void pscasum_ ( Int *, float *, float *,
469 Int *, Int *, Int *,
470 Int * );
471void pdzasum_ ( Int *, double *, double *,
472 Int *, Int *, Int *,
473 Int * );
474
475void psnrm2_ ( Int *, float *, float *,
476 Int *, Int *, Int *,
477 Int * );
478void pdnrm2_ ( Int *, double *, double *,
479 Int *, Int *, Int *,
480 Int * );
481void pscnrm2_ ( Int *, float *, float *,
482 Int *, Int *, Int *,
483 Int * );
484void pdznrm2_ ( Int *, double *, double *,
485 Int *, Int *, Int *,
486 Int * );
487
488void psdot_ ( Int *, float *, float *,
489 Int *, Int *, Int *,
490 Int *, float *, Int *,
491 Int *, Int *, Int * );
492void pddot_ ( Int *, double *, double *,
493 Int *, Int *, Int *,
494 Int *, double *, Int *,
495 Int *, Int *, Int * );
496void pcdotc_ ( Int *, float *, float *,
497 Int *, Int *, Int *,
498 Int *, float *, Int *,
499 Int *, Int *, Int * );
500void pcdotu_ ( Int *, float *, float *,
501 Int *, Int *, Int *,
502 Int *, float *, Int *,
503 Int *, Int *, Int * );
504void pzdotc_ ( Int *, double *, double *,
505 Int *, Int *, Int *,
506 Int *, double *, Int *,
507 Int *, Int *, Int * );
508void pzdotu_ ( Int *, double *, double *,
509 Int *, Int *, Int *,
510 Int *, double *, Int *,
511 Int *, Int *, Int * );
512
513void psamax_ ( Int *, float *, Int *,
514 float *, Int *, Int *,
515 Int *, Int * );
516void pdamax_ ( Int *, double *, Int *,
517 double *, Int *, Int *,
518 Int *, Int * );
519void pcamax_ ( Int *, float *, Int *,
520 float *, Int *, Int *,
521 Int *, Int * );
522void pzamax_ ( Int *, double *, Int *,
523 double *, Int *, Int *,
524 Int *, Int * );
525
526void psgemv_ ( F_CHAR_T, Int *, Int *,
527 float *, float *, Int *,
528 Int *, Int *, float *,
529 Int *, Int *, Int *,
530 Int *, float *, float *,
531 Int *, Int *, Int *,
532 Int * );
533void pdgemv_ ( F_CHAR_T, Int *, Int *,
534 double *, double *, Int *,
535 Int *, Int *, double *,
536 Int *, Int *, Int *,
537 Int *, double *, double *,
538 Int *, Int *, Int *,
539 Int * );
540void pcgemv_ ( F_CHAR_T, Int *, Int *,
541 float *, float *, Int *,
542 Int *, Int *, float *,
543 Int *, Int *, Int *,
544 Int *, float *, float *,
545 Int *, Int *, Int *,
546 Int * );
547void pzgemv_ ( F_CHAR_T, Int *, Int *,
548 double *, double *, Int *,
549 Int *, Int *, double *,
550 Int *, Int *, Int *,
551 Int *, double *, double *,
552 Int *, Int *, Int *,
553 Int * );
554
555void psagemv_ ( F_CHAR_T, Int *, Int *,
556 float *, float *, Int *,
557 Int *, Int *, float *,
558 Int *, Int *, Int *,
559 Int *, float *, float *,
560 Int *, Int *, Int *,
561 Int * );
562void pdagemv_ ( F_CHAR_T, Int *, Int *,
563 double *, double *, Int *,
564 Int *, Int *, double *,
565 Int *, Int *, Int *,
566 Int *, double *, double *,
567 Int *, Int *, Int *,
568 Int * );
569void pcagemv_ ( F_CHAR_T, Int *, Int *,
570 float *, float *, Int *,
571 Int *, Int *, float *,
572 Int *, Int *, Int *,
573 Int *, float *, float *,
574 Int *, Int *, Int *,
575 Int * );
576void pzagemv_ ( F_CHAR_T, Int *, Int *,
577 double *, double *, Int *,
578 Int *, Int *, double *,
579 Int *, Int *, Int *,
580 Int *, double *, double *,
581 Int *, Int *, Int *,
582 Int * );
583
584void psger_ ( Int *, Int *, float *,
585 float *, Int *, Int *,
586 Int *, Int *, float *,
587 Int *, Int *, Int *,
588 Int *, float *, Int *,
589 Int *, Int * );
590void pdger_ ( Int *, Int *, double *,
591 double *, Int *, Int *,
592 Int *, Int *, double *,
593 Int *, Int *, Int *,
594 Int *, double *, Int *,
595 Int *, Int * );
596void pcgerc_ ( Int *, Int *, float *,
597 float *, Int *, Int *,
598 Int *, Int *, float *,
599 Int *, Int *, Int *,
600 Int *, float *, Int *,
601 Int *, Int * );
602void pcgeru_ ( Int *, Int *, float *,
603 float *, Int *, Int *,
604 Int *, Int *, float *,
605 Int *, Int *, Int *,
606 Int *, float *, Int *,
607 Int *, Int * );
608void pzgerc_ ( Int *, Int *, double *,
609 double *, Int *, Int *,
610 Int *, Int *, double *,
611 Int *, Int *, Int *,
612 Int *, double *, Int *,
613 Int *, Int * );
614void pzgeru_ ( Int *, Int *, double *,
615 double *, Int *, Int *,
616 Int *, Int *, double *,
617 Int *, Int *, Int *,
618 Int *, double *, Int *,
619 Int *, Int * );
620
621void pssymv_ ( F_CHAR_T, Int *, float *,
622 float *, Int *, Int *,
623 Int *, float *, Int *,
624 Int *, Int *, Int *,
625 float *, float *, Int *,
626 Int *, Int *, Int * );
627void pdsymv_ ( F_CHAR_T, Int *, double *,
628 double *, Int *, Int *,
629 Int *, double *, Int *,
630 Int *, Int *, Int *,
631 double *, double *, Int *,
632 Int *, Int *, Int * );
633void pchemv_ ( F_CHAR_T, Int *, float *,
634 float *, Int *, Int *,
635 Int *, float *, Int *,
636 Int *, Int *, Int *,
637 float *, float *, Int *,
638 Int *, Int *, Int * );
639void pzhemv_ ( F_CHAR_T, Int *, double *,
640 double *, Int *, Int *,
641 Int *, double *, Int *,
642 Int *, Int *, Int *,
643 double *, double *, Int *,
644 Int *, Int *, Int * );
645
646void psasymv_ ( F_CHAR_T, Int *, float *,
647 float *, Int *, Int *,
648 Int *, float *, Int *,
649 Int *, Int *, Int *,
650 float *, float *, Int *,
651 Int *, Int *, Int * );
652void pdasymv_ ( F_CHAR_T, Int *, double *,
653 double *, Int *, Int *,
654 Int *, double *, Int *,
655 Int *, Int *, Int *,
656 double *, double *, Int *,
657 Int *, Int *, Int * );
658void pcahemv_ ( F_CHAR_T, Int *, float *,
659 float *, Int *, Int *,
660 Int *, float *, Int *,
661 Int *, Int *, Int *,
662 float *, float *, Int *,
663 Int *, Int *, Int * );
664void pzahemv_ ( F_CHAR_T, Int *, double *,
665 double *, Int *, Int *,
666 Int *, double *, Int *,
667 Int *, Int *, Int *,
668 double *, double *, Int *,
669 Int *, Int *, Int * );
670
671void pssyr_ ( F_CHAR_T, Int *, float *,
672 float *, Int *, Int *,
673 Int *, Int *, float *,
674 Int *, Int *, Int * );
675void pdsyr_ ( F_CHAR_T, Int *, double *,
676 double *, Int *, Int *,
677 Int *, Int *, double *,
678 Int *, Int *, Int * );
679void pcher_ ( F_CHAR_T, Int *, float *,
680 float *, Int *, Int *,
681 Int *, Int *, float *,
682 Int *, Int *, Int * );
683void pzher_ ( F_CHAR_T, Int *, double *,
684 double *, Int *, Int *,
685 Int *, Int *, double *,
686 Int *, Int *, Int * );
687
688void pssyr2_ ( F_CHAR_T, Int *, float *,
689 float *, Int *, Int *,
690 Int *, Int *, float *,
691 Int *, Int *, Int *,
692 Int *, float *, Int *,
693 Int *, Int * );
694void pdsyr2_ ( F_CHAR_T, Int *, double *,
695 double *, Int *, Int *,
696 Int *, Int *, double *,
697 Int *, Int *, Int *,
698 Int *, double *, Int *,
699 Int *, Int * );
700void pcher2_ ( F_CHAR_T, Int *, float *,
701 float *, Int *, Int *,
702 Int *, Int *, float *,
703 Int *, Int *, Int *,
704 Int *, float *, Int *,
705 Int *, Int * );
706void pzher2_ ( F_CHAR_T, Int *, double *,
707 double *, Int *, Int *,
708 Int *, Int *, double *,
709 Int *, Int *, Int *,
710 Int *, double *, Int *,
711 Int *, Int * );
712
714 Int *, float *, Int *,
715 Int *, Int *, float *,
716 Int *, Int *, Int *,
717 Int * );
719 Int *, double *, Int *,
720 Int *, Int *, double *,
721 Int *, Int *, Int *,
722 Int * );
724 Int *, float *, Int *,
725 Int *, Int *, float *,
726 Int *, Int *, Int *,
727 Int * );
729 Int *, double *, Int *,
730 Int *, Int *, double *,
731 Int *, Int *, Int *,
732 Int * );
733
735 Int *, float *, float *,
736 Int *, Int *, Int *,
737 float *, Int *, Int *,
738 Int *, Int *, float *,
739 float *, Int *, Int *,
740 Int *, Int * );
742 Int *, double *, double *,
743 Int *, Int *, Int *,
744 double *, Int *, Int *,
745 Int *, Int *, double *,
746 double *, Int *, Int *,
747 Int *, Int * );
749 Int *, float *, float *,
750 Int *, Int *, Int *,
751 float *, Int *, Int *,
752 Int *, Int *, float *,
753 float *, Int *, Int *,
754 Int *, Int * );
756 Int *, double *, double *,
757 Int *, Int *, Int *,
758 double *, Int *, Int *,
759 Int *, Int *, double *,
760 double *, Int *, Int *,
761 Int *, Int * );
762
764 Int *, float *, Int *,
765 Int *, Int *, float *,
766 Int *, Int *, Int *,
767 Int * );
769 Int *, double *, Int *,
770 Int *, Int *, double *,
771 Int *, Int *, Int *,
772 Int * );
774 Int *, float *, Int *,
775 Int *, Int *, float *,
776 Int *, Int *, Int *,
777 Int * );
779 Int *, double *, Int *,
780 Int *, Int *, double *,
781 Int *, Int *, Int *,
782 Int * );
783
784void psgeadd_ ( F_CHAR_T, Int *, Int *,
785 float *, float *, Int *,
786 Int *, Int *, float *,
787 float *, Int *, Int *,
788 Int * );
789void pdgeadd_ ( F_CHAR_T, Int *, Int *,
790 double *, double *, Int *,
791 Int *, Int *, double *,
792 double *, Int *, Int *,
793 Int * );
794void pcgeadd_ ( F_CHAR_T, Int *, Int *,
795 float *, float *, Int *,
796 Int *, Int *, float *,
797 float *, Int *, Int *,
798 Int * );
799void pzgeadd_ ( F_CHAR_T, Int *, Int *,
800 double *, double *, Int *,
801 Int *, Int *, double *,
802 double *, Int *, Int *,
803 Int * );
804
805void psgemm_ ( F_CHAR_T, F_CHAR_T, Int *,
806 Int *, Int *, float *,
807 float *, Int *, Int *,
808 Int *, float *, Int *,
809 Int *, Int *, float *,
810 float *, Int *, Int *,
811 Int * );
812void pdgemm_ ( F_CHAR_T, F_CHAR_T, Int *,
813 Int *, Int *, double *,
814 double *, Int *, Int *,
815 Int *, double *, Int *,
816 Int *, Int *, double *,
817 double *, Int *, Int *,
818 Int * );
819void pcgemm_ ( F_CHAR_T, F_CHAR_T, Int *,
820 Int *, Int *, float *,
821 float *, Int *, Int *,
822 Int *, float *, Int *,
823 Int *, Int *, float *,
824 float *, Int *, Int *,
825 Int * );
826void pzgemm_ ( F_CHAR_T, F_CHAR_T, Int *,
827 Int *, Int *, double *,
828 double *, Int *, Int *,
829 Int *, double *, Int *,
830 Int *, Int *, double *,
831 double *, Int *, Int *,
832 Int * );
833
834void pssymm_ ( F_CHAR_T, F_CHAR_T, Int *,
835 Int *, float *, float *,
836 Int *, Int *, Int *,
837 float *, Int *, Int *,
838 Int *, float *, float *,
839 Int *, Int *, Int * );
840void pdsymm_ ( F_CHAR_T, F_CHAR_T, Int *,
841 Int *, double *, double *,
842 Int *, Int *, Int *,
843 double *, Int *, Int *,
844 Int *, double *, double *,
845 Int *, Int *, Int * );
846void pcsymm_ ( F_CHAR_T, F_CHAR_T, Int *,
847 Int *, float *, float *,
848 Int *, Int *, Int *,
849 float *, Int *, Int *,
850 Int *, float *, float *,
851 Int *, Int *, Int * );
852void pzsymm_ ( F_CHAR_T, F_CHAR_T, Int *,
853 Int *, double *, double *,
854 Int *, Int *, Int *,
855 double *, Int *, Int *,
856 Int *, double *, double *,
857 Int *, Int *, Int * );
858void pchemm_ ( F_CHAR_T, F_CHAR_T, Int *,
859 Int *, float *, float *,
860 Int *, Int *, Int *,
861 float *, Int *, Int *,
862 Int *, float *, float *,
863 Int *, Int *, Int * );
864void pzhemm_ ( F_CHAR_T, F_CHAR_T, Int *,
865 Int *, double *, double *,
866 Int *, Int *, Int *,
867 double *, Int *, Int *,
868 Int *, double *, double *,
869 Int *, Int *, Int * );
870
871void pssyr2k_ ( F_CHAR_T, F_CHAR_T, Int *,
872 Int *, float *, float *,
873 Int *, Int *, Int *,
874 float *, Int *, Int *,
875 Int *, float *, float *,
876 Int *, Int *, Int * );
877void pdsyr2k_ ( F_CHAR_T, F_CHAR_T, Int *,
878 Int *, double *, double *,
879 Int *, Int *, Int *,
880 double *, Int *, Int *,
881 Int *, double *, double *,
882 Int *, Int *, Int * );
883void pcsyr2k_ ( F_CHAR_T, F_CHAR_T, Int *,
884 Int *, float *, float *,
885 Int *, Int *, Int *,
886 float *, Int *, Int *,
887 Int *, float *, float *,
888 Int *, Int *, Int * );
889void pzsyr2k_ ( F_CHAR_T, F_CHAR_T, Int *,
890 Int *, double *, double *,
891 Int *, Int *, Int *,
892 double *, Int *, Int *,
893 Int *, double *, double *,
894 Int *, Int *, Int * );
895void pcher2k_ ( F_CHAR_T, F_CHAR_T, Int *,
896 Int *, float *, float *,
897 Int *, Int *, Int *,
898 float *, Int *, Int *,
899 Int *, float *, float *,
900 Int *, Int *, Int * );
901void pzher2k_ ( F_CHAR_T, F_CHAR_T, Int *,
902 Int *, double *, double *,
903 Int *, Int *, Int *,
904 double *, Int *, Int *,
905 Int *, double *, double *,
906 Int *, Int *, Int * );
907
908void pssyrk_ ( F_CHAR_T, F_CHAR_T, Int *,
909 Int *, float *, float *,
910 Int *, Int *, Int *,
911 float *, float *, Int *,
912 Int *, Int * );
913void pdsyrk_ ( F_CHAR_T, F_CHAR_T, Int *,
914 Int *, double *, double *,
915 Int *, Int *, Int *,
916 double *, double *, Int *,
917 Int *, Int * );
918void pcsyrk_ ( F_CHAR_T, F_CHAR_T, Int *,
919 Int *, float *, float *,
920 Int *, Int *, Int *,
921 float *, float *, Int *,
922 Int *, Int * );
923void pzsyrk_ ( F_CHAR_T, F_CHAR_T, Int *,
924 Int *, double *, double *,
925 Int *, Int *, Int *,
926 double *, double *, Int *,
927 Int *, Int * );
928void pcherk_ ( F_CHAR_T, F_CHAR_T, Int *,
929 Int *, float *, float *,
930 Int *, Int *, Int *,
931 float *, float *, Int *,
932 Int *, Int * );
933void pzherk_ ( F_CHAR_T, F_CHAR_T, Int *,
934 Int *, double *, double *,
935 Int *, Int *, Int *,
936 double *, double *, Int *,
937 Int *, Int * );
938
939void pstradd_ ( F_CHAR_T, F_CHAR_T, Int *,
940 Int *, float *, float *,
941 Int *, Int *, Int *,
942 float *, float *, Int *,
943 Int *, Int * );
944void pdtradd_ ( F_CHAR_T, F_CHAR_T, Int *,
945 Int *, double *, double *,
946 Int *, Int *, Int *,
947 double *, double *, Int *,
948 Int *, Int * );
949void pctradd_ ( F_CHAR_T, F_CHAR_T, Int *,
950 Int *, float *, float *,
951 Int *, Int *, Int *,
952 float *, float *, Int *,
953 Int *, Int * );
954void pztradd_ ( F_CHAR_T, F_CHAR_T, Int *,
955 Int *, double *, double *,
956 Int *, Int *, Int *,
957 double *, double *, Int *,
958 Int *, Int * );
959
960void pstran_ ( Int *, Int *, float *,
961 float *, Int *, Int *,
962 Int *, float *, float *,
963 Int *, Int *, Int * );
964void pdtran_ ( Int *, Int *, double *,
965 double *, Int *, Int *,
966 Int *, double *, double *,
967 Int *, Int *, Int * );
968void pctranc_ ( Int *, Int *, float *,
969 float *, Int *, Int *,
970 Int *, float *, float *,
971 Int *, Int *, Int * );
972void pztranc_ ( Int *, Int *, double *,
973 double *, Int *, Int *,
974 Int *, double *, double *,
975 Int *, Int *, Int * );
976void pctranu_ ( Int *, Int *, float *,
977 float *, Int *, Int *,
978 Int *, float *, float *,
979 Int *, Int *, Int * );
980void pztranu_ ( Int *, Int *, double *,
981 double *, Int *, Int *,
982 Int *, double *, double *,
983 Int *, Int *, Int * );
984
986 F_CHAR_T, Int *, Int *,
987 float *, float *, Int *,
988 Int *, Int *, float *,
989 Int *, Int *, Int * );
991 F_CHAR_T, Int *, Int *,
992 double *, double *, Int *,
993 Int *, Int *, double *,
994 Int *, Int *, Int * );
996 F_CHAR_T, Int *, Int *,
997 float *, float *, Int *,
998 Int *, Int *, float *,
999 Int *, Int *, Int * );
1001 F_CHAR_T, Int *, Int *,
1002 double *, double *, Int *,
1003 Int *, Int *, double *,
1004 Int *, Int *, Int * );
1005
1007 F_CHAR_T, Int *, Int *,
1008 float *, float *, Int *,
1009 Int *, Int *, float *,
1010 Int *, Int *, Int * );
1012 F_CHAR_T, Int *, Int *,
1013 double *, double *, Int *,
1014 Int *, Int *, double *,
1015 Int *, Int *, Int * );
1017 F_CHAR_T, Int *, Int *,
1018 float *, float *, Int *,
1019 Int *, Int *, float *,
1020 Int *, Int *, Int * );
1022 F_CHAR_T, Int *, Int *,
1023 double *, double *, Int *,
1024 Int *, Int *, double *,
1025 Int *, Int *, Int * );
1026#else
1027
1028void PB_freebuf_ ();
1029void PB_topget_ ();
1030void PB_topset_ ();
1031
1032void picopy_ ();
1033void pscopy_ ();
1034void pdcopy_ ();
1035void pccopy_ ();
1036void pzcopy_ ();
1037
1038void psswap_ ();
1039void pdswap_ ();
1040void pcswap_ ();
1041void pzswap_ ();
1042
1043void psaxpy_ ();
1044void pdaxpy_ ();
1045void pcaxpy_ ();
1046void pzaxpy_ ();
1047
1048void psscal_ ();
1049void pdscal_ ();
1050void pcscal_ ();
1051void pcsscal_ ();
1052void pzscal_ ();
1053void pzdscal_ ();
1054
1055void psasum_ ();
1056void pdasum_ ();
1057void pscasum_ ();
1058void pdzasum_ ();
1059
1060void psnrm2_ ();
1061void pdnrm2_ ();
1062void pscnrm2_ ();
1063void pdznrm2_ ();
1064
1065void psdot_ ();
1066void pddot_ ();
1067void pcdotc_ ();
1068void pcdotu_ ();
1069void pzdotc_ ();
1070void pzdotu_ ();
1071
1072void psamax_ ();
1073void pdamax_ ();
1074void pcamax_ ();
1075void pzamax_ ();
1076
1077void psgemv_ ();
1078void pdgemv_ ();
1079void pcgemv_ ();
1080void pzgemv_ ();
1081
1082void psagemv_ ();
1083void pdagemv_ ();
1084void pcagemv_ ();
1085void pzagemv_ ();
1086
1087void psger_ ();
1088void pdger_ ();
1089void pcgerc_ ();
1090void pcgeru_ ();
1091void pzgerc_ ();
1092void pzgeru_ ();
1093
1094void pssymv_ ();
1095void pdsymv_ ();
1096void pchemv_ ();
1097void pzhemv_ ();
1098
1099void psasymv_ ();
1100void pdasymv_ ();
1101void pcahemv_ ();
1102void pzahemv_ ();
1103
1104void pssyr_ ();
1105void pdsyr_ ();
1106void pcher_ ();
1107void pzher_ ();
1108
1109void pssyr2_ ();
1110void pdsyr2_ ();
1111void pcher2_ ();
1112void pzher2_ ();
1113
1114void pstrmv_ ();
1115void pdtrmv_ ();
1116void pctrmv_ ();
1117void pztrmv_ ();
1118
1119void psatrmv_ ();
1120void pdatrmv_ ();
1121void pcatrmv_ ();
1122void pzatrmv_ ();
1123
1124void pstrsv_ ();
1125void pdtrsv_ ();
1126void pctrsv_ ();
1127void pztrsv_ ();
1128
1129void psgeadd_ ();
1130void pdgeadd_ ();
1131void pcgeadd_ ();
1132void pzgeadd_ ();
1133
1134void psgemm_ ();
1135void pdgemm_ ();
1136void pcgemm_ ();
1137void pzgemm_ ();
1138
1139void pssymm_ ();
1140void pdsymm_ ();
1141void pcsymm_ ();
1142void pchemm_ ();
1143void pzsymm_ ();
1144void pzhemm_ ();
1145
1146void pssyr2k_ ();
1147void pdsyr2k_ ();
1148void pcsyr2k_ ();
1149void pcher2k_ ();
1150void pzsyr2k_ ();
1151void pzher2k_ ();
1152
1153void pssyrk_ ();
1154void pdsyrk_ ();
1155void pcsyrk_ ();
1156void pcherk_ ();
1157void pzsyrk_ ();
1158void pzherk_ ();
1159
1160void pstradd_ ();
1161void pdtradd_ ();
1162void pctradd_ ();
1163void pztradd_ ();
1164
1165void pstran_ ();
1166void pdtran_ ();
1167void pctranc_ ();
1168void pctranu_ ();
1169void pztranc_ ();
1170void pztranu_ ();
1171
1172void pstrmm_ ();
1173void pdtrmm_ ();
1174void pctrmm_ ();
1175void pztrmm_ ();
1176
1177void pstrsm_ ();
1178void pdtrsm_ ();
1179void pctrsm_ ();
1180void pztrsm_ ();
1181
1182#endif
#define Int
Definition Bconfig.h:22
char * F_CHAR_T
Definition pblas.h:122
#define pcgeadd_
Definition PBpblas.h:153
#define pdasymv_
Definition PBpblas.h:110
#define pcamax_
Definition PBpblas.h:91
#define pdasum_
Definition PBpblas.h:73
#define pdtradd_
Definition PBpblas.h:188
#define pdsymv_
Definition PBpblas.h:105
#define pcherk_
Definition PBpblas.h:176
#define pcdotc_
Definition PBpblas.h:86
#define pcdotu_
Definition PBpblas.h:84
#define pdscal_
Definition PBpblas.h:66
#define pcgemm_
Definition PBpblas.h:148
#define pzher_
Definition PBpblas.h:139
#define psasum_
Definition PBpblas.h:72
#define pssymm_
Definition PBpblas.h:156
#define pzdotc_
Definition PBpblas.h:87
#define pcsyr2k_
Definition PBpblas.h:182
#define pdatrmv_
Definition PBpblas.h:120
#define pdnrm2_
Definition PBpblas.h:78
#define pssymv_
Definition PBpblas.h:104
#define PB_topget_
Definition PBpblas.h:30
#define psgemv_
Definition PBpblas.h:94
#define pzgemv_
Definition PBpblas.h:97
#define pzgeru_
Definition PBpblas.h:132
#define pzgerc_
Definition PBpblas.h:134
#define pdswap_
Definition PBpblas.h:56
#define pchemv_
Definition PBpblas.h:106
#define pcher_
Definition PBpblas.h:138
#define pssyr2_
Definition PBpblas.h:141
#define psswap_
Definition PBpblas.h:55
#define pzher2_
Definition PBpblas.h:144
#define pdtrsv_
Definition PBpblas.h:125
#define pdgemv_
Definition PBpblas.h:95
#define pdtrmm_
Definition PBpblas.h:164
#define pzahemv_
Definition PBpblas.h:112
#define pdger_
Definition PBpblas.h:130
#define pscnrm2_
Definition PBpblas.h:79
#define pctrsm_
Definition PBpblas.h:170
#define pzhemv_
Definition PBpblas.h:107
#define pctranc_
Definition PBpblas.h:196
#define pzsymm_
Definition PBpblas.h:160
#define pzgeadd_
Definition PBpblas.h:154
#define pcscal_
Definition PBpblas.h:67
#define PB_freebuf_
Definition PBpblas.h:29
#define pctrmm_
Definition PBpblas.h:165
#define PB_topset_
Definition PBpblas.h:31
#define psger_
Definition PBpblas.h:129
#define pdsyrk_
Definition PBpblas.h:174
#define pstradd_
Definition PBpblas.h:187
#define pcswap_
Definition PBpblas.h:57
#define pdtrsm_
Definition PBpblas.h:169
#define psnrm2_
Definition PBpblas.h:77
#define pdtran_
Definition PBpblas.h:193
#define psatrmv_
Definition PBpblas.h:119
#define pddot_
Definition PBpblas.h:83
#define pcher2_
Definition PBpblas.h:143
#define pcgemv_
Definition PBpblas.h:96
#define pstrsm_
Definition PBpblas.h:168
#define picopy_
Definition PBpblas.h:49
#define psgeadd_
Definition PBpblas.h:151
#define pdzasum_
Definition PBpblas.h:75
#define pscasum_
Definition PBpblas.h:74
#define psscal_
Definition PBpblas.h:65
#define pzcopy_
Definition PBpblas.h:53
#define pzherk_
Definition PBpblas.h:178
#define pztranc_
Definition PBpblas.h:197
#define pccopy_
Definition PBpblas.h:52
#define pztrmm_
Definition PBpblas.h:166
#define pztrmv_
Definition PBpblas.h:117
#define pdznrm2_
Definition PBpblas.h:80
#define pzher2k_
Definition PBpblas.h:185
#define pztranu_
Definition PBpblas.h:195
#define pdsyr_
Definition PBpblas.h:137
#define pcahemv_
Definition PBpblas.h:111
#define pdgemm_
Definition PBpblas.h:147
#define pzgemm_
Definition PBpblas.h:149
#define pzamax_
Definition PBpblas.h:92
#define psasymv_
Definition PBpblas.h:109
#define psdot_
Definition PBpblas.h:82
#define pzswap_
Definition PBpblas.h:58
#define pctradd_
Definition PBpblas.h:189
#define pstrsv_
Definition PBpblas.h:124
#define pzaxpy_
Definition PBpblas.h:63
#define pdsyr2_
Definition PBpblas.h:142
#define pcatrmv_
Definition PBpblas.h:121
#define pztrsv_
Definition PBpblas.h:127
#define pzsyrk_
Definition PBpblas.h:177
#define psgemm_
Definition PBpblas.h:146
#define pcgeru_
Definition PBpblas.h:131
#define pdamax_
Definition PBpblas.h:90
#define pdaxpy_
Definition PBpblas.h:61
#define pcagemv_
Definition PBpblas.h:101
#define pctrsv_
Definition PBpblas.h:126
#define pcsyrk_
Definition PBpblas.h:175
#define pstrmv_
Definition PBpblas.h:114
#define pdsymm_
Definition PBpblas.h:157
#define pzhemm_
Definition PBpblas.h:161
#define pctranu_
Definition PBpblas.h:194
#define pdgeadd_
Definition PBpblas.h:152
#define pzatrmv_
Definition PBpblas.h:122
#define pzdotu_
Definition PBpblas.h:85
#define pctrmv_
Definition PBpblas.h:116
#define pdtrmv_
Definition PBpblas.h:115
#define pcsscal_
Definition PBpblas.h:69
#define pchemm_
Definition PBpblas.h:159
#define pztrsm_
Definition PBpblas.h:171
#define psamax_
Definition PBpblas.h:89
#define pssyr2k_
Definition PBpblas.h:180
#define pzsyr2k_
Definition PBpblas.h:184
#define pcsymm_
Definition PBpblas.h:158
#define pssyrk_
Definition PBpblas.h:173
#define pzagemv_
Definition PBpblas.h:102
#define psagemv_
Definition PBpblas.h:99
#define pscopy_
Definition PBpblas.h:50
#define pstrmm_
Definition PBpblas.h:163
#define pdagemv_
Definition PBpblas.h:100
#define pcher2k_
Definition PBpblas.h:183
#define pztradd_
Definition PBpblas.h:190
#define pstran_
Definition PBpblas.h:192
#define pdcopy_
Definition PBpblas.h:51
#define pzscal_
Definition PBpblas.h:68
#define pdsyr2k_
Definition PBpblas.h:181
#define pzdscal_
Definition PBpblas.h:70
#define pcaxpy_
Definition PBpblas.h:62
#define pcgerc_
Definition PBpblas.h:133
#define pssyr_
Definition PBpblas.h:136
#define psaxpy_
Definition PBpblas.h:60