Lines Matching refs:MYROW

208      $                   MYCOL, MYROW, NODE, NPCOL, NPROW, NH, NMIN, NZ,  local
246       CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
247       NODE = MYROW*NPCOL + MYCOL
250       UP = MOD( MYROW+NPROW-1, NPROW )
251       DOWN = MOD( MYROW+1, NPROW )
270       CALL INFOG2L( ILO, ILO, DESCA, NPROW, NPCOL, MYROW, MYCOL,
272       IF ( MYROW .EQ. II ) THEN
285       IF ( MYROW .EQ. II .AND. MYCOL .EQ. JJ ) THEN
324             CALL INFOG2L( ILO, I+1, DESCA, NPROW, NPCOL, MYROW,
326             IF( MYROW .EQ. II ) THEN
340             CALL INFOG2L( LTOP, ILO, DESCA, NPROW, NPCOL, MYROW,
344      $              MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
345                IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
360             CALL INFOG2L( ILOZ, ILO, DESCZ, NPROW, NPCOL, MYROW,
364      $              MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
365                IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
392             CALL INFOG2L( ILO, I+1, DESCA, NPROW, NPCOL, MYROW,
394             IF( MYROW .EQ. UP ) THEN
395                IF( MYROW .EQ. II ) THEN
407                IF( MYROW .EQ. II ) THEN
447             CALL INFOG2L( LTOP, ILO, DESCA, NPROW, NPCOL, MYROW,
452      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
453                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
466      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
467                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
474      $                    KLN, MYROW, RIGHT )
475                      CALL SGERV2D( CONTXT, KLN, D1, WORK, KLN, MYROW,
485      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
486                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
492                      CALL SGESD2D( CONTXT, KLN, D1, WORK, KLN, MYROW,
495      $                    KLN, MYROW, LEFT )
509             CALL INFOG2L( ILOZ, ILO, DESCZ, NPROW, NPCOL, MYROW,
514      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
515                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
528      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
529                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
536      $                    KLN, MYROW, RIGHT )
537                      CALL SGERV2D( CONTXT, KLN, D1, WORK, KLN, MYROW,
547      $                 MYROW, MYCOL, IROW1, ICOL1, ITMP1, ITMP2 )
548                   IF( MYROW .NE. ITMP1 ) IROW1 = IROW1-1
554                      CALL SGESD2D( CONTXT, KLN, D1, WORK, KLN, MYROW,
557      $                    KLN, MYROW, LEFT )
577          LLDTMP = NUMROC( NH, NH, MYROW, 0, NPROW )
601                LLDTMP = NUMROC( KLN, LWORK / NH, MYROW, 0, NPROW )
618                LLDTMP = NUMROC( KLN, LWORK / NH, MYROW, 0, NPROW )