/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Cchkvec.c | 183 if( DESCX[CTXT_] != ICTXT ) 192 ICTXT ); 244 PB_Cwarn( ICTXT, -1, ROUT, 255 PB_Cwarn( ICTXT, -1, ROUT, 267 PB_Cwarn( ICTXT, -1, ROUT, 318 PB_Cwarn( ICTXT, -1, ROUT, 329 PB_Cwarn( ICTXT, -1, ROUT, 357 PB_Cwarn( ICTXT, -1, ROUT, 384 PB_Cwarn( ICTXT, -1, ROUT, 409 PB_Cwarn( ICTXT, -1, ROUT, [all …]
|
H A D | PB_Cchkmat.c | 20 void PB_Cchkmat( int ICTXT, char * ROUT, char * MNAME, int M, int MPOS0, in PB_Cchkmat() argument 29 int DPOS0, IA, ICTXT, * INFO, JA, M, MPOS0, N, NPOS0; in PB_Cchkmat() 136 Cblacs_gridinfo( ICTXT, &nprow, &npcol, &myrow, &mycol ); 195 if( DESCA[CTXT_] != ICTXT ) 204 ICTXT ); 256 PB_Cwarn( ICTXT, -1, ROUT, 267 PB_Cwarn( ICTXT, -1, ROUT, 318 PB_Cwarn( ICTXT, -1, ROUT, 328 PB_Cwarn( ICTXT, -1, ROUT, 374 PB_Cwarn( ICTXT, -1, ROUT, [all …]
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pddttrf.f | 421 ICTXT = DESCA_1XP( 2 ) 430 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 545 CALL PXERBLA( ICTXT, 'PDDTTRF', -INFO ) 592 ICTXT_SAVE = ICTXT 593 ICTXT = ICTXT_NEW 656 CALL DTRSD2D( ICTXT, 'U', 'N', 1, 1, 769 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) 771 CALL IGEBR2D( ICTXT, 'A', ' ', 1, 1, INFO, 1, 0, 0 ) 936 CALL DGERV2D( ICTXT, INT_ONE, INT_ONE, 1020 ICTXT = ICTXT_SAVE [all …]
|
H A D | psdttrf.f | 421 ICTXT = DESCA_1XP( 2 ) 430 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 545 CALL PXERBLA( ICTXT, 'PSDTTRF', -INFO ) 592 ICTXT_SAVE = ICTXT 593 ICTXT = ICTXT_NEW 656 CALL STRSD2D( ICTXT, 'U', 'N', 1, 1, 769 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) 771 CALL IGEBR2D( ICTXT, 'A', ' ', 1, 1, INFO, 1, 0, 0 ) 936 CALL SGERV2D( ICTXT, INT_ONE, INT_ONE, 1020 ICTXT = ICTXT_SAVE [all …]
|
H A D | pcdttrf.f | 426 ICTXT = DESCA_1XP( 2 ) 464 CALL PXERBLA( ICTXT, 472 CALL PXERBLA( ICTXT, 487 CALL PXERBLA( ICTXT, 502 CALL PXERBLA( ICTXT, 541 CALL GLOBCHK( ICTXT, 7, PARAM_CHECK, 7, 556 CALL PXERBLA( ICTXT, 'PCDTTRF', -INFO ) 603 ICTXT_SAVE = ICTXT 604 ICTXT = ICTXT_NEW 667 CALL CTRSD2D( ICTXT, 'U', 'N', 1, 1, [all …]
|
H A D | pzdttrf.f | 426 ICTXT = DESCA_1XP( 2 ) 464 CALL PXERBLA( ICTXT, 472 CALL PXERBLA( ICTXT, 487 CALL PXERBLA( ICTXT, 502 CALL PXERBLA( ICTXT, 541 CALL GLOBCHK( ICTXT, 7, PARAM_CHECK, 7, 556 CALL PXERBLA( ICTXT, 'PZDTTRF', -INFO ) 603 ICTXT_SAVE = ICTXT 604 ICTXT = ICTXT_NEW 667 CALL ZTRSD2D( ICTXT, 'U', 'N', 1, 1, [all …]
|
H A D | pdpttrf.f | 414 ICTXT = DESCA_1XP( 2 ) 423 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 538 CALL PXERBLA( ICTXT, 'PDPTTRF', -INFO ) 585 ICTXT_SAVE = ICTXT 586 ICTXT = ICTXT_NEW 645 CALL DTRSD2D( ICTXT, 'U', 'N', 1, 1, 764 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) 766 CALL IGEBR2D( ICTXT, 'A', ' ', 1, 1, INFO, 1, 0, 0 ) 994 ICTXT = ICTXT_SAVE 1007 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) [all …]
|
H A D | pspttrf.f | 414 ICTXT = DESCA_1XP( 2 ) 423 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 538 CALL PXERBLA( ICTXT, 'PSPTTRF', -INFO ) 585 ICTXT_SAVE = ICTXT 586 ICTXT = ICTXT_NEW 645 CALL STRSD2D( ICTXT, 'U', 'N', 1, 1, 764 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) 766 CALL IGEBR2D( ICTXT, 'A', ' ', 1, 1, INFO, 1, 0, 0 ) 994 ICTXT = ICTXT_SAVE 1007 CALL IGEBS2D( ICTXT, 'A', ' ', 1, 1, INFO, 1 ) [all …]
|
H A D | pcpttrf.f | 423 ICTXT = DESCA_1XP( 2 ) 461 CALL PXERBLA( ICTXT, 469 CALL PXERBLA( ICTXT, 484 CALL PXERBLA( ICTXT, 499 CALL PXERBLA( ICTXT, 538 CALL GLOBCHK( ICTXT, 7, PARAM_CHECK, 7, 553 CALL PXERBLA( ICTXT, 'PCPTTRF', -INFO ) 600 ICTXT_SAVE = ICTXT 601 ICTXT = ICTXT_NEW 660 CALL CTRSD2D( ICTXT, 'U', 'N', 1, 1, [all …]
|
H A D | pzpttrf.f | 420 ICTXT = DESCA_1XP( 2 ) 458 CALL PXERBLA( ICTXT, 466 CALL PXERBLA( ICTXT, 481 CALL PXERBLA( ICTXT, 496 CALL PXERBLA( ICTXT, 535 CALL GLOBCHK( ICTXT, 7, PARAM_CHECK, 7, 550 CALL PXERBLA( ICTXT, 'PZPTTRF', -INFO ) 597 ICTXT_SAVE = ICTXT 598 ICTXT = ICTXT_NEW 657 CALL ZTRSD2D( ICTXT, 'U', 'N', 1, 1, [all …]
|
H A D | pzpbtrf.f | 414 ICTXT = DESCA_1XP( 2 ) 477 CALL PXERBLA( ICTXT, 485 CALL PXERBLA( ICTXT, 500 CALL PXERBLA( ICTXT, 515 CALL PXERBLA( ICTXT, 620 ICTXT_SAVE = ICTXT 621 ICTXT = ICTXT_NEW 869 CALL ZGESD2D( ICTXT, BW, BW, 974 CALL ZGERV2D( ICTXT, BW, BW, 1257 CALL ZGESD2D( ICTXT, BW, BW, [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pzludriver.f | 184 CALL BLACS_GET( -1, 0, ICTXT ) 349 CALL PZFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1, 356 CALL PZCHEKPAD( ICTXT, 'PZLANGE', MP, NQ, 379 CALL BLACS_BARRIER( ICTXT, 'All' ) 401 CALL PZCHEKPAD( ICTXT, 'PZGETRF', MP, NQ, 434 CALL PZCHEKPAD( ICTXT, 'PZGETRRV', 555 CALL PZFILLPAD( ICTXT, LWORK, 1, 578 CALL PZCHEKPAD( ICTXT, 'PZGECON', 709 CALL BLACS_BARRIER( ICTXT, 'All' ) 984 CALL PZCHEKPAD( ICTXT, 'PZGETRRV', [all …]
|
H A D | pcludriver.f | 184 CALL BLACS_GET( -1, 0, ICTXT ) 349 CALL PCFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1, 356 CALL PCCHEKPAD( ICTXT, 'PCLANGE', MP, NQ, 379 CALL BLACS_BARRIER( ICTXT, 'All' ) 401 CALL PCCHEKPAD( ICTXT, 'PCGETRF', MP, NQ, 434 CALL PCCHEKPAD( ICTXT, 'PCGETRRV', 555 CALL PCFILLPAD( ICTXT, LWORK, 1, 578 CALL PCCHEKPAD( ICTXT, 'PCGECON', 709 CALL BLACS_BARRIER( ICTXT, 'All' ) 984 CALL PCCHEKPAD( ICTXT, 'PCGETRRV', [all …]
|
H A D | pdludriver.f | 179 CALL BLACS_GET( -1, 0, ICTXT ) 344 CALL PDFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1, 351 CALL PDCHEKPAD( ICTXT, 'PDLANGE', MP, NQ, 374 CALL BLACS_BARRIER( ICTXT, 'All' ) 396 CALL PDCHEKPAD( ICTXT, 'PDGETRF', MP, NQ, 429 CALL PDCHEKPAD( ICTXT, 'PDGETRRV', 549 CALL PDFILLPAD( ICTXT, LWORK, 1, 572 CALL PDCHEKPAD( ICTXT, 'PDGECON', 703 CALL BLACS_BARRIER( ICTXT, 'All' ) 978 CALL PDCHEKPAD( ICTXT, 'PDGETRRV', [all …]
|
H A D | psludriver.f | 180 CALL BLACS_GET( -1, 0, ICTXT ) 345 CALL PSFILLPAD( ICTXT, WORKSIZ-IPOSTPAD, 1, 352 CALL PSCHEKPAD( ICTXT, 'PSLANGE', MP, NQ, 375 CALL BLACS_BARRIER( ICTXT, 'All' ) 397 CALL PSCHEKPAD( ICTXT, 'PSGETRF', MP, NQ, 430 CALL PSCHEKPAD( ICTXT, 'PSGETRRV', 550 CALL PSFILLPAD( ICTXT, LWORK, 1, 573 CALL PSCHEKPAD( ICTXT, 'PSGECON', 704 CALL BLACS_BARRIER( ICTXT, 'All' ) 979 CALL PSCHEKPAD( ICTXT, 'PSGETRRV', [all …]
|
H A D | pclltdriver.f | 182 CALL BLACS_GET( -1, 0, ICTXT ) 354 CALL PCCHEKPAD( ICTXT, 'PCLANHE', NP, NQ, 371 $ CALL PCFILLPAD( ICTXT, NP, NQ, 377 CALL BLACS_BARRIER( ICTXT, 'All' ) 438 CALL PCFILLPAD( ICTXT, LWORK, 1, 457 CALL PCCHEKPAD( ICTXT, 'PCPOCON', 461 CALL PCCHEKPAD( ICTXT, 'PCPOCON', 548 $ CALL PCFILLPAD( ICTXT, NP, MYRHS, 578 CALL BLACS_BARRIER( ICTXT, 'All' ) 843 CALL PCCHEKPAD( ICTXT, 'PCGETRRV', [all …]
|
H A D | pdlltdriver.f | 178 CALL BLACS_GET( -1, 0, ICTXT ) 352 CALL PDCHEKPAD( ICTXT, 'PDLANSY', 366 $ CALL PDFILLPAD( ICTXT, NP, NQ, 372 CALL BLACS_BARRIER( ICTXT, 'All' ) 433 CALL PDFILLPAD( ICTXT, LWORK, 1, 452 CALL PDCHEKPAD( ICTXT, 'PDPOCON', 456 CALL PDCHEKPAD( ICTXT, 'PDPOCON', 543 $ CALL PDFILLPAD( ICTXT, NP, MYRHS, 573 CALL BLACS_BARRIER( ICTXT, 'All' ) 838 CALL PDCHEKPAD( ICTXT, 'PDGETRRV', [all …]
|
H A D | pzlltdriver.f | 182 CALL BLACS_GET( -1, 0, ICTXT ) 354 CALL PZCHEKPAD( ICTXT, 'PZLANHE', NP, NQ, 371 $ CALL PZFILLPAD( ICTXT, NP, NQ, 377 CALL BLACS_BARRIER( ICTXT, 'All' ) 438 CALL PZFILLPAD( ICTXT, LWORK, 1, 457 CALL PZCHEKPAD( ICTXT, 'PZPOCON', 461 CALL PZCHEKPAD( ICTXT, 'PZPOCON', 548 $ CALL PZFILLPAD( ICTXT, NP, MYRHS, 578 CALL BLACS_BARRIER( ICTXT, 'All' ) 843 CALL PZCHEKPAD( ICTXT, 'PZGETRRV', [all …]
|
H A D | pslltdriver.f | 179 CALL BLACS_GET( -1, 0, ICTXT ) 353 CALL PSCHEKPAD( ICTXT, 'PSLANSY', 367 $ CALL PSFILLPAD( ICTXT, NP, NQ, 373 CALL BLACS_BARRIER( ICTXT, 'All' ) 434 CALL PSFILLPAD( ICTXT, LWORK, 1, 453 CALL PSCHEKPAD( ICTXT, 'PSPOCON', 457 CALL PSCHEKPAD( ICTXT, 'PSPOCON', 544 $ CALL PSFILLPAD( ICTXT, NP, MYRHS, 574 CALL BLACS_BARRIER( ICTXT, 'All' ) 839 CALL PSCHEKPAD( ICTXT, 'PSGETRRV', [all …]
|
H A D | pdlsdriver.f | 179 CALL BLACS_GET( -1, 0, ICTXT ) 180 CALL BLACS_GRIDINIT( ICTXT, 'Row-major', NPROW, NPCOL ) 263 CALL DESCINIT( DESCA, M, N, NB, NB, 0, 0, ICTXT, 328 CALL PDCHEKPAD( ICTXT, 'PDQRT13', MP, NQ, 331 CALL PDCHEKPAD( ICTXT, 'PDQRT13', 370 $ NBRHS, 0, 0, ICTXT, 608 CALL BLACS_BARRIER( ICTXT, 'All' ) 696 CALL PDFILLPAD( ICTXT, 779 CALL PDFILLPAD( ICTXT, 878 CALL PDFILLPAD( ICTXT, [all …]
|
H A D | pslsdriver.f | 178 CALL BLACS_GET( -1, 0, ICTXT ) 179 CALL BLACS_GRIDINIT( ICTXT, 'Row-major', NPROW, NPCOL ) 262 CALL DESCINIT( DESCA, M, N, NB, NB, 0, 0, ICTXT, 327 CALL PSCHEKPAD( ICTXT, 'PSQRT13', MP, NQ, 330 CALL PSCHEKPAD( ICTXT, 'PSQRT13', 369 $ NBRHS, 0, 0, ICTXT, 607 CALL BLACS_BARRIER( ICTXT, 'All' ) 695 CALL PSFILLPAD( ICTXT, 778 CALL PSFILLPAD( ICTXT, 877 CALL PSFILLPAD( ICTXT, [all …]
|
H A D | pzlsdriver.f | 182 CALL BLACS_GET( -1, 0, ICTXT ) 266 CALL DESCINIT( DESCA, M, N, NB, NB, 0, 0, ICTXT, 331 CALL PZCHEKPAD( ICTXT, 'PZQRT13', MP, NQ, 334 CALL PZCHEKPAD( ICTXT, 'PZQRT13', 373 $ NBRHS, 0, 0, ICTXT, 512 $ NBRHS, 0, 0, ICTXT, 611 CALL BLACS_BARRIER( ICTXT, 'All' ) 701 CALL PZFILLPAD( ICTXT, 784 CALL PZFILLPAD( ICTXT, 883 CALL PZFILLPAD( ICTXT, [all …]
|
H A D | pclsdriver.f | 182 CALL BLACS_GET( -1, 0, ICTXT ) 266 CALL DESCINIT( DESCA, M, N, NB, NB, 0, 0, ICTXT, 331 CALL PCCHEKPAD( ICTXT, 'PCQRT13', MP, NQ, 334 CALL PCCHEKPAD( ICTXT, 'PCQRT13', 373 $ NBRHS, 0, 0, ICTXT, 512 $ NBRHS, 0, 0, ICTXT, 611 CALL BLACS_BARRIER( ICTXT, 'All' ) 701 CALL PCFILLPAD( ICTXT, 784 CALL PCFILLPAD( ICTXT, 883 CALL PCFILLPAD( ICTXT, [all …]
|
H A D | pcinvdriver.f | 204 CALL BLACS_GET( -1, 0, ICTXT ) 458 CALL PCFILLPAD( ICTXT, LIPIV, 1, 467 CALL PCCHEKPAD( ICTXT, 'PCLANGE', 489 CALL PCCHEKPAD( ICTXT, 'PCLANTR', 503 CALL PCCHEKPAD( ICTXT, 'PCLANHE', 511 CALL PCFILLPAD( ICTXT, LIPIV, 1, 520 CALL PCCHEKPAD( ICTXT, 'PCLANSY', 527 CALL PCFILLPAD( ICTXT, LIPIV, 1, 547 CALL BLACS_BARRIER( ICTXT, 'All' ) 679 CALL PCCHEKPAD( ICTXT, 'PCINVCHK', [all …]
|
H A D | pzinvdriver.f | 204 CALL BLACS_GET( -1, 0, ICTXT ) 458 CALL PZFILLPAD( ICTXT, LIPIV, 1, 467 CALL PZCHEKPAD( ICTXT, 'PZLANGE', 489 CALL PZCHEKPAD( ICTXT, 'PZLANTR', 503 CALL PZCHEKPAD( ICTXT, 'PZLANHE', 511 CALL PZFILLPAD( ICTXT, LIPIV, 1, 520 CALL PZCHEKPAD( ICTXT, 'PZLANSY', 527 CALL PZFILLPAD( ICTXT, LIPIV, 1, 547 CALL BLACS_BARRIER( ICTXT, 'All' ) 679 CALL PZCHEKPAD( ICTXT, 'PZINVCHK', [all …]
|