/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pzlahqr.f | 327 NODE = MYROW*NPCOL + MYCOL 331 UP = MOD( MYROW+NPROW-1, NPROW ) 332 DOWN = MOD( MYROW+1, NPROW ) 786 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. 849 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 924 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 975 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. 1125 IF( MYROW.NE.ICURROW( KI ) ) THEN 1148 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. 1230 IF( ( MYROW.NE.ICURROW( KI ) ) .AND. [all …]
|
H A D | pdlahqr.f | 300 NODE = MYROW*NPCOL + MYCOL 304 UP = MOD( MYROW+NPROW-1, NPROW ) 305 DOWN = MOD( MYROW+1, NPROW ) 383 LIHIZ = NUMROC( IHIZ, HBL, MYROW, 0, NPROW ) 586 ICOL1 = NUMROC( N, HBL, MYROW, 0, NPROW ) 596 ITMP2 = NUMROC( N, HBL, MYROW, 0, NPROW ) 736 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. 766 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 806 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 833 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. [all …]
|
H A D | pslahqr.f | 300 NODE = MYROW*NPCOL + MYCOL 304 UP = MOD( MYROW+NPROW-1, NPROW ) 305 DOWN = MOD( MYROW+1, NPROW ) 383 LIHIZ = NUMROC( IHIZ, HBL, MYROW, 0, NPROW ) 586 ICOL1 = NUMROC( N, HBL, MYROW, 0, NPROW ) 596 ITMP2 = NUMROC( N, HBL, MYROW, 0, NPROW ) 736 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. 766 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 806 $ ( MYROW.EQ.ICURROW( KI ) ) .AND. 833 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. [all …]
|
H A D | pclattrs.f | 271 $ JINC, JLAST, LDA, LDX, MB, MYCOL, MYROW, NB, local 332 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL ) 614 CALL INFOG2L( IX+J-1, JX, DESCX, NPROW, NPCOL, MYROW, 797 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 844 $ MYROW, ITMP2X ) 876 $ MYROW, ITMP2X ) 894 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 1016 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 1063 $ MYROW, ITMP2X ) 1097 $ MYROW, ITMP2X ) [all …]
|
H A D | pzlattrs.f | 271 $ JINC, JLAST, LDA, LDX, MB, MYCOL, MYROW, NB, local 332 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL ) 614 CALL INFOG2L( IX+J-1, JX, DESCX, NPROW, NPCOL, MYROW, 797 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 844 $ MYROW, ITMP2X ) 876 $ MYROW, ITMP2X ) 894 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 1016 $ MYROW, MYCOL, IROW, ICOL, ITMP1, 1063 $ MYROW, ITMP2X ) 1097 $ MYROW, ITMP2X ) [all …]
|
H A D | pslaedz.f | 35 $ IZ2ROW, J, JJQ, JJZ1, JJZ2, MYCOL, MYROW, N2, 57 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 65 $ MYROW, MYCOL, IIZ1, JJZ1, IZ1ROW, IZ1COL ) 67 IF( ( MYROW.EQ.IZ1ROW ) .AND. ( NQ1.NE.0 ) ) THEN 69 IF( MYROW.NE.IQROW .OR. MYCOL.NE.IQCOL ) 75 IF( MYROW.EQ.IQROW .AND. MYCOL.EQ.IQCOL ) THEN 104 $ MYROW, MYCOL, IIZ2, JJZ2, IZ2ROW, IZ2COL ) 106 IF( ( MYROW.EQ.IZ2ROW ) .AND. ( NQ2.NE.0 ) ) THEN 108 IF( MYROW.NE.IQROW .OR. MYCOL.NE.IQCOL ) 114 IF( MYROW.EQ.IQROW .AND. MYCOL.EQ.IQCOL ) THEN [all …]
|
H A D | pdlaedz.f | 35 $ IZ2ROW, J, JJQ, JJZ1, JJZ2, MYCOL, MYROW, N2, local 57 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 65 $ MYROW, MYCOL, IIZ1, JJZ1, IZ1ROW, IZ1COL ) 67 IF( ( MYROW.EQ.IZ1ROW ) .AND. ( NQ1.NE.0 ) ) THEN 69 IF( MYROW.NE.IQROW .OR. MYCOL.NE.IQCOL ) 75 IF( MYROW.EQ.IQROW .AND. MYCOL.EQ.IQCOL ) THEN 104 $ MYROW, MYCOL, IIZ2, JJZ2, IZ2ROW, IZ2COL ) 106 IF( ( MYROW.EQ.IZ2ROW ) .AND. ( NQ2.NE.0 ) ) THEN 108 IF( MYROW.NE.IQROW .OR. MYCOL.NE.IQCOL ) 114 IF( MYROW.EQ.IQROW .AND. MYCOL.EQ.IQCOL ) THEN [all …]
|
H A D | pdlaqsy.f | 194 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 227 IF( MYROW.EQ.IAROW ) THEN 241 IF( MYROW.EQ.IAROW ) 252 IF( MYROW.EQ.IAROW ) THEN 272 IF( MYROW.EQ.IAROW ) 285 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW ) 286 IF( MYROW.EQ.IAROW ) 291 IF( MYROW.EQ.IAROW ) THEN 311 IF( MYROW.EQ.IAROW ) 322 IF( MYROW.EQ.IAROW ) THEN [all …]
|
H A D | pslaqsy.f | 194 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 227 IF( MYROW.EQ.IAROW ) THEN 241 IF( MYROW.EQ.IAROW ) 252 IF( MYROW.EQ.IAROW ) THEN 272 IF( MYROW.EQ.IAROW ) 285 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW ) 286 IF( MYROW.EQ.IAROW ) 291 IF( MYROW.EQ.IAROW ) THEN 311 IF( MYROW.EQ.IAROW ) 322 IF( MYROW.EQ.IAROW ) THEN [all …]
|
H A D | pclaqsy.f | 195 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 228 IF( MYROW.EQ.IAROW ) THEN 242 IF( MYROW.EQ.IAROW ) 253 IF( MYROW.EQ.IAROW ) THEN 273 IF( MYROW.EQ.IAROW ) 286 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW ) 287 IF( MYROW.EQ.IAROW ) 292 IF( MYROW.EQ.IAROW ) THEN 312 IF( MYROW.EQ.IAROW ) 323 IF( MYROW.EQ.IAROW ) THEN [all …]
|
H A D | pzlaqsy.f | 195 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 228 IF( MYROW.EQ.IAROW ) THEN 242 IF( MYROW.EQ.IAROW ) 253 IF( MYROW.EQ.IAROW ) THEN 273 IF( MYROW.EQ.IAROW ) 286 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW ) 287 IF( MYROW.EQ.IAROW ) 292 IF( MYROW.EQ.IAROW ) THEN 312 IF( MYROW.EQ.IAROW ) 323 IF( MYROW.EQ.IAROW ) THEN [all …]
|
H A D | pzlantr.f | 209 IF( MYROW.EQ.IAROW ) 270 IF( MYROW.EQ.IAROW ) 352 IF( MYROW.EQ.IAROW ) 459 IF( MYROW.EQ.IAROW ) 558 IF( MYROW.EQ.IAROW ) 619 IF( MYROW.EQ.0 ) THEN 689 IF( MYROW.EQ.IAROW ) 785 IF( MYROW.EQ.IAROW ) 842 $ MYROW, 0 ) 928 IF( MYROW.EQ.IAROW ) [all …]
|
H A D | pclantr.f | 209 IF( MYROW.EQ.IAROW ) 270 IF( MYROW.EQ.IAROW ) 352 IF( MYROW.EQ.IAROW ) 459 IF( MYROW.EQ.IAROW ) 558 IF( MYROW.EQ.IAROW ) 619 IF( MYROW.EQ.0 ) THEN 689 IF( MYROW.EQ.IAROW ) 785 IF( MYROW.EQ.IAROW ) 842 $ MYROW, 0 ) 928 IF( MYROW.EQ.IAROW ) [all …]
|
H A D | pdlantr.f | 208 IF( MYROW.EQ.IAROW ) 269 IF( MYROW.EQ.IAROW ) 351 IF( MYROW.EQ.IAROW ) 458 IF( MYROW.EQ.IAROW ) 557 IF( MYROW.EQ.IAROW ) 618 IF( MYROW.EQ.0 ) THEN 688 IF( MYROW.EQ.IAROW ) 784 IF( MYROW.EQ.IAROW ) 841 $ MYROW, 0 ) 927 IF( MYROW.EQ.IAROW ) [all …]
|
H A D | pslantr.f | 208 IF( MYROW.EQ.IAROW ) 269 IF( MYROW.EQ.IAROW ) 351 IF( MYROW.EQ.IAROW ) 458 IF( MYROW.EQ.IAROW ) 557 IF( MYROW.EQ.IAROW ) 618 IF( MYROW.EQ.0 ) THEN 688 IF( MYROW.EQ.IAROW ) 784 IF( MYROW.EQ.IAROW ) 841 $ MYROW, 0 ) 927 IF( MYROW.EQ.IAROW ) [all …]
|
H A D | pdlarfb.f | 292 IF( MYROW.EQ.ICROW ) 323 IF( MYROW.EQ.IVROW ) 331 IF( MYROW.EQ.IVROW ) 368 IF( MYROW.EQ.ILASTROW ) 407 IF( MYROW.EQ.IVROW ) THEN 436 IF( MYROW.EQ.IVROW ) THEN 604 IF( MYROW.EQ.ICROW ) THEN 621 IF( MYROW.EQ.IVROW ) THEN 702 IF( MYROW.EQ.ICROW ) 723 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pclarfb.f | 293 IF( MYROW.EQ.ICROW ) 324 IF( MYROW.EQ.IVROW ) 332 IF( MYROW.EQ.IVROW ) 369 IF( MYROW.EQ.ILASTROW ) 408 IF( MYROW.EQ.IVROW ) THEN 437 IF( MYROW.EQ.IVROW ) THEN 606 IF( MYROW.EQ.ICROW ) THEN 623 IF( MYROW.EQ.IVROW ) THEN 705 IF( MYROW.EQ.ICROW ) 726 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pslarfb.f | 292 IF( MYROW.EQ.ICROW ) 323 IF( MYROW.EQ.IVROW ) 331 IF( MYROW.EQ.IVROW ) 368 IF( MYROW.EQ.ILASTROW ) 407 IF( MYROW.EQ.IVROW ) THEN 436 IF( MYROW.EQ.IVROW ) THEN 604 IF( MYROW.EQ.ICROW ) THEN 621 IF( MYROW.EQ.IVROW ) THEN 702 IF( MYROW.EQ.ICROW ) 723 IF( MYROW.EQ.IVROW ) THEN [all …]
|
H A D | pzlarfb.f | 293 IF( MYROW.EQ.ICROW ) 324 IF( MYROW.EQ.IVROW ) 332 IF( MYROW.EQ.IVROW ) 369 IF( MYROW.EQ.ILASTROW ) 408 IF( MYROW.EQ.IVROW ) THEN 437 IF( MYROW.EQ.IVROW ) THEN 606 IF( MYROW.EQ.ICROW ) THEN 623 IF( MYROW.EQ.IVROW ) THEN 705 IF( MYROW.EQ.ICROW ) 726 IF( MYROW.EQ.IVROW ) THEN [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
H A D | pslaread.f | 42 $ JJ, K, LDA, M, MYCOL, MYROW, N, NPCOL, NPROW local 63 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 65 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 80 IF( MYROW.EQ.0 .AND. MYCOL.EQ.0 ) THEN 104 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 110 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN 113 ELSE IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 121 IF( MYROW.EQ.ICURROW ) 136 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN
|
H A D | pdlaread.f | 42 $ JJ, K, LDA, M, MYCOL, MYROW, N, NPCOL, NPROW local 63 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 65 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 80 IF( MYROW.EQ.0 .AND. MYCOL.EQ.0 ) THEN 104 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 110 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN 113 ELSE IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 121 IF( MYROW.EQ.ICURROW ) 136 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN
|
H A D | pclaread.f | 42 $ JJ, K, LDA, M, MYCOL, MYROW, N, NPCOL, NPROW local 64 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 66 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 81 IF( MYROW.EQ.0 .AND. MYCOL.EQ.0 ) THEN 105 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 112 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN 115 ELSE IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 124 IF( MYROW.EQ.ICURROW ) 139 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN
|
H A D | pzlaread.f | 42 $ JJ, K, LDA, M, MYCOL, MYROW, N, NPCOL, NPROW local 64 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 66 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 81 IF( MYROW.EQ.0 .AND. MYCOL.EQ.0 ) THEN 105 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 112 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN 115 ELSE IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN 124 IF( MYROW.EQ.ICURROW ) 139 IF( MYROW.EQ.IRREAD .AND. MYCOL.EQ.ICREAD ) THEN
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pddtlaschk.f | 178 $ MYCOL, MYROW, NB, NP, NPCOL, NPROW, NQ 224 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 230 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA, 234 NP = NUMROC( (3), DESCA( MB_ ), MYROW, 0, NPROW ) 248 $ IASEED, MYROW, MYCOL, NPROW, NPCOL ) 253 $ DESCA( LLD_ ), 0, 0, IASEED, MYROW, 264 $ MYROW, MYCOL-1 ) 270 $ LDA, MYROW, MYCOL+1 ) 288 $ LDA, MYROW, MYCOL+1 ) 293 $ MYROW, MYCOL-1 ) [all …]
|
H A D | psdtlaschk.f | 178 $ MYCOL, MYROW, NB, NP, NPCOL, NPROW, NQ 224 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL ) 230 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA, 234 NP = NUMROC( (3), DESCA( MB_ ), MYROW, 0, NPROW ) 248 $ IASEED, MYROW, MYCOL, NPROW, NPCOL ) 253 $ DESCA( LLD_ ), 0, 0, IASEED, MYROW, 264 $ MYROW, MYCOL-1 ) 270 $ LDA, MYROW, MYCOL+1 ) 288 $ LDA, MYROW, MYCOL+1 ) 293 $ MYROW, MYCOL-1 ) [all …]
|