ScaLAPACK  2.0.2
ScaLAPACK: Scalable Linear Algebra PACKage
Cbt.c
Go to the documentation of this file.
00001 #ifdef BTCINTFACE
00002 #include "Cbt.h"
00003 
00004 void blacs_gridinit_(ConTxt, order, nprow, npcol)
00005 int *ConTxt;
00006 char *order;
00007 int *nprow;
00008 int  *npcol;
00009 {
00010    void Cblacs_gridinit();
00011 
00012    Cblacs_gridinit(ConTxt, order, *nprow, *npcol);
00013 }
00014 
00015 void blacs_setup_(mypnum, nprocs)
00016 int *mypnum;
00017 int  *nprocs;
00018 {
00019    void Cblacs_setup();
00020    Cblacs_setup(mypnum, nprocs);
00021 }
00022 
00023 void blacs_pinfo_(mypnum, nprocs)
00024 int *mypnum;
00025 int  *nprocs;
00026 {
00027    void Cblacs_pinfo();
00028    Cblacs_pinfo(mypnum, nprocs);
00029 }
00030 
00031 void blacs_gridmap_(ConTxt, usermap, ldup, nprow, npcol)
00032 int *ConTxt;
00033 int *usermap;
00034 int *ldup;
00035 int *nprow;
00036 int  *npcol;
00037 {
00038    void Cblacs_gridmap();
00039    Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol);
00040 }
00041 
00042 void blacs_gridexit_(ConTxt)
00043 int  *ConTxt;
00044 {
00045    void Cblacs_gridexit();
00046    Cblacs_gridexit(*ConTxt);
00047 }
00048 
00049 void blacs_abort_(ConTxt, ErrNo)
00050 int *ConTxt;
00051 int  *ErrNo;
00052 {
00053    void Cblacs_abort();
00054    Cblacs_abort(*ConTxt, *ErrNo);
00055 }
00056 
00057 void blacs_exit_(NotDone)
00058 int  *NotDone;
00059 {
00060    void Cblacs_exit();
00061    Cblacs_exit(*NotDone);
00062 }
00063 
00064 void blacs_freebuff_(ConTxt, Wait)
00065 int *ConTxt;
00066 int  *Wait;
00067 {
00068    void Cblacs_freebuff();
00069    Cblacs_freebuff(*ConTxt, *Wait);
00070 }
00071 
00072 void blacs_gridinfo_(ConTxt, nprow, npcol, myrow, mycol)
00073 int *ConTxt;
00074 int *nprow;
00075 int *npcol;
00076 int *myrow;
00077 int  *mycol;
00078 {
00079    void Cblacs_gridinfo();
00080    Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol);
00081 }
00082 
00083 void blacs_barrier_(ConTxt, scope)
00084 int *ConTxt;
00085 char  *scope;
00086 {
00087    void Cblacs_barrier();
00088    Cblacs_barrier(*ConTxt, scope);
00089 }
00090 
00091 int blacs_pnum_(ConTxt, prow, pcol)
00092 int *ConTxt;
00093 int *prow;
00094 int  *pcol;
00095 {
00096    int Cblacs_pnum();
00097    return( Cblacs_pnum(*ConTxt, *prow, *pcol) );
00098 }
00099 
00100 void blacs_pcoord_(ConTxt, nodenum, prow, pcol)
00101 int *ConTxt;
00102 int *nodenum;
00103 int *prow;
00104 int  *pcol;
00105 {
00106    void Cblacs_pcoord();
00107    Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol);
00108 }
00109 
00110 void blacs_get_(ConTxt, what, I)
00111 int *ConTxt;
00112 int *what;
00113 int  *I;
00114 {
00115    void Cblacs_get();
00116    Cblacs_get(*ConTxt, *what, I);
00117 }
00118 
00119 void blacs_set_(ConTxt, what, I)
00120 int *ConTxt;
00121 int *what;
00122 int  *I;
00123 {
00124    void Cblacs_set();
00125    Cblacs_set(*ConTxt, *what, I);
00126 }
00127 
00128 
00129 void igesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
00130 int *ConTxt;
00131 int *m;
00132 int *n;
00133 int *A;
00134 int *lda;
00135 int *rdest;
00136 int  *cdest;
00137 {
00138    void Cigesd2d();
00139    Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
00140 }
00141 
00142 void igerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
00143 int *ConTxt;
00144 int *m;
00145 int *n;
00146 int *A;
00147 int *lda;
00148 int *rsrc;
00149 int  *csrc;
00150 {
00151    void Cigerv2d();
00152    Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
00153 }
00154 
00155 void igebs2d_(ConTxt, scope, top, m, n, A, lda)
00156 int *ConTxt;
00157 char *scope;
00158 char *top;
00159 int *m;
00160 int *n;
00161 int *A;
00162 int  *lda;
00163 {
00164    void Cigebs2d();
00165    Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
00166 }
00167 
00168 void igebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
00169 int *ConTxt;
00170 char *scope;
00171 char *top;
00172 int *m;
00173 int *n;
00174 int *A;
00175 int *lda;
00176 int *rsrc;
00177 int  *csrc;
00178 {
00179    void Cigebr2d();
00180    Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
00181 }
00182 
00183 void itrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
00184 int *ConTxt;
00185 char *uplo;
00186 char *diag;
00187 int *m;
00188 int *n;
00189 int *A;
00190 int *lda;
00191 int *rdest;
00192 int  *cdest;
00193 {
00194    void Citrsd2d();
00195    Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
00196 }
00197 
00198 void itrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
00199 int *ConTxt;
00200 char *uplo;
00201 char *diag;
00202 int *m;
00203 int *n;
00204 int *A;
00205 int *lda;
00206 int *rsrc;
00207 int  *csrc;
00208 {
00209    void Citrrv2d();
00210    Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00211 }
00212 
00213 void itrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
00214 int *ConTxt;
00215 char *scope;
00216 char *top;
00217 char *uplo;
00218 char *diag;
00219 int *m;
00220 int *n;
00221 int *A;
00222 int  *lda;
00223 {
00224    void Citrbs2d();
00225    Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
00226 }
00227 
00228 void itrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
00229 int *ConTxt;
00230 char *scope;
00231 char *top;
00232 char *uplo;
00233 char *diag;
00234 int *m;
00235 int *n;
00236 int *A;
00237 int *lda;
00238 int *rsrc;
00239 int  *csrc;
00240 {
00241    void Citrbr2d();
00242    Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00243 }
00244 
00245 void igsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
00246 int *ConTxt;
00247 char *scope;
00248 char *top;
00249 int *m;
00250 int *n;
00251 int *A;
00252 int *lda;
00253 int *rdest;
00254 int  *cdest;
00255 {
00256    void Cigsum2d();
00257    Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
00258 }
00259 
00260 void igamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00261 int *ConTxt;
00262 char *scope;
00263 char *top;
00264 int *m;
00265 int *n;
00266 int *A;
00267 int *lda;
00268 int *rA;
00269 int *cA;
00270 int *ldia;
00271 int *rdest;
00272 int  *cdest;
00273 {
00274    void Cigamx2d();
00275    Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda,  rA, cA, *ldia,
00276             *rdest, *cdest);
00277 }
00278 
00279 void igamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00280 int *ConTxt;
00281 char *scope;
00282 char *top;
00283 int *m;
00284 int *n;
00285 int *A;
00286 int *lda;
00287 int *rA;
00288 int *cA;
00289 int *ldia;
00290 int *rdest;
00291 int  *cdest;
00292 {
00293    void Cigamn2d();
00294    Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
00295             *rdest, *cdest);
00296 }
00297 
00298 void dgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
00299 int *ConTxt;
00300 int *m;
00301 int *n;
00302 double *A;
00303 int *lda;
00304 int *rdest;
00305 int  *cdest;
00306 {
00307    void Cdgesd2d();
00308    Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
00309 }
00310 
00311 void dgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
00312 int *ConTxt;
00313 int *m;
00314 int *n;
00315 double *A;
00316 int *lda;
00317 int *rsrc;
00318 int  *csrc;
00319 {
00320    void Cdgerv2d();
00321    Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
00322 }
00323 
00324 void dgebs2d_(ConTxt, scope, top, m, n, A, lda)
00325 int *ConTxt;
00326 char *scope;
00327 char *top;
00328 int *m;
00329 int *n;
00330 double *A;
00331 int  *lda;
00332 {
00333    void Cdgebs2d();
00334    Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
00335 }
00336 
00337 void dgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
00338 int *ConTxt;
00339 char *scope;
00340 char *top;
00341 int *m;
00342 int *n;
00343 double *A;
00344 int *lda;
00345 int *rsrc;
00346 int  *csrc;
00347 {
00348    void Cdgebr2d();
00349    Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
00350 }
00351 
00352 void dtrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
00353 int *ConTxt;
00354 char *uplo;
00355 char *diag;
00356 int *m;
00357 int *n;
00358 double *A;
00359 int *lda;
00360 int *rdest;
00361 int  *cdest;
00362 {
00363    void Cdtrsd2d();
00364    Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
00365 }
00366 
00367 void dtrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
00368 int *ConTxt;
00369 char *uplo;
00370 char *diag;
00371 int *m;
00372 int *n;
00373 double *A;
00374 int *lda;
00375 int *rsrc;
00376 int  *csrc;
00377 {
00378    void Cdtrrv2d();
00379    Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00380 }
00381 
00382 void dtrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
00383 int *ConTxt;
00384 char *scope;
00385 char *top;
00386 char *uplo;
00387 char *diag;
00388 int *m;
00389 int *n;
00390 double *A;
00391 int  *lda;
00392 {
00393    void Cdtrbs2d();
00394    Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
00395 }
00396 
00397 void dtrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
00398 int *ConTxt;
00399 char *scope;
00400 char *top;
00401 char *uplo;
00402 char *diag;
00403 int *m;
00404 int *n;
00405 double *A;
00406 int *lda;
00407 int *rsrc;
00408 int  *csrc;
00409 {
00410    void Cdtrbr2d();
00411    Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00412 }
00413 
00414 void dgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
00415 int *ConTxt;
00416 char *scope;
00417 char *top;
00418 int *m;
00419 int *n;
00420 double *A;
00421 int *lda;
00422 int *rdest;
00423 int  *cdest;
00424 {
00425    void Cdgsum2d();
00426    Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
00427 }
00428 
00429 void dgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00430 int *ConTxt;
00431 char *scope;
00432 char *top;
00433 int *m;
00434 int *n;
00435 double *A;
00436 int *lda;
00437 int *rA;
00438 int *cA;
00439 int *ldia;
00440 int *rdest;
00441 int  *cdest;
00442 {
00443    void Cdgamx2d();
00444    Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda,  rA, cA, *ldia,
00445             *rdest, *cdest);
00446 }
00447 
00448 void dgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00449 int *ConTxt;
00450 char *scope;
00451 char *top;
00452 int *m;
00453 int *n;
00454 double *A;
00455 int *lda;
00456 int *rA;
00457 int *cA;
00458 int *ldia;
00459 int *rdest;
00460 int  *cdest;
00461 {
00462    void Cdgamn2d();
00463    Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
00464             *rdest, *cdest);
00465 }
00466 
00467 void sgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
00468 int *ConTxt;
00469 int *m;
00470 int *n;
00471 float *A;
00472 int *lda;
00473 int *rdest;
00474 int  *cdest;
00475 {
00476    void Csgesd2d();
00477    Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
00478 }
00479 
00480 void sgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
00481 int *ConTxt;
00482 int *m;
00483 int *n;
00484 float *A;
00485 int *lda;
00486 int *rsrc;
00487 int  *csrc;
00488 {
00489    void Csgerv2d();
00490    Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
00491 }
00492 
00493 void sgebs2d_(ConTxt, scope, top, m, n, A, lda)
00494 int *ConTxt;
00495 char *scope;
00496 char *top;
00497 int *m;
00498 int *n;
00499 float *A;
00500 int  *lda;
00501 {
00502    void Csgebs2d();
00503    Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
00504 }
00505 
00506 void sgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
00507 int *ConTxt;
00508 char *scope;
00509 char *top;
00510 int *m;
00511 int *n;
00512 float *A;
00513 int *lda;
00514 int *rsrc;
00515 int  *csrc;
00516 {
00517    void Csgebr2d();
00518    Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
00519 }
00520 
00521 void strsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
00522 int *ConTxt;
00523 char *uplo;
00524 char *diag;
00525 int *m;
00526 int *n;
00527 float *A;
00528 int *lda;
00529 int *rdest;
00530 int  *cdest;
00531 {
00532    void Cstrsd2d();
00533    Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
00534 }
00535 
00536 void strrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
00537 int *ConTxt;
00538 char *uplo;
00539 char *diag;
00540 int *m;
00541 int *n;
00542 float *A;
00543 int *lda;
00544 int *rsrc;
00545 int  *csrc;
00546 {
00547    void Cstrrv2d();
00548    Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00549 }
00550 
00551 void strbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
00552 int *ConTxt;
00553 char *scope;
00554 char *top;
00555 char *uplo;
00556 char *diag;
00557 int *m;
00558 int *n;
00559 float *A;
00560 int  *lda;
00561 {
00562    void Cstrbs2d();
00563    Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
00564 }
00565 
00566 void strbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
00567 int *ConTxt;
00568 char *scope;
00569 char *top;
00570 char *uplo;
00571 char *diag;
00572 int *m;
00573 int *n;
00574 float *A;
00575 int *lda;
00576 int *rsrc;
00577 int  *csrc;
00578 {
00579    void Cstrbr2d();
00580    Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00581 }
00582 
00583 void sgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
00584 int *ConTxt;
00585 char *scope;
00586 char *top;
00587 int *m;
00588 int *n;
00589 float *A;
00590 int *lda;
00591 int *rdest;
00592 int  *cdest;
00593 {
00594    void Csgsum2d();
00595    Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
00596 }
00597 
00598 void sgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00599 int *ConTxt;
00600 char *scope;
00601 char *top;
00602 int *m;
00603 int *n;
00604 float *A;
00605 int *lda;
00606 int *rA;
00607 int *cA;
00608 int *ldia;
00609 int *rdest;
00610 int  *cdest;
00611 {
00612    void Csgamx2d();
00613    Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda,  rA, cA, *ldia,
00614             *rdest, *cdest);
00615 }
00616 
00617 void sgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00618 int *ConTxt;
00619 char *scope;
00620 char *top;
00621 int *m;
00622 int *n;
00623 float *A;
00624 int *lda;
00625 int *rA;
00626 int *cA;
00627 int *ldia;
00628 int *rdest;
00629 int  *cdest;
00630 {
00631    void Csgamn2d();
00632    Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
00633             *rdest, *cdest);
00634 }
00635 
00636 void cgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
00637 int *ConTxt;
00638 int *m;
00639 int *n;
00640 float *A;
00641 int *lda;
00642 int *rdest;
00643 int  *cdest;
00644 {
00645    void Ccgesd2d();
00646    Ccgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
00647 }
00648 
00649 void cgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
00650 int *ConTxt;
00651 int *m;
00652 int *n;
00653 float *A;
00654 int *lda;
00655 int *rsrc;
00656 int  *csrc;
00657 {
00658    void Ccgerv2d();
00659    Ccgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
00660 }
00661 
00662 void cgebs2d_(ConTxt, scope, top, m, n, A, lda)
00663 int *ConTxt;
00664 char *scope;
00665 char *top;
00666 int *m;
00667 int *n;
00668 float *A;
00669 int  *lda;
00670 {
00671    void Ccgebs2d();
00672    Ccgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
00673 }
00674 
00675 void cgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
00676 int *ConTxt;
00677 char *scope;
00678 char *top;
00679 int *m;
00680 int *n;
00681 float *A;
00682 int *lda;
00683 int *rsrc;
00684 int  *csrc;
00685 {
00686    void Ccgebr2d();
00687    Ccgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
00688 }
00689 
00690 void ctrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
00691 int *ConTxt;
00692 char *uplo;
00693 char *diag;
00694 int *m;
00695 int *n;
00696 float *A;
00697 int *lda;
00698 int *rdest;
00699 int  *cdest;
00700 {
00701    void Cctrsd2d();
00702    Cctrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
00703 }
00704 
00705 void ctrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
00706 int *ConTxt;
00707 char *uplo;
00708 char *diag;
00709 int *m;
00710 int *n;
00711 float *A;
00712 int *lda;
00713 int *rsrc;
00714 int  *csrc;
00715 {
00716    void Cctrrv2d();
00717    Cctrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00718 }
00719 
00720 void ctrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
00721 int *ConTxt;
00722 char *scope;
00723 char *top;
00724 char *uplo;
00725 char *diag;
00726 int *m;
00727 int *n;
00728 float *A;
00729 int  *lda;
00730 {
00731    void Cctrbs2d();
00732    Cctrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
00733 }
00734 
00735 void ctrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
00736 int *ConTxt;
00737 char *scope;
00738 char *top;
00739 char *uplo;
00740 char *diag;
00741 int *m;
00742 int *n;
00743 float *A;
00744 int *lda;
00745 int *rsrc;
00746 int  *csrc;
00747 {
00748    void Cctrbr2d();
00749    Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00750 }
00751 
00752 void cgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
00753 int *ConTxt;
00754 char *scope;
00755 char *top;
00756 int *m;
00757 int *n;
00758 float *A;
00759 int *lda;
00760 int *rdest;
00761 int  *cdest;
00762 {
00763    void Ccgsum2d();
00764    Ccgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
00765 }
00766 
00767 void cgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00768 int *ConTxt;
00769 char *scope;
00770 char *top;
00771 int *m;
00772 int *n;
00773 float *A;
00774 int *lda;
00775 int *rA;
00776 int *cA;
00777 int *ldia;
00778 int *rdest;
00779 int  *cdest;
00780 {
00781    void Ccgamx2d();
00782    Ccgamx2d(*ConTxt, scope, top, *m, *n, A, *lda,  rA, cA, *ldia,
00783             *rdest, *cdest);
00784 }
00785 
00786 void cgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00787 int *ConTxt;
00788 char *scope;
00789 char *top;
00790 int *m;
00791 int *n;
00792 float *A;
00793 int *lda;
00794 int *rA;
00795 int *cA;
00796 int *ldia;
00797 int *rdest;
00798 int  *cdest;
00799 {
00800    void Ccgamn2d();
00801    Ccgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
00802             *rdest, *cdest);
00803 }
00804 
00805 void zgesd2d_(ConTxt, m, n, A, lda, rdest, cdest)
00806 int *ConTxt;
00807 int *m;
00808 int *n;
00809 double *A;
00810 int *lda;
00811 int *rdest;
00812 int  *cdest;
00813 {
00814    void Czgesd2d();
00815    Czgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest);
00816 }
00817 
00818 void zgerv2d_(ConTxt, m, n, A, lda, rsrc, csrc)
00819 int *ConTxt;
00820 int *m;
00821 int *n;
00822 double *A;
00823 int *lda;
00824 int *rsrc;
00825 int  *csrc;
00826 {
00827    void Czgerv2d();
00828    Czgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc);
00829 }
00830 
00831 void zgebs2d_(ConTxt, scope, top, m, n, A, lda)
00832 int *ConTxt;
00833 char *scope;
00834 char *top;
00835 int *m;
00836 int *n;
00837 double *A;
00838 int  *lda;
00839 {
00840    void Czgebs2d();
00841    Czgebs2d(*ConTxt, scope, top, *m, *n, A, *lda);
00842 }
00843 
00844 void zgebr2d_(ConTxt, scope, top, m, n, A, lda, rsrc, csrc)
00845 int *ConTxt;
00846 char *scope;
00847 char *top;
00848 int *m;
00849 int *n;
00850 double *A;
00851 int *lda;
00852 int *rsrc;
00853 int  *csrc;
00854 {
00855    void Czgebr2d();
00856    Czgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc);
00857 }
00858 
00859 void ztrsd2d_(ConTxt, uplo, diag, m, n, A, lda, rdest, cdest)
00860 int *ConTxt;
00861 char *uplo;
00862 char *diag;
00863 int *m;
00864 int *n;
00865 double *A;
00866 int *lda;
00867 int *rdest;
00868 int  *cdest;
00869 {
00870    void Cztrsd2d();
00871    Cztrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest);
00872 }
00873 
00874 void ztrrv2d_(ConTxt, uplo, diag, m, n, A, lda, rsrc, csrc)
00875 int *ConTxt;
00876 char *uplo;
00877 char *diag;
00878 int *m;
00879 int *n;
00880 double *A;
00881 int *lda;
00882 int *rsrc;
00883 int  *csrc;
00884 {
00885    void Cztrrv2d();
00886    Cztrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00887 }
00888 
00889 void ztrbs2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda)
00890 int *ConTxt;
00891 char *scope;
00892 char *top;
00893 char *uplo;
00894 char *diag;
00895 int *m;
00896 int *n;
00897 double *A;
00898 int  *lda;
00899 {
00900    void Cztrbs2d();
00901    Cztrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda);
00902 }
00903 
00904 void ztrbr2d_(ConTxt, scope, top, uplo, diag, m, n, A, lda, rsrc, csrc)
00905 int *ConTxt;
00906 char *scope;
00907 char *top;
00908 char *uplo;
00909 char *diag;
00910 int *m;
00911 int *n;
00912 double *A;
00913 int *lda;
00914 int *rsrc;
00915 int  *csrc;
00916 {
00917    void Cztrbr2d();
00918    Cztrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc);
00919 }
00920 
00921 void zgsum2d_(ConTxt, scope, top, m, n, A, lda, rdest, cdest)
00922 int *ConTxt;
00923 char *scope;
00924 char *top;
00925 int *m;
00926 int *n;
00927 double *A;
00928 int *lda;
00929 int *rdest;
00930 int  *cdest;
00931 {
00932    void Czgsum2d();
00933    Czgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest);
00934 }
00935 
00936 void zgamx2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00937 int *ConTxt;
00938 char *scope;
00939 char *top;
00940 int *m;
00941 int *n;
00942 double *A;
00943 int *lda;
00944 int *rA;
00945 int *cA;
00946 int *ldia;
00947 int *rdest;
00948 int  *cdest;
00949 {
00950    void Czgamx2d();
00951    Czgamx2d(*ConTxt, scope, top, *m, *n, A, *lda,  rA, cA, *ldia,
00952             *rdest, *cdest);
00953 }
00954 
00955 void zgamn2d_(ConTxt, scope, top, m, n, A, lda, rA, cA, ldia, rdest, cdest)
00956 int *ConTxt;
00957 char *scope;
00958 char *top;
00959 int *m;
00960 int *n;
00961 double *A;
00962 int *lda;
00963 int *rA;
00964 int *cA;
00965 int *ldia;
00966 int *rdest;
00967 int  *cdest;
00968 {
00969    void Czgamn2d();
00970    Czgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia,
00971             *rdest, *cdest);
00972 }
00973 #endif