ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
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 
380 void PB_freebuf_ ( void );
381 
382 void PB_topget_ ( int *, F_CHAR_T, F_CHAR_T,
383  F_CHAR_T );
384 
385 void PB_topset_ ( int *, F_CHAR_T, F_CHAR_T,
386  F_CHAR_T );
387 
388 void picopy_ ( int *, int *, int *,
389  int *, int *, int *,
390  int *, int *, int *,
391  int *, int * );
392 void pscopy_ ( int *, float *, int *,
393  int *, int *, int *,
394  float *, int *, int *,
395  int *, int * );
396 void pdcopy_ ( int *, double *, int *,
397  int *, int *, int *,
398  double *, int *, int *,
399  int *, int * );
400 void pccopy_ ( int *, float *, int *,
401  int *, int *, int *,
402  float *, int *, int *,
403  int *, int * );
404 void pzcopy_ ( int *, double *, int *,
405  int *, int *, int *,
406  double *, int *, int *,
407  int *, int * );
408 
409 void psswap_ ( int *, float *, int *,
410  int *, int *, int *,
411  float *, int *, int *,
412  int *, int * );
413 void pdswap_ ( int *, double *, int *,
414  int *, int *, int *,
415  double *, int *, int *,
416  int *, int * );
417 void pcswap_ ( int *, float *, int *,
418  int *, int *, int *,
419  float *, int *, int *,
420  int *, int * );
421 void pzswap_ ( int *, double *, int *,
422  int *, int *, int *,
423  double *, int *, int *,
424  int *, int * );
425 
426 void psaxpy_ ( int *, float *, float *,
427  int *, int *, int *,
428  int *, float *, int *,
429  int *, int *, int * );
430 void pdaxpy_ ( int *, double *, double *,
431  int *, int *, int *,
432  int *, double *, int *,
433  int *, int *, int * );
434 void pcaxpy_ ( int *, float *, float *,
435  int *, int *, int *,
436  int *, float *, int *,
437  int *, int *, int * );
438 void pzaxpy_ ( int *, double *, double *,
439  int *, int *, int *,
440  int *, double *, int *,
441  int *, int *, int * );
442 
443 void psscal_ ( int *, float *, float *,
444  int *, int *, int *,
445  int * );
446 void pdscal_ ( int *, double *, double *,
447  int *, int *, int *,
448  int * );
449 void pcscal_ ( int *, float *, float *,
450  int *, int *, int *,
451  int * );
452 void pcsscal_ ( int *, float *, float *,
453  int *, int *, int *,
454  int * );
455 void pzscal_ ( int *, double *, double *,
456  int *, int *, int *,
457  int * );
458 void pzdscal_ ( int *, double *, double *,
459  int *, int *, int *,
460  int * );
461 
462 void psasum_ ( int *, float *, float *,
463  int *, int *, int *,
464  int * );
465 void pdasum_ ( int *, double *, double *,
466  int *, int *, int *,
467  int * );
468 void pscasum_ ( int *, float *, float *,
469  int *, int *, int *,
470  int * );
471 void pdzasum_ ( int *, double *, double *,
472  int *, int *, int *,
473  int * );
474 
475 void psnrm2_ ( int *, float *, float *,
476  int *, int *, int *,
477  int * );
478 void pdnrm2_ ( int *, double *, double *,
479  int *, int *, int *,
480  int * );
481 void pscnrm2_ ( int *, float *, float *,
482  int *, int *, int *,
483  int * );
484 void pdznrm2_ ( int *, double *, double *,
485  int *, int *, int *,
486  int * );
487 
488 void psdot_ ( int *, float *, float *,
489  int *, int *, int *,
490  int *, float *, int *,
491  int *, int *, int * );
492 void pddot_ ( int *, double *, double *,
493  int *, int *, int *,
494  int *, double *, int *,
495  int *, int *, int * );
496 void pcdotc_ ( int *, float *, float *,
497  int *, int *, int *,
498  int *, float *, int *,
499  int *, int *, int * );
500 void pcdotu_ ( int *, float *, float *,
501  int *, int *, int *,
502  int *, float *, int *,
503  int *, int *, int * );
504 void pzdotc_ ( int *, double *, double *,
505  int *, int *, int *,
506  int *, double *, int *,
507  int *, int *, int * );
508 void pzdotu_ ( int *, double *, double *,
509  int *, int *, int *,
510  int *, double *, int *,
511  int *, int *, int * );
512 
513 void psamax_ ( int *, float *, int *,
514  float *, int *, int *,
515  int *, int * );
516 void pdamax_ ( int *, double *, int *,
517  double *, int *, int *,
518  int *, int * );
519 void pcamax_ ( int *, float *, int *,
520  float *, int *, int *,
521  int *, int * );
522 void pzamax_ ( int *, double *, int *,
523  double *, int *, int *,
524  int *, int * );
525 
526 void 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 * );
533 void 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 * );
540 void 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 * );
547 void 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 
555 void 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 * );
562 void 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 * );
569 void 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 * );
576 void 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 
584 void psger_ ( int *, int *, float *,
585  float *, int *, int *,
586  int *, int *, float *,
587  int *, int *, int *,
588  int *, float *, int *,
589  int *, int * );
590 void pdger_ ( int *, int *, double *,
591  double *, int *, int *,
592  int *, int *, double *,
593  int *, int *, int *,
594  int *, double *, int *,
595  int *, int * );
596 void pcgerc_ ( int *, int *, float *,
597  float *, int *, int *,
598  int *, int *, float *,
599  int *, int *, int *,
600  int *, float *, int *,
601  int *, int * );
602 void pcgeru_ ( int *, int *, float *,
603  float *, int *, int *,
604  int *, int *, float *,
605  int *, int *, int *,
606  int *, float *, int *,
607  int *, int * );
608 void pzgerc_ ( int *, int *, double *,
609  double *, int *, int *,
610  int *, int *, double *,
611  int *, int *, int *,
612  int *, double *, int *,
613  int *, int * );
614 void pzgeru_ ( int *, int *, double *,
615  double *, int *, int *,
616  int *, int *, double *,
617  int *, int *, int *,
618  int *, double *, int *,
619  int *, int * );
620 
621 void 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 * );
627 void 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 * );
633 void 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 * );
639 void 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 
646 void 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 * );
652 void 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 * );
658 void 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 * );
664 void 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 
671 void pssyr_ ( F_CHAR_T, int *, float *,
672  float *, int *, int *,
673  int *, int *, float *,
674  int *, int *, int * );
675 void pdsyr_ ( F_CHAR_T, int *, double *,
676  double *, int *, int *,
677  int *, int *, double *,
678  int *, int *, int * );
679 void pcher_ ( F_CHAR_T, int *, float *,
680  float *, int *, int *,
681  int *, int *, float *,
682  int *, int *, int * );
683 void pzher_ ( F_CHAR_T, int *, double *,
684  double *, int *, int *,
685  int *, int *, double *,
686  int *, int *, int * );
687 
688 void 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 * );
694 void 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 * );
700 void 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 * );
706 void 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 
713 void pstrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
714  int *, float *, int *,
715  int *, int *, float *,
716  int *, int *, int *,
717  int * );
718 void pdtrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
719  int *, double *, int *,
720  int *, int *, double *,
721  int *, int *, int *,
722  int * );
723 void pctrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
724  int *, float *, int *,
725  int *, int *, float *,
726  int *, int *, int *,
727  int * );
728 void pztrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
729  int *, double *, int *,
730  int *, int *, double *,
731  int *, int *, int *,
732  int * );
733 
734 void psatrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
735  int *, float *, float *,
736  int *, int *, int *,
737  float *, int *, int *,
738  int *, int *, float *,
739  float *, int *, int *,
740  int *, int * );
741 void pdatrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
742  int *, double *, double *,
743  int *, int *, int *,
744  double *, int *, int *,
745  int *, int *, double *,
746  double *, int *, int *,
747  int *, int * );
748 void pcatrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
749  int *, float *, float *,
750  int *, int *, int *,
751  float *, int *, int *,
752  int *, int *, float *,
753  float *, int *, int *,
754  int *, int * );
755 void pzatrmv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
756  int *, double *, double *,
757  int *, int *, int *,
758  double *, int *, int *,
759  int *, int *, double *,
760  double *, int *, int *,
761  int *, int * );
762 
763 void pstrsv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
764  int *, float *, int *,
765  int *, int *, float *,
766  int *, int *, int *,
767  int * );
768 void pdtrsv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
769  int *, double *, int *,
770  int *, int *, double *,
771  int *, int *, int *,
772  int * );
773 void pctrsv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
774  int *, float *, int *,
775  int *, int *, float *,
776  int *, int *, int *,
777  int * );
778 void pztrsv_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
779  int *, double *, int *,
780  int *, int *, double *,
781  int *, int *, int *,
782  int * );
783 
784 void psgeadd_ ( F_CHAR_T, int *, int *,
785  float *, float *, int *,
786  int *, int *, float *,
787  float *, int *, int *,
788  int * );
789 void pdgeadd_ ( F_CHAR_T, int *, int *,
790  double *, double *, int *,
791  int *, int *, double *,
792  double *, int *, int *,
793  int * );
794 void pcgeadd_ ( F_CHAR_T, int *, int *,
795  float *, float *, int *,
796  int *, int *, float *,
797  float *, int *, int *,
798  int * );
799 void pzgeadd_ ( F_CHAR_T, int *, int *,
800  double *, double *, int *,
801  int *, int *, double *,
802  double *, int *, int *,
803  int * );
804 
805 void 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 * );
812 void 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 * );
819 void 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 * );
826 void 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 
834 void 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 * );
840 void 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 * );
846 void 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 * );
852 void 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 * );
858 void 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 * );
864 void 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 
871 void 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 * );
877 void 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 * );
883 void 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 * );
889 void 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 * );
895 void 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 * );
901 void 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 
908 void pssyrk_ ( F_CHAR_T, F_CHAR_T, int *,
909  int *, float *, float *,
910  int *, int *, int *,
911  float *, float *, int *,
912  int *, int * );
913 void pdsyrk_ ( F_CHAR_T, F_CHAR_T, int *,
914  int *, double *, double *,
915  int *, int *, int *,
916  double *, double *, int *,
917  int *, int * );
918 void pcsyrk_ ( F_CHAR_T, F_CHAR_T, int *,
919  int *, float *, float *,
920  int *, int *, int *,
921  float *, float *, int *,
922  int *, int * );
923 void pzsyrk_ ( F_CHAR_T, F_CHAR_T, int *,
924  int *, double *, double *,
925  int *, int *, int *,
926  double *, double *, int *,
927  int *, int * );
928 void pcherk_ ( F_CHAR_T, F_CHAR_T, int *,
929  int *, float *, float *,
930  int *, int *, int *,
931  float *, float *, int *,
932  int *, int * );
933 void pzherk_ ( F_CHAR_T, F_CHAR_T, int *,
934  int *, double *, double *,
935  int *, int *, int *,
936  double *, double *, int *,
937  int *, int * );
938 
939 void pstradd_ ( F_CHAR_T, F_CHAR_T, int *,
940  int *, float *, float *,
941  int *, int *, int *,
942  float *, float *, int *,
943  int *, int * );
944 void pdtradd_ ( F_CHAR_T, F_CHAR_T, int *,
945  int *, double *, double *,
946  int *, int *, int *,
947  double *, double *, int *,
948  int *, int * );
949 void pctradd_ ( F_CHAR_T, F_CHAR_T, int *,
950  int *, float *, float *,
951  int *, int *, int *,
952  float *, float *, int *,
953  int *, int * );
954 void pztradd_ ( F_CHAR_T, F_CHAR_T, int *,
955  int *, double *, double *,
956  int *, int *, int *,
957  double *, double *, int *,
958  int *, int * );
959 
960 void pstran_ ( int *, int *, float *,
961  float *, int *, int *,
962  int *, float *, float *,
963  int *, int *, int * );
964 void pdtran_ ( int *, int *, double *,
965  double *, int *, int *,
966  int *, double *, double *,
967  int *, int *, int * );
968 void pctranc_ ( int *, int *, float *,
969  float *, int *, int *,
970  int *, float *, float *,
971  int *, int *, int * );
972 void pztranc_ ( int *, int *, double *,
973  double *, int *, int *,
974  int *, double *, double *,
975  int *, int *, int * );
976 void pctranu_ ( int *, int *, float *,
977  float *, int *, int *,
978  int *, float *, float *,
979  int *, int *, int * );
980 void pztranu_ ( int *, int *, double *,
981  double *, int *, int *,
982  int *, double *, double *,
983  int *, int *, int * );
984 
985 void pstrmm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
986  F_CHAR_T, int *, int *,
987  float *, float *, int *,
988  int *, int *, float *,
989  int *, int *, int * );
990 void pdtrmm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
991  F_CHAR_T, int *, int *,
992  double *, double *, int *,
993  int *, int *, double *,
994  int *, int *, int * );
995 void pctrmm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
996  F_CHAR_T, int *, int *,
997  float *, float *, int *,
998  int *, int *, float *,
999  int *, int *, int * );
1000 void pztrmm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
1001  F_CHAR_T, int *, int *,
1002  double *, double *, int *,
1003  int *, int *, double *,
1004  int *, int *, int * );
1005 
1006 void pstrsm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
1007  F_CHAR_T, int *, int *,
1008  float *, float *, int *,
1009  int *, int *, float *,
1010  int *, int *, int * );
1011 void pdtrsm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
1012  F_CHAR_T, int *, int *,
1013  double *, double *, int *,
1014  int *, int *, double *,
1015  int *, int *, int * );
1016 void pctrsm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
1017  F_CHAR_T, int *, int *,
1018  float *, float *, int *,
1019  int *, int *, float *,
1020  int *, int *, int * );
1021 void pztrsm_ ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
1022  F_CHAR_T, int *, int *,
1023  double *, double *, int *,
1024  int *, int *, double *,
1025  int *, int *, int * );
1026 #else
1027 
1028 void PB_freebuf_ ();
1029 void PB_topget_ ();
1030 void PB_topset_ ();
1031 
1032 void picopy_ ();
1033 void pscopy_ ();
1034 void pdcopy_ ();
1035 void pccopy_ ();
1036 void pzcopy_ ();
1037 
1038 void psswap_ ();
1039 void pdswap_ ();
1040 void pcswap_ ();
1041 void pzswap_ ();
1042 
1043 void psaxpy_ ();
1044 void pdaxpy_ ();
1045 void pcaxpy_ ();
1046 void pzaxpy_ ();
1047 
1048 void psscal_ ();
1049 void pdscal_ ();
1050 void pcscal_ ();
1051 void pcsscal_ ();
1052 void pzscal_ ();
1053 void pzdscal_ ();
1054 
1055 void psasum_ ();
1056 void pdasum_ ();
1057 void pscasum_ ();
1058 void pdzasum_ ();
1059 
1060 void psnrm2_ ();
1061 void pdnrm2_ ();
1062 void pscnrm2_ ();
1063 void pdznrm2_ ();
1064 
1065 void psdot_ ();
1066 void pddot_ ();
1067 void pcdotc_ ();
1068 void pcdotu_ ();
1069 void pzdotc_ ();
1070 void pzdotu_ ();
1071 
1072 void psamax_ ();
1073 void pdamax_ ();
1074 void pcamax_ ();
1075 void pzamax_ ();
1076 
1077 void psgemv_ ();
1078 void pdgemv_ ();
1079 void pcgemv_ ();
1080 void pzgemv_ ();
1081 
1082 void psagemv_ ();
1083 void pdagemv_ ();
1084 void pcagemv_ ();
1085 void pzagemv_ ();
1086 
1087 void psger_ ();
1088 void pdger_ ();
1089 void pcgerc_ ();
1090 void pcgeru_ ();
1091 void pzgerc_ ();
1092 void pzgeru_ ();
1093 
1094 void pssymv_ ();
1095 void pdsymv_ ();
1096 void pchemv_ ();
1097 void pzhemv_ ();
1098 
1099 void psasymv_ ();
1100 void pdasymv_ ();
1101 void pcahemv_ ();
1102 void pzahemv_ ();
1103 
1104 void pssyr_ ();
1105 void pdsyr_ ();
1106 void pcher_ ();
1107 void pzher_ ();
1108 
1109 void pssyr2_ ();
1110 void pdsyr2_ ();
1111 void pcher2_ ();
1112 void pzher2_ ();
1113 
1114 void pstrmv_ ();
1115 void pdtrmv_ ();
1116 void pctrmv_ ();
1117 void pztrmv_ ();
1118 
1119 void psatrmv_ ();
1120 void pdatrmv_ ();
1121 void pcatrmv_ ();
1122 void pzatrmv_ ();
1123 
1124 void pstrsv_ ();
1125 void pdtrsv_ ();
1126 void pctrsv_ ();
1127 void pztrsv_ ();
1128 
1129 void psgeadd_ ();
1130 void pdgeadd_ ();
1131 void pcgeadd_ ();
1132 void pzgeadd_ ();
1133 
1134 void psgemm_ ();
1135 void pdgemm_ ();
1136 void pcgemm_ ();
1137 void pzgemm_ ();
1138 
1139 void pssymm_ ();
1140 void pdsymm_ ();
1141 void pcsymm_ ();
1142 void pchemm_ ();
1143 void pzsymm_ ();
1144 void pzhemm_ ();
1145 
1146 void pssyr2k_ ();
1147 void pdsyr2k_ ();
1148 void pcsyr2k_ ();
1149 void pcher2k_ ();
1150 void pzsyr2k_ ();
1151 void pzher2k_ ();
1152 
1153 void pssyrk_ ();
1154 void pdsyrk_ ();
1155 void pcsyrk_ ();
1156 void pcherk_ ();
1157 void pzsyrk_ ();
1158 void pzherk_ ();
1159 
1160 void pstradd_ ();
1161 void pdtradd_ ();
1162 void pctradd_ ();
1163 void pztradd_ ();
1164 
1165 void pstran_ ();
1166 void pdtran_ ();
1167 void pctranc_ ();
1168 void pctranu_ ();
1169 void pztranc_ ();
1170 void pztranu_ ();
1171 
1172 void pstrmm_ ();
1173 void pdtrmm_ ();
1174 void pctrmm_ ();
1175 void pztrmm_ ();
1176 
1177 void pstrsm_ ();
1178 void pdtrsm_ ();
1179 void pctrsm_ ();
1180 void pztrsm_ ();
1181 
1182 #endif
pzsymm_
#define pzsymm_
Definition: PBpblas.h:325
pzgeadd_
#define pzgeadd_
Definition: PBpblas.h:314
pscnrm2_
#define pscnrm2_
Definition: PBpblas.h:244
pzsyrk_
#define pzsyrk_
Definition: PBpblas.h:342
pstrsm_
#define pstrsm_
Definition: PBpblas.h:333
pcherk_
#define pcherk_
Definition: PBpblas.h:341
pdzasum_
#define pdzasum_
Definition: PBpblas.h:240
pctranc_
#define pctranc_
Definition: PBpblas.h:361
pssyrk_
#define pssyrk_
Definition: PBpblas.h:338
pztrsv_
#define pztrsv_
Definition: PBpblas.h:292
pcamax_
#define pcamax_
Definition: PBpblas.h:256
pcsscal_
#define pcsscal_
Definition: PBpblas.h:234
pzgemm_
#define pzgemm_
Definition: PBpblas.h:319
pzgemv_
#define pzgemv_
Definition: PBpblas.h:262
pssymm_
#define pssymm_
Definition: PBpblas.h:321
psamax_
#define psamax_
Definition: PBpblas.h:254
psgemm_
#define psgemm_
Definition: PBpblas.h:316
pdsyr2k_
#define pdsyr2k_
Definition: PBpblas.h:346
pdatrmv_
#define pdatrmv_
Definition: PBpblas.h:285
pdsymm_
#define pdsymm_
Definition: PBpblas.h:322
pdger_
#define pdger_
Definition: PBpblas.h:295
pdnrm2_
#define pdnrm2_
Definition: PBpblas.h:243
psger_
#define psger_
Definition: PBpblas.h:294
pcher2_
#define pcher2_
Definition: PBpblas.h:308
pstrmv_
#define pstrmv_
Definition: PBpblas.h:279
pccopy_
#define pccopy_
Definition: PBpblas.h:217
PB_topset_
#define PB_topset_
Definition: PBpblas.h:370
pdaxpy_
#define pdaxpy_
Definition: PBpblas.h:226
pdamax_
#define pdamax_
Definition: PBpblas.h:255
psaxpy_
#define psaxpy_
Definition: PBpblas.h:225
pztrmv_
#define pztrmv_
Definition: PBpblas.h:282
pctradd_
#define pctradd_
Definition: PBpblas.h:354
psatrmv_
#define psatrmv_
Definition: PBpblas.h:284
pcdotc_
#define pcdotc_
Definition: PBpblas.h:251
pctrmm_
#define pctrmm_
Definition: PBpblas.h:330
pssymv_
#define pssymv_
Definition: PBpblas.h:269
pcgemm_
#define pcgemm_
Definition: PBpblas.h:318
pcdotu_
#define pcdotu_
Definition: PBpblas.h:249
pcahemv_
#define pcahemv_
Definition: PBpblas.h:276
pzdotc_
#define pzdotc_
Definition: PBpblas.h:252
pssyr_
#define pssyr_
Definition: PBpblas.h:301
psnrm2_
#define psnrm2_
Definition: PBpblas.h:242
pdtradd_
#define pdtradd_
Definition: PBpblas.h:353
pddot_
#define pddot_
Definition: PBpblas.h:248
pcgemv_
#define pcgemv_
Definition: PBpblas.h:261
pdtrmv_
#define pdtrmv_
Definition: PBpblas.h:280
pdgeadd_
#define pdgeadd_
Definition: PBpblas.h:312
pzswap_
#define pzswap_
Definition: PBpblas.h:223
pdsyrk_
#define pdsyrk_
Definition: PBpblas.h:339
pssyr2_
#define pssyr2_
Definition: PBpblas.h:306
pcatrmv_
#define pcatrmv_
Definition: PBpblas.h:286
pdtran_
#define pdtran_
Definition: PBpblas.h:358
F_CHAR_T
char * F_CHAR_T
Definition: pblas.h:118
PB_freebuf_
#define PB_freebuf_
Definition: PBpblas.h:368
pscasum_
#define pscasum_
Definition: PBpblas.h:239
pcsyrk_
#define pcsyrk_
Definition: PBpblas.h:340
pctranu_
#define pctranu_
Definition: PBpblas.h:359
pzgerc_
#define pzgerc_
Definition: PBpblas.h:299
pcgeadd_
#define pcgeadd_
Definition: PBpblas.h:313
pdtrsv_
#define pdtrsv_
Definition: PBpblas.h:290
pscopy_
#define pscopy_
Definition: PBpblas.h:215
pzhemv_
#define pzhemv_
Definition: PBpblas.h:272
pstrmm_
#define pstrmm_
Definition: PBpblas.h:328
pzhemm_
#define pzhemm_
Definition: PBpblas.h:326
pcscal_
#define pcscal_
Definition: PBpblas.h:232
pstran_
#define pstran_
Definition: PBpblas.h:357
pdsymv_
#define pdsymv_
Definition: PBpblas.h:270
pdsyr2_
#define pdsyr2_
Definition: PBpblas.h:307
pcsymm_
#define pcsymm_
Definition: PBpblas.h:323
pztranu_
#define pztranu_
Definition: PBpblas.h:360
psagemv_
#define psagemv_
Definition: PBpblas.h:264
pdsyr_
#define pdsyr_
Definition: PBpblas.h:302
pcgeru_
#define pcgeru_
Definition: PBpblas.h:296
psdot_
#define psdot_
Definition: PBpblas.h:247
pzcopy_
#define pzcopy_
Definition: PBpblas.h:218
PB_topget_
#define PB_topget_
Definition: PBpblas.h:369
pcher2k_
#define pcher2k_
Definition: PBpblas.h:348
pzscal_
#define pzscal_
Definition: PBpblas.h:233
pdswap_
#define pdswap_
Definition: PBpblas.h:221
pztrsm_
#define pztrsm_
Definition: PBpblas.h:336
pstrsv_
#define pstrsv_
Definition: PBpblas.h:289
pzagemv_
#define pzagemv_
Definition: PBpblas.h:267
pdtrsm_
#define pdtrsm_
Definition: PBpblas.h:334
pzher2_
#define pzher2_
Definition: PBpblas.h:309
pcher_
#define pcher_
Definition: PBpblas.h:303
pztradd_
#define pztradd_
Definition: PBpblas.h:355
pdscal_
#define pdscal_
Definition: PBpblas.h:231
pdagemv_
#define pdagemv_
Definition: PBpblas.h:265
psgeadd_
#define psgeadd_
Definition: PBpblas.h:311
pctrsv_
#define pctrsv_
Definition: PBpblas.h:291
pdcopy_
#define pdcopy_
Definition: PBpblas.h:216
pchemv_
#define pchemv_
Definition: PBpblas.h:271
pdgemm_
#define pdgemm_
Definition: PBpblas.h:317
pcgerc_
#define pcgerc_
Definition: PBpblas.h:298
pztrmm_
#define pztrmm_
Definition: PBpblas.h:331
pzherk_
#define pzherk_
Definition: PBpblas.h:343
pssyr2k_
#define pssyr2k_
Definition: PBpblas.h:345
pstradd_
#define pstradd_
Definition: PBpblas.h:352
pdasum_
#define pdasum_
Definition: PBpblas.h:238
pztranc_
#define pztranc_
Definition: PBpblas.h:362
pzahemv_
#define pzahemv_
Definition: PBpblas.h:277
pdasymv_
#define pdasymv_
Definition: PBpblas.h:275
pdgemv_
#define pdgemv_
Definition: PBpblas.h:260
pzdscal_
#define pzdscal_
Definition: PBpblas.h:235
pcaxpy_
#define pcaxpy_
Definition: PBpblas.h:227
pzdotu_
#define pzdotu_
Definition: PBpblas.h:250
pcswap_
#define pcswap_
Definition: PBpblas.h:222
pchemm_
#define pchemm_
Definition: PBpblas.h:324
pdznrm2_
#define pdznrm2_
Definition: PBpblas.h:245
pdtrmm_
#define pdtrmm_
Definition: PBpblas.h:329
pzsyr2k_
#define pzsyr2k_
Definition: PBpblas.h:349
picopy_
#define picopy_
Definition: PBpblas.h:214
psscal_
#define psscal_
Definition: PBpblas.h:230
pzher_
#define pzher_
Definition: PBpblas.h:304
pctrsm_
#define pctrsm_
Definition: PBpblas.h:335
psasum_
#define psasum_
Definition: PBpblas.h:237
pzgeru_
#define pzgeru_
Definition: PBpblas.h:297
psgemv_
#define psgemv_
Definition: PBpblas.h:259
psswap_
#define psswap_
Definition: PBpblas.h:220
pcagemv_
#define pcagemv_
Definition: PBpblas.h:266
pctrmv_
#define pctrmv_
Definition: PBpblas.h:281
pzaxpy_
#define pzaxpy_
Definition: PBpblas.h:228
pzatrmv_
#define pzatrmv_
Definition: PBpblas.h:287
pzher2k_
#define pzher2k_
Definition: PBpblas.h:350
pzamax_
#define pzamax_
Definition: PBpblas.h:257
psasymv_
#define psasymv_
Definition: PBpblas.h:274
pcsyr2k_
#define pcsyr2k_
Definition: PBpblas.h:347