/dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
H A D | pielget.f | 123 $ MYROW, NPCOL, NPROW 137 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 139 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA, 145 IF( MYROW.EQ.IAROW ) THEN 157 IF( MYROW.EQ.IAROW ) THEN 167 IF( ( MYROW.EQ.IAROW ).AND.( MYCOL.EQ.IACOL ) ) THEN 176 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL )
|
H A D | pdchekpad.f | 81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, 91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 92 IAM = MYROW*NPCOL + MYCOL 100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I, 115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post', 132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
|
H A D | pichekpad.f | 81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, local 91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 92 IAM = MYROW*NPCOL + MYCOL 100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I, 115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post', 132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
|
H A D | pschekpad.f | 81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, local 91 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 92 IAM = MYROW*NPCOL + MYCOL 100 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I, 115 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post', 132 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
|
H A D | pcchekpad.f | 81 INTEGER I, IAM, IDUMM, INFO, J, K, MYCOL, MYROW, 94 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 95 IAM = MYROW*NPCOL + MYCOL 103 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, ' pre', I, 118 WRITE( *, FMT = 9998 ) MYROW, MYCOL, MESS, 'post', 136 WRITE( *, FMT = 9997 ) MYROW, MYCOL, MESS,
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pclapv2.f | 156 $ MYROW, NBA, NPCOL, NPROW 189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL, 201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 214 IF( MYROW.EQ.ICURROW ) THEN 267 $ IPIV( ITMP ), JB, MYROW, ICURCOL ) 298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW, 301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1 322 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pdlapv2.f | 156 $ MYROW, NBA, NPCOL, NPROW 189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL, 201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 214 IF( MYROW.EQ.ICURROW ) THEN 267 $ IPIV( ITMP ), JB, MYROW, ICURCOL ) 298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW, 301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1 322 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pzlapv2.f | 156 $ MYROW, NBA, NPCOL, NPROW local 189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL, 201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 214 IF( MYROW.EQ.ICURROW ) THEN 267 $ IPIV( ITMP ), JB, MYROW, ICURCOL ) 298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW, 301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1 322 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pslapv2.f | 156 $ MYROW, NBA, NPCOL, NPROW local 189 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 195 CALL INFOG2L( IP, JP, DESCIP, NPROW, NPCOL, MYROW, MYCOL, 201 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 214 IF( MYROW.EQ.ICURROW ) THEN 267 $ IPIV( ITMP ), JB, MYROW, ICURCOL ) 298 CALL INFOG2L( IP+M-1, JP, DESCIP, NPROW, NPCOL, MYROW, 301 IPVWRK = NUMROC( DESCIP( M_ ), DESCIP( MB_ ), MYROW, 309 IF( MYROW.NE.ICURROW ) IIP = IIP - 1 322 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pclarfc.f | 296 IF( MYROW.EQ.ICROW ) 335 IF( MYROW.EQ.IVROW ) THEN 471 IF( MYROW.EQ.IVROW ) THEN 525 $ IPW, MYROW, IVCOL ) 559 RDEST = MYROW 576 IF( MYROW.EQ.ICROW ) THEN 607 IF( MYROW.EQ.IVROW ) THEN 615 ELSE IF( MYROW.EQ.ICROW ) THEN 660 IF( MYROW.EQ.ICROW ) THEN 712 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pdlarf.f | 295 IF( MYROW.EQ.ICROW ) 334 IF( MYROW.EQ.IVROW ) THEN 469 IF( MYROW.EQ.IVROW ) THEN 524 $ IPW, MYROW, IVCOL ) 560 RDEST = MYROW 577 IF( MYROW.EQ.ICROW ) THEN 609 IF( MYROW.EQ.IVROW ) THEN 617 ELSE IF( MYROW.EQ.ICROW ) THEN 662 IF( MYROW.EQ.ICROW ) THEN 713 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pslarf.f | 295 IF( MYROW.EQ.ICROW ) 334 IF( MYROW.EQ.IVROW ) THEN 469 IF( MYROW.EQ.IVROW ) THEN 524 $ IPW, MYROW, IVCOL ) 560 RDEST = MYROW 577 IF( MYROW.EQ.ICROW ) THEN 609 IF( MYROW.EQ.IVROW ) THEN 617 ELSE IF( MYROW.EQ.ICROW ) THEN 662 IF( MYROW.EQ.ICROW ) THEN 713 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pclarf.f | 296 IF( MYROW.EQ.ICROW ) 335 IF( MYROW.EQ.IVROW ) THEN 470 IF( MYROW.EQ.IVROW ) THEN 525 $ IPW, MYROW, IVCOL ) 561 RDEST = MYROW 578 IF( MYROW.EQ.ICROW ) THEN 611 IF( MYROW.EQ.IVROW ) THEN 619 ELSE IF( MYROW.EQ.ICROW ) THEN 664 IF( MYROW.EQ.ICROW ) THEN 715 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pzlarf.f | 296 IF( MYROW.EQ.ICROW ) 335 IF( MYROW.EQ.IVROW ) THEN 470 IF( MYROW.EQ.IVROW ) THEN 525 $ IPW, MYROW, IVCOL ) 561 RDEST = MYROW 578 IF( MYROW.EQ.ICROW ) THEN 611 IF( MYROW.EQ.IVROW ) THEN 619 ELSE IF( MYROW.EQ.ICROW ) THEN 664 IF( MYROW.EQ.ICROW ) THEN 715 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pzlarfc.f | 296 IF( MYROW.EQ.ICROW ) 335 IF( MYROW.EQ.IVROW ) THEN 471 IF( MYROW.EQ.IVROW ) THEN 525 $ IPW, MYROW, IVCOL ) 559 RDEST = MYROW 576 IF( MYROW.EQ.ICROW ) THEN 607 IF( MYROW.EQ.IVROW ) THEN 615 ELSE IF( MYROW.EQ.ICROW ) THEN 660 IF( MYROW.EQ.ICROW ) THEN 712 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pdhseqr.f | 255 $ MYROW, MYCOL, HROWS, HCOLS, IPW, NH, NB, local 285 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 338 HROWS = NUMROC( NL, NB, MYROW, DESCH(RSRC_), NPROW ) 379 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 392 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 412 CALL INFOG2L( ILO, ILO, DESCH, NPROW, NPCOL, MYROW, 414 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 622 IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN 627 IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN 632 IF( MYROW.EQ.HRSRC4 .AND. MYCOL.EQ.HCSRC4 ) THEN [all …]
|
H A D | pshseqr.f | 255 $ MYROW, MYCOL, HROWS, HCOLS, IPW, NH, NB, local 285 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 338 HROWS = NUMROC( NL, NB, MYROW, DESCH(RSRC_), NPROW ) 379 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 392 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 412 CALL INFOG2L( ILO, ILO, DESCH, NPROW, NPCOL, MYROW, 414 IF( MYROW.EQ.HRSRC .AND. MYCOL.EQ.HCSRC ) THEN 622 IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN 627 IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN 632 IF( MYROW.EQ.HRSRC4 .AND. MYCOL.EQ.HCSRC4 ) THEN [all …]
|
H A D | pcgeqpf.f | 216 $ MYROW, NPCOL, NPROW, NQ, NQ0, PVT local 244 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 306 IF( MYROW.EQ.IAROW ) 352 CALL DESCSET( DESCN, 1, DESCA( N_ ), 1, DESCA( NB_ ), MYROW, 411 $ MYROW, IPCOL ) 418 $ MYROW, IPCOL ) 419 CALL IGERV2D( ICTXT, 1, 1, IPIV( JJ ), 1, MYROW, 425 $ LDA, MYROW, ICURCOL ) 430 $ LDA, MYROW, ICURCOL ) 447 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pzgeqpf.f | 216 $ MYROW, NPCOL, NPROW, NQ, NQ0, PVT local 245 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 307 IF( MYROW.EQ.IAROW ) 353 CALL DESCSET( DESCN, 1, DESCA( N_ ), 1, DESCA( NB_ ), MYROW, 412 $ MYROW, IPCOL ) 419 $ MYROW, IPCOL ) 420 CALL IGERV2D( ICTXT, 1, 1, IPIV( JJ ), 1, MYROW, 426 $ LDA, MYROW, ICURCOL ) 431 $ LDA, MYROW, ICURCOL ) 448 IF( MYROW.EQ.ICURROW ) THEN [all …]
|
H A D | pclacgv.f | 119 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, local 137 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 141 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, 149 IF( MYROW.NE.IXROW ) 171 NP = NUMROC( N+IROFFX, DESCX( MB_ ), MYROW, IXROW, NPROW ) 172 IF( MYROW.EQ.IXROW )
|
H A D | pdlatrs.f | 39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP, 55 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 72 NP = NUMROC( N+IROFF, DESCX( MB_ ), MYROW, IXROW, NPROW ) 73 IF( MYROW.EQ.IXROW ) 80 $ LDX, MYROW, IXCOL )
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pspbmv1.f | 559 IF( MYROW .LT. 0 ) THEN 649 $ BW, MYROW, MYCOL+1 ) 683 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 724 $ BW, MYROW, MYCOL-1 ) 729 $ BW, MYROW, MYCOL-1 ) 746 $ BW, MYROW, MYCOL+1 ) 797 $ BW, MYROW, MYCOL-1 ) 837 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 872 $ BW, MYROW, MYCOL-1 ) 877 $ BW, MYROW, MYCOL-1 ) [all …]
|
H A D | pcpbmv1.f | 562 IF( MYROW .LT. 0 ) THEN 652 $ BW, MYROW, MYCOL+1 ) 686 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 727 $ BW, MYROW, MYCOL-1 ) 732 $ BW, MYROW, MYCOL-1 ) 749 $ BW, MYROW, MYCOL+1 ) 800 $ BW, MYROW, MYCOL-1 ) 840 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 875 $ BW, MYROW, MYCOL-1 ) 880 $ BW, MYROW, MYCOL-1 ) [all …]
|
H A D | pdpbmv1.f | 559 IF( MYROW .LT. 0 ) THEN 649 $ BW, MYROW, MYCOL+1 ) 683 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 724 $ BW, MYROW, MYCOL-1 ) 729 $ BW, MYROW, MYCOL-1 ) 746 $ BW, MYROW, MYCOL+1 ) 797 $ BW, MYROW, MYCOL-1 ) 837 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 872 $ BW, MYROW, MYCOL-1 ) 877 $ BW, MYROW, MYCOL-1 ) [all …]
|
H A D | pzpbmv1.f | 562 IF( MYROW .LT. 0 ) THEN 652 $ BW, MYROW, MYCOL+1 ) 686 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 727 $ BW, MYROW, MYCOL-1 ) 732 $ BW, MYROW, MYCOL-1 ) 749 $ BW, MYROW, MYCOL+1 ) 800 $ BW, MYROW, MYCOL-1 ) 840 $ WORK( BW*BW+1 ), BW, MYROW, MYCOL+1 ) 875 $ BW, MYROW, MYCOL-1 ) 880 $ BW, MYROW, MYCOL-1 ) [all …]
|