Lines Matching refs:MYROW
274 $ MYROW, NBULGE, NH, NODE, NPCOL, NPROW, NQ, NR,
326 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
327 NODE = MYROW*NPCOL + MYCOL
331 UP = MOD( MYROW+NPROW-1, NPROW )
332 DOWN = MOD( MYROW+1, NPROW )
407 CALL INFOG2L( ILO, ILO, DESCA, NPROW, NPCOL, MYROW, MYCOL,
409 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
420 CALL INFOG1L( ILOZ, HBL, NPROW, MYROW, IAFIRST, LILOZ, LIHIZ )
421 LIHIZ = NUMROC( IHIZ, HBL, MYROW, IAFIRST, NPROW )
474 CALL INFOG2L( L, L-1, DESCA, NPROW, NPCOL, MYROW, MYCOL,
476 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
580 CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
585 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
616 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST, LOCALI1, ICOL1 )
617 CALL INFOG1L( 1, HBL, NPROW, MYROW, IAFIRST, LOCALM, ICOL1 )
618 ICOL1 = NUMROC( MIN( M+3, I ), HBL, MYROW, IAFIRST, NPROW )
625 CALL INFOG1L( M, HBL, NPROW, MYROW, IAFIRST, II, ITMP2 )
627 CALL INFOG1L( 1, HBL, NPROW, MYROW, IAFIRST, ISTOP,
629 KP2ROW( 1 ) = NUMROC( M+2, HBL, MYROW, IAFIRST, NPROW )
743 CALL INFOG2L( K+1, K+1, DESCA, NPROW, NPCOL, MYROW,
786 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND.
849 $ ( MYROW.EQ.ICURROW( KI ) ) .AND.
924 $ ( MYROW.EQ.ICURROW( KI ) ) .AND.
960 CALL ZGERV2D( CONTXT, 3, 1, VCOPY, 3, MYROW,
975 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND.
1012 CALL ZGESD2D( CONTXT, 3, 1, VCOPY, 3, MYROW,
1099 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND. ( NPCOL.GT.1 ) .AND.
1105 $ 3*( ISTOP-ISTART+1 ), MYROW,
1125 IF( MYROW.NE.ICURROW( KI ) ) THEN
1148 IF( ( MYROW.EQ.ICURROW( KI ) ) .AND.
1230 IF( ( MYROW.NE.ICURROW( KI ) ) .AND.
1237 $ ( ICURROW( KI ).EQ.MYROW ) ) THEN
1253 IF( ( MYROW.NE.ICURROW( KI ) ) .AND.
1259 $ ( ICURROW( KI ).NE.MYROW ) ) THEN
1291 IF( MYROW.EQ.ICURROW( KI ) ) THEN
1401 IF( ( MYROW.NE.ICURROW( KI ) ) .AND.
1407 $ ( ICURROW( KI ).NE.MYROW ) ) THEN
1439 IF( MYROW.EQ.ICURROW( KI ) ) THEN
1514 IF( ( MYROW.NE.ICURROW( KI ) ) .AND.
1520 $ ( ICURROW( KI ).NE.MYROW ) ) THEN
1552 IF( MYROW.EQ.ICURROW( KI ) ) THEN
1613 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST, IROW1,
1615 IROW2 = NUMROC( ITMP1, HBL, MYROW, IAFIRST, NPROW )
1632 IF( MOD( ( ITMP1 / HBL ), NPROW ).EQ.MYROW )
1643 CALL INFOG1L( ITMP1+1, HBL, NPROW, MYROW,
1645 IROW2 = NUMROC( MIN( K+3, I ), HBL, MYROW,
1719 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST,
1721 IROW2 = NUMROC( ITMP1, HBL, MYROW, IAFIRST, NPROW )
1727 $ LDA, MYROW, RIGHT )
1731 $ LDA, MYROW, RIGHT )
1738 $ MYROW, LEFT )
1753 $ IROW2-IROW1+1, MYROW, LEFT )
1763 $ LDA, MYROW, RIGHT )
1768 $ LDA, MYROW, RIGHT )
1774 $ IROW2-IROW1+1, MYROW, LEFT )
1791 $ MYROW, LEFT )
1808 $ LDZ, MYROW, RIGHT )
1812 $ IROW1 ), LDZ, MYROW,
1818 $ IROW2-IROW1+1, MYROW, LEFT )
1836 $ IROW2-IROW1+1, MYROW,
1846 $ IROW1 ), LDZ, MYROW,
1852 $ IROW1 ), LDZ, MYROW,
1859 $ IROW2-IROW1+1, MYROW,
1878 $ IROW2-IROW1+1, MYROW, LEFT )
1945 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST,
1947 IROW2 = NUMROC( ITMP1, HBL, MYROW, IAFIRST, NPROW )
1953 $ MYROW, LEFT )
1970 $ IROW2-IROW1+1, MYROW, LEFT )
1980 $ IROW2-IROW1+1, MYROW, LEFT )
1997 $ MYROW, LEFT )
2014 $ IROW2-IROW1+1, MYROW, LEFT )
2032 $ IROW2-IROW1+1, MYROW,
2042 $ IROW2-IROW1+1, MYROW,
2061 $ IROW2-IROW1+1, MYROW, LEFT )
2125 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST,
2127 IROW2 = NUMROC( ITMP1, HBL, MYROW, IAFIRST, NPROW )
2134 $ LDA, MYROW, RIGHT )
2143 $ LDA, MYROW, RIGHT )
2161 $ IROW1 ), LDZ, MYROW,
2170 $ LDZ, MYROW, RIGHT )
2206 IF ( ICURROW( KI ).EQ.MYROW ) THEN
2219 CALL INFOG1L( 1, HBL, NPROW, MYROW, IAFIRST, ITMP2,
2221 ITMP1 = NUMROC( K+1, HBL, MYROW, IAFIRST, NPROW )
2222 IF( ICURROW( KI ).EQ.MYROW ) THEN
2268 CALL INFOG1L( I1, HBL, NPROW, MYROW, IAFIRST,
2270 LIHIH = NUMROC( I, HBL, MYROW, IAFIRST, NPROW )
2293 $ LIHIH-LILOH+1, MYROW, LEFT )
2304 $ LIHIH-LILOH+1, MYROW, LEFT )
2313 $ LDA, MYROW, RIGHT )
2320 $ LDA, MYROW, RIGHT )
2347 $ MYROW, LEFT )
2359 $ MYROW, LEFT )
2372 $ MYROW, RIGHT )
2375 $ MYROW, RIGHT )
2389 $ ( ICURROW( KI ).EQ.MYROW ) .AND. ( NPROW.GT.1 ) )
2394 $ ( ICURROW( KI ).EQ.MYROW ) .AND. ( NPROW.GT.1 ) )
2399 $ ( ( MYROW.EQ.ICURROW( KI ) ) .OR. ( DOWN.EQ.
2401 CALL INFOG1L( K2( KI )+1, HBL, NPROW, MYROW, IAFIRST,
2405 $ ( ( MYROW.EQ.ICURROW( KI ) ) .OR. ( UP.EQ.
2407 KP2ROW( KI ) = NUMROC( K2( KI )+3, HBL, MYROW,
2476 CALL INFOG2L( I, I, DESCA, NPROW, NPCOL, MYROW, MYCOL, IROW,
2478 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN