Home
last modified time | relevance | path

Searched refs:ICTXT (Results 1 – 25 of 934) sorted by relevance

12345678910>>...38

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_Cchkvec.c183 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 DPB_Cchkmat.c20 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 Dpddttrf.f421 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 Dpsdttrf.f421 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 Dpcdttrf.f426 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 Dpzdttrf.f426 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 Dpdpttrf.f414 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 Dpspttrf.f414 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 Dpcpttrf.f423 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 Dpzpttrf.f420 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 Dpzpbtrf.f414 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 Dpzludriver.f184 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 Dpcludriver.f184 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 Dpdludriver.f179 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 Dpsludriver.f180 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 Dpclltdriver.f182 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 Dpdlltdriver.f178 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 Dpzlltdriver.f182 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 Dpslltdriver.f179 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 Dpdlsdriver.f179 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 Dpslsdriver.f178 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 Dpzlsdriver.f182 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 Dpclsdriver.f182 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 Dpcinvdriver.f204 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 Dpzinvdriver.f204 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 …]

12345678910>>...38