ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
Cbt.c
Go to the documentation of this file.
1 #ifdef BTCINTFACE
2 #include "Cbt.h"
3 
4 void blacs_gridinit_(ConTxt, order, nprow, npcol)
5 int *ConTxt;
6 char *order;
7 int *nprow;
8 int *npcol;
9 {
10  void Cblacs_gridinit();
11 
12  Cblacs_gridinit(ConTxt, order, *nprow, *npcol);
13 }
14 
15 void blacs_setup_(mypnum, nprocs)
16 int *mypnum;
17 int *nprocs;
18 {
19  void Cblacs_setup();
20  Cblacs_setup(mypnum, nprocs);
21 }
22 
23 void blacs_pinfo_(mypnum, nprocs)
24 int *mypnum;
25 int *nprocs;
26 {
27  void Cblacs_pinfo();
28  Cblacs_pinfo(mypnum, nprocs);
29 }
30 
31 void blacs_gridmap_(ConTxt, usermap, ldup, nprow, npcol)
32 int *ConTxt;
33 int *usermap;
34 int *ldup;
35 int *nprow;
36 int *npcol;
37 {
38  void Cblacs_gridmap();
39  Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol);
40 }
41 
42 void blacs_gridexit_(ConTxt)
43 int *ConTxt;
44 {
45  void Cblacs_gridexit();
46  Cblacs_gridexit(*ConTxt);
47 }
48 
49 void blacs_abort_(ConTxt, ErrNo)
50 int *ConTxt;
51 int *ErrNo;
52 {
53  void Cblacs_abort();
54  Cblacs_abort(*ConTxt, *ErrNo);
55 }
56 
57 void blacs_exit_(NotDone)
58 int *NotDone;
59 {
60  void Cblacs_exit();
61  Cblacs_exit(*NotDone);
62 }
63 
64 void blacs_freebuff_(ConTxt, Wait)
65 int *ConTxt;
66 int *Wait;
67 {
68  void Cblacs_freebuff();
69  Cblacs_freebuff(*ConTxt, *Wait);
70 }
71 
72 void blacs_gridinfo_(ConTxt, nprow, npcol, myrow, mycol)
73 int *ConTxt;
74 int *nprow;
75 int *npcol;
76 int *myrow;
77 int *mycol;
78 {
79  void Cblacs_gridinfo();
80  Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol);
81 }
82 
83 void blacs_barrier_(ConTxt, scope)
84 int *ConTxt;
85 char *scope;
86 {
87  void Cblacs_barrier();
88  Cblacs_barrier(*ConTxt, scope);
89 }
90 
91 int blacs_pnum_(ConTxt, prow, pcol)
92 int *ConTxt;
93 int *prow;
94 int *pcol;
95 {
96  int Cblacs_pnum();
97  return( Cblacs_pnum(*ConTxt, *prow, *pcol) );
98 }
99 
100 void blacs_pcoord_(ConTxt, nodenum, prow, pcol)
101 int *ConTxt;
102 int *nodenum;
103 int *prow;
104 int *pcol;
105 {
106  void Cblacs_pcoord();
107  Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol);
108 }
109 
110 void blacs_get_(ConTxt, what, I)
111 int *ConTxt;
112 int *what;
113 int *I;
114 {
115  void Cblacs_get();
116  Cblacs_get(*ConTxt, *what, I);
117 }
118 
119 void blacs_set_(ConTxt, what, I)
120 int *ConTxt;
121 int *what;
122 int *I;
123 {
124  void Cblacs_set();
125  Cblacs_set(*ConTxt, *what, I);
126 }
127 
128 
129 void igesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
130 int *ConTxt;
131 int *m;
132 int *n;
133 int *A;
134 int *lda;
135 int *rdest;
136 int *cdest;
137 {
138  void Cigesd2d();
139  Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
140 }
141 
142 void igerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
143 int *ConTxt;
144 int *m;
145 int *n;
146 int *A;
147 int *lda;
148 int *rsrc;
149 int *csrc;
150 {
151  void Cigerv2d();
152  Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
153 }
154 
155 void igebs2d_(ConTxt, scope, top, m, n, A, lda)
156 int *ConTxt;
157 char *scope;
158 char *top;
159 int *m;
160 int *n;
161 int *A;
162 int *lda;
163 {
164  void Cigebs2d();
165  Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
166 }
167 
168 void igebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
169 int *ConTxt;
170 char *scope;
171 char *top;
172 int *m;
173 int *n;
174 int *A;
175 int *lda;
176 int *rsrc;
177 int *csrc;
178 {
179  void Cigebr2d();
180  Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
181 }
182 
183 void itrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
184 int *ConTxt;
185 char *uplo;
186 char *diag;
187 int *m;
188 int *n;
189 int *A;
190 int *lda;
191 int *rdest;
192 int *cdest;
193 {
194  void Citrsd2d();
195  Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
196 }
197 
198 void itrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
199 int *ConTxt;
200 char *uplo;
201 char *diag;
202 int *m;
203 int *n;
204 int *A;
205 int *lda;
206 int *rsrc;
207 int *csrc;
208 {
209  void Citrrv2d();
210  Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
211 }
212 
213 void itrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
214 int *ConTxt;
215 char *scope;
216 char *top;
217 char *uplo;
218 char *diag;
219 int *m;
220 int *n;
221 int *A;
222 int *lda;
223 {
224  void Citrbs2d();
225  Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
226 }
227 
228 void itrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
229 int *ConTxt;
230 char *scope;
231 char *top;
232 char *uplo;
233 char *diag;
234 int *m;
235 int *n;
236 int *A;
237 int *lda;
238 int *rsrc;
239 int *csrc;
240 {
241  void Citrbr2d();
242  Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
243 }
244 
245 void igsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
246 int *ConTxt;
247 char *scope;
248 char *top;
249 int *m;
250 int *n;
251 int *A;
252 int *lda;
253 int *rdest;
254 int *cdest;
255 {
256  void Cigsum2d();
257  Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
258 }
259 
260 void igamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
261 int *ConTxt;
262 char *scope;
263 char *top;
264 int *m;
265 int *n;
266 int *A;
267 int *lda;
268 int *rA;
269 int *cA;
270 int *ldia;
271 int *rdest;
272 int *cdest;
273 {
274  void Cigamx2d();
275  Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
276  *rdest, *cdest);
277 }
278 
279 void igamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
280 int *ConTxt;
281 char *scope;
282 char *top;
283 int *m;
284 int *n;
285 int *A;
286 int *lda;
287 int *rA;
288 int *cA;
289 int *ldia;
290 int *rdest;
291 int *cdest;
292 {
293  void Cigamn2d();
294  Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
295  *rdest, *cdest);
296 }
297 
298 void dgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
299 int *ConTxt;
300 int *m;
301 int *n;
302 double *A;
303 int *lda;
304 int *rdest;
305 int *cdest;
306 {
307  void Cdgesd2d();
308  Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
309 }
310 
311 void dgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
312 int *ConTxt;
313 int *m;
314 int *n;
315 double *A;
316 int *lda;
317 int *rsrc;
318 int *csrc;
319 {
320  void Cdgerv2d();
321  Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
322 }
323 
324 void dgebs2d_(ConTxt, scope, top, m, n, A, lda)
325 int *ConTxt;
326 char *scope;
327 char *top;
328 int *m;
329 int *n;
330 double *A;
331 int *lda;
332 {
333  void Cdgebs2d();
334  Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
335 }
336 
337 void dgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
338 int *ConTxt;
339 char *scope;
340 char *top;
341 int *m;
342 int *n;
343 double *A;
344 int *lda;
345 int *rsrc;
346 int *csrc;
347 {
348  void Cdgebr2d();
349  Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
350 }
351 
352 void dtrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
353 int *ConTxt;
354 char *uplo;
355 char *diag;
356 int *m;
357 int *n;
358 double *A;
359 int *lda;
360 int *rdest;
361 int *cdest;
362 {
363  void Cdtrsd2d();
364  Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
365 }
366 
367 void dtrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
368 int *ConTxt;
369 char *uplo;
370 char *diag;
371 int *m;
372 int *n;
373 double *A;
374 int *lda;
375 int *rsrc;
376 int *csrc;
377 {
378  void Cdtrrv2d();
379  Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
380 }
381 
382 void dtrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
383 int *ConTxt;
384 char *scope;
385 char *top;
386 char *uplo;
387 char *diag;
388 int *m;
389 int *n;
390 double *A;
391 int *lda;
392 {
393  void Cdtrbs2d();
394  Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
395 }
396 
397 void dtrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
398 int *ConTxt;
399 char *scope;
400 char *top;
401 char *uplo;
402 char *diag;
403 int *m;
404 int *n;
405 double *A;
406 int *lda;
407 int *rsrc;
408 int *csrc;
409 {
410  void Cdtrbr2d();
411  Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
412 }
413 
414 void dgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
415 int *ConTxt;
416 char *scope;
417 char *top;
418 int *m;
419 int *n;
420 double *A;
421 int *lda;
422 int *rdest;
423 int *cdest;
424 {
425  void Cdgsum2d();
426  Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
427 }
428 
429 void dgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
430 int *ConTxt;
431 char *scope;
432 char *top;
433 int *m;
434 int *n;
435 double *A;
436 int *lda;
437 int *rA;
438 int *cA;
439 int *ldia;
440 int *rdest;
441 int *cdest;
442 {
443  void Cdgamx2d();
444  Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
445  *rdest, *cdest);
446 }
447 
448 void dgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
449 int *ConTxt;
450 char *scope;
451 char *top;
452 int *m;
453 int *n;
454 double *A;
455 int *lda;
456 int *rA;
457 int *cA;
458 int *ldia;
459 int *rdest;
460 int *cdest;
461 {
462  void Cdgamn2d();
463  Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
464  *rdest, *cdest);
465 }
466 
467 void sgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
468 int *ConTxt;
469 int *m;
470 int *n;
471 float *A;
472 int *lda;
473 int *rdest;
474 int *cdest;
475 {
476  void Csgesd2d();
477  Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
478 }
479 
480 void sgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
481 int *ConTxt;
482 int *m;
483 int *n;
484 float *A;
485 int *lda;
486 int *rsrc;
487 int *csrc;
488 {
489  void Csgerv2d();
490  Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
491 }
492 
493 void sgebs2d_(ConTxt, scope, top, m, n, A, lda)
494 int *ConTxt;
495 char *scope;
496 char *top;
497 int *m;
498 int *n;
499 float *A;
500 int *lda;
501 {
502  void Csgebs2d();
503  Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
504 }
505 
506 void sgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
507 int *ConTxt;
508 char *scope;
509 char *top;
510 int *m;
511 int *n;
512 float *A;
513 int *lda;
514 int *rsrc;
515 int *csrc;
516 {
517  void Csgebr2d();
518  Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
519 }
520 
521 void strsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
522 int *ConTxt;
523 char *uplo;
524 char *diag;
525 int *m;
526 int *n;
527 float *A;
528 int *lda;
529 int *rdest;
530 int *cdest;
531 {
532  void Cstrsd2d();
533  Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
534 }
535 
536 void strrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
537 int *ConTxt;
538 char *uplo;
539 char *diag;
540 int *m;
541 int *n;
542 float *A;
543 int *lda;
544 int *rsrc;
545 int *csrc;
546 {
547  void Cstrrv2d();
548  Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
549 }
550 
551 void strbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
552 int *ConTxt;
553 char *scope;
554 char *top;
555 char *uplo;
556 char *diag;
557 int *m;
558 int *n;
559 float *A;
560 int *lda;
561 {
562  void Cstrbs2d();
563  Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
564 }
565 
566 void strbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
567 int *ConTxt;
568 char *scope;
569 char *top;
570 char *uplo;
571 char *diag;
572 int *m;
573 int *n;
574 float *A;
575 int *lda;
576 int *rsrc;
577 int *csrc;
578 {
579  void Cstrbr2d();
580  Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
581 }
582 
583 void sgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
584 int *ConTxt;
585 char *scope;
586 char *top;
587 int *m;
588 int *n;
589 float *A;
590 int *lda;
591 int *rdest;
592 int *cdest;
593 {
594  void Csgsum2d();
595  Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
596 }
597 
598 void sgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
599 int *ConTxt;
600 char *scope;
601 char *top;
602 int *m;
603 int *n;
604 float *A;
605 int *lda;
606 int *rA;
607 int *cA;
608 int *ldia;
609 int *rdest;
610 int *cdest;
611 {
612  void Csgamx2d();
613  Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
614  *rdest, *cdest);
615 }
616 
617 void sgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
618 int *ConTxt;
619 char *scope;
620 char *top;
621 int *m;
622 int *n;
623 float *A;
624 int *lda;
625 int *rA;
626 int *cA;
627 int *ldia;
628 int *rdest;
629 int *cdest;
630 {
631  void Csgamn2d();
632  Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
633  *rdest, *cdest);
634 }
635 
636 void cgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
637 int *ConTxt;
638 int *m;
639 int *n;
640 float *A;
641 int *lda;
642 int *rdest;
643 int *cdest;
644 {
645  void Ccgesd2d();
646  Ccgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
647 }
648 
649 void cgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
650 int *ConTxt;
651 int *m;
652 int *n;
653 float *A;
654 int *lda;
655 int *rsrc;
656 int *csrc;
657 {
658  void Ccgerv2d();
659  Ccgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
660 }
661 
662 void cgebs2d_(ConTxt, scope, top, m, n, A, lda)
663 int *ConTxt;
664 char *scope;
665 char *top;
666 int *m;
667 int *n;
668 float *A;
669 int *lda;
670 {
671  void Ccgebs2d();
672  Ccgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
673 }
674 
675 void cgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
676 int *ConTxt;
677 char *scope;
678 char *top;
679 int *m;
680 int *n;
681 float *A;
682 int *lda;
683 int *rsrc;
684 int *csrc;
685 {
686  void Ccgebr2d();
687  Ccgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
688 }
689 
690 void ctrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
691 int *ConTxt;
692 char *uplo;
693 char *diag;
694 int *m;
695 int *n;
696 float *A;
697 int *lda;
698 int *rdest;
699 int *cdest;
700 {
701  void Cctrsd2d();
702  Cctrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
703 }
704 
705 void ctrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
706 int *ConTxt;
707 char *uplo;
708 char *diag;
709 int *m;
710 int *n;
711 float *A;
712 int *lda;
713 int *rsrc;
714 int *csrc;
715 {
716  void Cctrrv2d();
717  Cctrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
718 }
719 
720 void ctrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
721 int *ConTxt;
722 char *scope;
723 char *top;
724 char *uplo;
725 char *diag;
726 int *m;
727 int *n;
728 float *A;
729 int *lda;
730 {
731  void Cctrbs2d();
732  Cctrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
733 }
734 
735 void ctrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
736 int *ConTxt;
737 char *scope;
738 char *top;
739 char *uplo;
740 char *diag;
741 int *m;
742 int *n;
743 float *A;
744 int *lda;
745 int *rsrc;
746 int *csrc;
747 {
748  void Cctrbr2d();
749  Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
750 }
751 
752 void cgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
753 int *ConTxt;
754 char *scope;
755 char *top;
756 int *m;
757 int *n;
758 float *A;
759 int *lda;
760 int *rdest;
761 int *cdest;
762 {
763  void Ccgsum2d();
764  Ccgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
765 }
766 
767 void cgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
768 int *ConTxt;
769 char *scope;
770 char *top;
771 int *m;
772 int *n;
773 float *A;
774 int *lda;
775 int *rA;
776 int *cA;
777 int *ldia;
778 int *rdest;
779 int *cdest;
780 {
781  void Ccgamx2d();
782  Ccgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
783  *rdest, *cdest);
784 }
785 
786 void cgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
787 int *ConTxt;
788 char *scope;
789 char *top;
790 int *m;
791 int *n;
792 float *A;
793 int *lda;
794 int *rA;
795 int *cA;
796 int *ldia;
797 int *rdest;
798 int *cdest;
799 {
800  void Ccgamn2d();
801  Ccgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
802  *rdest, *cdest);
803 }
804 
805 void zgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
806 int *ConTxt;
807 int *m;
808 int *n;
809 double *A;
810 int *lda;
811 int *rdest;
812 int *cdest;
813 {
814  void Czgesd2d();
815  Czgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
816 }
817 
818 void zgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
819 int *ConTxt;
820 int *m;
821 int *n;
822 double *A;
823 int *lda;
824 int *rsrc;
825 int *csrc;
826 {
827  void Czgerv2d();
828  Czgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
829 }
830 
831 void zgebs2d_(ConTxt, scope, top, m, n, A, lda)
832 int *ConTxt;
833 char *scope;
834 char *top;
835 int *m;
836 int *n;
837 double *A;
838 int *lda;
839 {
840  void Czgebs2d();
841  Czgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
842 }
843 
844 void zgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
845 int *ConTxt;
846 char *scope;
847 char *top;
848 int *m;
849 int *n;
850 double *A;
851 int *lda;
852 int *rsrc;
853 int *csrc;
854 {
855  void Czgebr2d();
856  Czgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
857 }
858 
859 void ztrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
860 int *ConTxt;
861 char *uplo;
862 char *diag;
863 int *m;
864 int *n;
865 double *A;
866 int *lda;
867 int *rdest;
868 int *cdest;
869 {
870  void Cztrsd2d();
871  Cztrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
872 }
873 
874 void ztrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
875 int *ConTxt;
876 char *uplo;
877 char *diag;
878 int *m;
879 int *n;
880 double *A;
881 int *lda;
882 int *rsrc;
883 int *csrc;
884 {
885  void Cztrrv2d();
886  Cztrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
887 }
888 
889 void ztrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
890 int *ConTxt;
891 char *scope;
892 char *top;
893 char *uplo;
894 char *diag;
895 int *m;
896 int *n;
897 double *A;
898 int *lda;
899 {
900  void Cztrbs2d();
901  Cztrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
902 }
903 
904 void ztrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
905 int *ConTxt;
906 char *scope;
907 char *top;
908 char *uplo;
909 char *diag;
910 int *m;
911 int *n;
912 double *A;
913 int *lda;
914 int *rsrc;
915 int *csrc;
916 {
917  void Cztrbr2d();
918  Cztrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
919 }
920 
921 void zgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
922 int *ConTxt;
923 char *scope;
924 char *top;
925 int *m;
926 int *n;
927 double *A;
928 int *lda;
929 int *rdest;
930 int *cdest;
931 {
932  void Czgsum2d();
933  Czgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
934 }
935 
936 void zgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
937 int *ConTxt;
938 char *scope;
939 char *top;
940 int *m;
941 int *n;
942 double *A;
943 int *lda;
944 int *rA;
945 int *cA;
946 int *ldia;
947 int *rdest;
948 int *cdest;
949 {
950  void Czgamx2d();
951  Czgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
952  *rdest, *cdest);
953 }
954 
955 void zgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
956 int *ConTxt;
957 char *scope;
958 char *top;
959 int *m;
960 int *n;
961 double *A;
962 int *lda;
963 int *rA;
964 int *cA;
965 int *ldia;
966 int *rdest;
967 int *cdest;
968 {
969  void Czgamn2d();
970  Czgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
971  *rdest, *cdest);
972 }
973 #endif
sgerv2d_
F_VOID_FUNC sgerv2d_(int *ConTxt, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: sgerv2d_.c:6
dtrbs2d_
F_VOID_FUNC dtrbs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda)
Definition: dtrbs2d_.c:7
Cblacs_pcoord
void Cblacs_pcoord()
Cctrbs2d
void Cctrbs2d()
strsd2d_
F_VOID_FUNC strsd2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: strsd2d_.c:7
dtrsd2d_
F_VOID_FUNC dtrsd2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: dtrsd2d_.c:7
blacs_pinfo_
F_VOID_FUNC blacs_pinfo_(int *mypnum, int *nprocs)
Definition: blacs_pinfo_.c:6
zgerv2d_
F_VOID_FUNC zgerv2d_(int *ConTxt, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: zgerv2d_.c:6
igesd2d_
F_VOID_FUNC igesd2d_(int *ConTxt, int *m, int *n, int *A, int *lda, int *rdest, int *cdest)
Definition: igesd2d_.c:7
Cbt.h
Ccgsum2d
void Ccgsum2d()
itrbr2d_
F_VOID_FUNC itrbr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, int *A, int *lda, int *rsrc, int *csrc)
Definition: itrbr2d_.c:7
igsum2d_
F_VOID_FUNC igsum2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, int *A, int *lda, int *rdest, int *cdest)
Definition: igsum2d_.c:8
Cctrsd2d
void Cctrsd2d()
itrsd2d_
F_VOID_FUNC itrsd2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, int *A, int *lda, int *rdest, int *cdest)
Definition: itrsd2d_.c:7
Cigebr2d
void Cigebr2d()
Cstrbr2d
void Cstrbr2d()
blacs_gridinit_
F_VOID_FUNC blacs_gridinit_(int *ConTxt, F_CHAR order, int *nprow, int *npcol)
Definition: blacs_init_.c:6
Cblacs_freebuff
void Cblacs_freebuff()
Ccgamx2d
void Ccgamx2d()
cgsum2d_
F_VOID_FUNC cgsum2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: cgsum2d_.c:8
Cblacs_pinfo
void Cblacs_pinfo()
cgamn2d_
F_VOID_FUNC cgamn2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: cgamn2d_.c:9
sgsum2d_
F_VOID_FUNC sgsum2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: sgsum2d_.c:8
strrv2d_
F_VOID_FUNC strrv2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: strrv2d_.c:7
Cblacs_set
void Cblacs_set()
blacs_exit_
F_VOID_FUNC blacs_exit_(int *NotDone)
Definition: blacs_exit_.c:6
Cztrsd2d
void Cztrsd2d()
Czgebs2d
void Czgebs2d()
Csgesd2d
void Csgesd2d()
Csgebs2d
void Csgebs2d()
Csgamx2d
void Csgamx2d()
Cztrrv2d
void Cztrrv2d()
Citrrv2d
void Citrrv2d()
dgebs2d_
F_VOID_FUNC dgebs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda)
Definition: dgebs2d_.c:6
dgamx2d_
F_VOID_FUNC dgamx2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: dgamx2d_.c:9
Citrsd2d
void Citrsd2d()
zgesd2d_
F_VOID_FUNC zgesd2d_(int *ConTxt, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: zgesd2d_.c:7
cgesd2d_
F_VOID_FUNC cgesd2d_(int *ConTxt, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: cgesd2d_.c:7
blacs_set_
F_VOID_FUNC blacs_set_(int *ConTxt, int *what, int *val)
Definition: blacs_set_.c:6
zgebr2d_
F_VOID_FUNC zgebr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: zgebr2d_.c:7
igebr2d_
F_VOID_FUNC igebr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, int *A, int *lda, int *rsrc, int *csrc)
Definition: igebr2d_.c:7
Cdgamn2d
void Cdgamn2d()
ctrrv2d_
F_VOID_FUNC ctrrv2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: ctrrv2d_.c:7
Cigerv2d
void Cigerv2d()
dgsum2d_
F_VOID_FUNC dgsum2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: dgsum2d_.c:8
Ccgamn2d
void Ccgamn2d()
Czgebr2d
void Czgebr2d()
Citrbs2d
void Citrbs2d()
dgamn2d_
F_VOID_FUNC dgamn2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: dgamn2d_.c:9
Czgamn2d
void Czgamn2d()
igamx2d_
F_VOID_FUNC igamx2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, int *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: igamx2d_.c:7
Czgesd2d
void Czgesd2d()
Cblacs_abort
void Cblacs_abort()
Cdgebs2d
void Cdgebs2d()
zgebs2d_
F_VOID_FUNC zgebs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda)
Definition: zgebs2d_.c:6
Csgebr2d
void Csgebr2d()
blacs_get_
F_VOID_FUNC blacs_get_(int *ConTxt, int *what, int *val)
Definition: blacs_get_.c:5
Cdgesd2d
void Cdgesd2d()
Cblacs_exit
void Cblacs_exit()
strbs2d_
F_VOID_FUNC strbs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda)
Definition: strbs2d_.c:7
Cblacs_setup
void Cblacs_setup()
Cigebs2d
void Cigebs2d()
cgamx2d_
F_VOID_FUNC cgamx2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: cgamx2d_.c:9
igerv2d_
F_VOID_FUNC igerv2d_(int *ConTxt, int *m, int *n, int *A, int *lda, int *rsrc, int *csrc)
Definition: igerv2d_.c:6
sgesd2d_
F_VOID_FUNC sgesd2d_(int *ConTxt, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: sgesd2d_.c:7
blacs_gridinfo_
F_VOID_FUNC blacs_gridinfo_(int *ConTxt, int *nprow, int *npcol, int *myrow, int *mycol)
Definition: blacs_info_.c:6
itrbs2d_
F_VOID_FUNC itrbs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, int *A, int *lda)
Definition: itrbs2d_.c:7
Cstrbs2d
void Cstrbs2d()
Cstrrv2d
void Cstrrv2d()
zgamx2d_
F_VOID_FUNC zgamx2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: zgamx2d_.c:9
blacs_gridexit_
F_VOID_FUNC blacs_gridexit_(int *ConTxt)
Definition: blacs_grid_.c:6
Cdgamx2d
void Cdgamx2d()
Cstrsd2d
void Cstrsd2d()
Ccgebs2d
void Ccgebs2d()
ztrbr2d_
F_VOID_FUNC ztrbr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: ztrbr2d_.c:7
cgebr2d_
F_VOID_FUNC cgebr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: cgebr2d_.c:7
Czgerv2d
void Czgerv2d()
blacs_pnum_
F_INT_FUNC blacs_pnum_(int *ConTxt, int *prow, int *pcol)
Definition: blacs_pnum_.c:6
sgamn2d_
F_VOID_FUNC sgamn2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: sgamn2d_.c:9
Cztrbs2d
void Cztrbs2d()
Cblacs_gridmap
void Cblacs_gridmap()
Cctrrv2d
void Cctrrv2d()
Csgerv2d
void Csgerv2d()
Cigsum2d
void Cigsum2d()
Cdgebr2d
void Cdgebr2d()
sgebs2d_
F_VOID_FUNC sgebs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda)
Definition: sgebs2d_.c:6
Cdtrbr2d
void Cdtrbr2d()
ctrbr2d_
F_VOID_FUNC ctrbr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: ctrbr2d_.c:7
Cblacs_pnum
int Cblacs_pnum()
igebs2d_
F_VOID_FUNC igebs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, int *A, int *lda)
Definition: igebs2d_.c:6
Ccgerv2d
void Ccgerv2d()
dtrrv2d_
F_VOID_FUNC dtrrv2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: dtrrv2d_.c:7
blacs_setup_
F_VOID_FUNC blacs_setup_(int *mypnum, int *nprocs)
Definition: blacs_setup_.c:6
blacs_freebuff_
F_VOID_FUNC blacs_freebuff_(int *ConTxt, int *Wait)
Definition: blacs_free_.c:6
ctrbs2d_
F_VOID_FUNC ctrbs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda)
Definition: ctrbs2d_.c:7
Cztrbr2d
void Cztrbr2d()
Cblacs_get
void Cblacs_get()
Czgamx2d
void Czgamx2d()
Cdtrbs2d
void Cdtrbs2d()
sgamx2d_
F_VOID_FUNC sgamx2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: sgamx2d_.c:9
Cblacs_barrier
void Cblacs_barrier()
ztrrv2d_
F_VOID_FUNC ztrrv2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: ztrrv2d_.c:7
igamn2d_
F_VOID_FUNC igamn2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, int *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: igamn2d_.c:7
Csgamn2d
void Csgamn2d()
Cblacs_gridexit
void Cblacs_gridexit()
Cdgsum2d
void Cdgsum2d()
cgebs2d_
F_VOID_FUNC cgebs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda)
Definition: cgebs2d_.c:6
Cigamn2d
void Cigamn2d()
Citrbr2d
void Citrbr2d()
Czgsum2d
void Czgsum2d()
Cdgerv2d
void Cdgerv2d()
Ccgebr2d
void Ccgebr2d()
dtrbr2d_
F_VOID_FUNC dtrbr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: dtrbr2d_.c:7
dgerv2d_
F_VOID_FUNC dgerv2d_(int *ConTxt, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: dgerv2d_.c:6
blacs_abort_
F_VOID_FUNC blacs_abort_(int *ConTxt, int *ErrNo)
Definition: blacs_abort_.c:6
sgebr2d_
F_VOID_FUNC sgebr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: sgebr2d_.c:7
Cblacs_gridinfo
void Cblacs_gridinfo()
dgesd2d_
F_VOID_FUNC dgesd2d_(int *ConTxt, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: dgesd2d_.c:8
blacs_gridmap_
F_VOID_FUNC blacs_gridmap_(int *ConTxt, int *usermap, int *ldup, int *nprow0, int *npcol0)
Definition: blacs_map_.c:6
ctrsd2d_
F_VOID_FUNC ctrsd2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rdest, int *cdest)
Definition: ctrsd2d_.c:7
ztrbs2d_
F_VOID_FUNC ztrbs2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda)
Definition: ztrbs2d_.c:7
zgamn2d_
F_VOID_FUNC zgamn2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rA, int *cA, int *ldia, int *rdest, int *cdest)
Definition: zgamn2d_.c:9
Cigesd2d
void Cigesd2d()
ztrsd2d_
F_VOID_FUNC ztrsd2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: ztrsd2d_.c:7
Cdtrrv2d
void Cdtrrv2d()
strbr2d_
F_VOID_FUNC strbr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, F_CHAR uplo, F_CHAR diag, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: strbr2d_.c:7
Cctrbr2d
void Cctrbr2d()
Cblacs_gridinit
void Cblacs_gridinit()
zgsum2d_
F_VOID_FUNC zgsum2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rdest, int *cdest)
Definition: zgsum2d_.c:8
itrrv2d_
F_VOID_FUNC itrrv2d_(int *ConTxt, F_CHAR uplo, F_CHAR diag, int *m, int *n, int *A, int *lda, int *rsrc, int *csrc)
Definition: itrrv2d_.c:7
dgebr2d_
F_VOID_FUNC dgebr2d_(int *ConTxt, F_CHAR scope, F_CHAR top, int *m, int *n, double *A, int *lda, int *rsrc, int *csrc)
Definition: dgebr2d_.c:7
cgerv2d_
F_VOID_FUNC cgerv2d_(int *ConTxt, int *m, int *n, float *A, int *lda, int *rsrc, int *csrc)
Definition: cgerv2d_.c:6
Ccgesd2d
void Ccgesd2d()
Cigamx2d
void Cigamx2d()
Csgsum2d
void Csgsum2d()
blacs_pcoord_
F_VOID_FUNC blacs_pcoord_(int *ConTxt, int *nodenum, int *prow, int *pcol)
Definition: blacs_pcoord_.c:6
blacs_barrier_
F_VOID_FUNC blacs_barrier_(int *ConTxt, F_CHAR scope)
Definition: blacs_barr_.c:6
Cdtrsd2d
void Cdtrsd2d()