Lines Matching refs:MYROW
311 INTEGER NPROW, NPCOL, MYROW, MYCOL, NB, NPROCS, local
361 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
468 $ MYROW, MYCOL, ITT, JTT, TRSRC, TCSRC )
469 IF( MYROW.EQ.TRSRC .AND. MYCOL.EQ.TCSRC ) THEN
506 TROWS = NUMROC( N, NB, MYROW, DESCT(RSRC_), NPROW )
665 IWORK( IRSRC+K-1 ) = INDXG2P( IWORK(ILILO+K-1), NB, MYROW,
734 IF( MYROW.EQ.RSRC .OR. MYCOL.EQ.CSRC ) THEN
780 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC ) THEN
793 CALL INFOG2L( I, I-1, DESCT, NPROW, NPCOL, MYROW,
802 $ MYROW, MYCOL, ILOC1, JLOC1, RSRC, CSRC )
821 $ MYROW, MYCOL, ILOC, JLOC, RSRC, CSRC )
896 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC ) THEN
927 IF( MYROW.EQ.RSRC .OR. MYCOL.EQ.CSRC ) THEN
932 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC ) THEN
937 ELSEIF( MYROW.EQ.RSRC .OR. MYCOL.EQ.CSRC ) THEN
938 IF( NPCOL.GT.1 .AND. DIR.EQ.1 .AND. MYROW.EQ.RSRC )
987 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC ) THEN
1006 ELSEIF( MYROW.EQ.RSRC .OR. MYCOL.EQ.CSRC ) THEN
1007 IF( NPCOL.GT.1 .AND. DIR.EQ.1 .AND. MYROW.EQ.RSRC )
1025 IF((NPCOL.GT.1.AND.DIR.EQ.1.AND.MYROW.EQ.RSRC).OR.
1054 IF( (MYROW.EQ.RSRC .AND. DIR.EQ.1 ).OR.
1111 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1112 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 )
1128 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1130 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1153 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1155 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1172 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1174 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1210 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1211 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 )
1259 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1261 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1316 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1318 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1320 ILOC1 = INDXG2L( I+NWIN-KS, NB, MYROW,
1366 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
1368 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC1 )
1375 $ MYROW, DESCT( RSRC_ ), NPROW )
1427 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1428 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1439 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1440 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 )
1456 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1457 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 )
1470 $ MYROW, MYCOL, ILOC, JLOC, RSRC1, CSRC1 )
1471 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 )
1507 IF( MYROW.EQ.RSRC.AND.MYCOL.EQ.CSRC ) THEN
1518 ELSEIF( MYROW.EQ.RSRC .AND. DIR.EQ.1 ) THEN
1554 IF( MYROW.EQ.RSRC .AND. (.NOT. LIHI.GE.LILO+LSEL ) ) THEN
1683 IF( ( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) .OR.
1684 $ ( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) .OR.
1685 $ ( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) .OR.
1686 $ ( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) ) THEN
1698 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
1708 ILOC = INDXG2L( LIHIC+1, NB, MYROW,
1733 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1738 IF( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) THEN
1743 IF( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) THEN
1772 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1781 ILOC = INDXG2L( I, NB, MYROW, DESCT( RSRC_ ),
1797 IF( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) THEN
1802 IF( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) THEN
1807 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
1845 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1851 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
1864 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1865 ILOC = INDXG2L( I, NB, MYROW, DESCT( RSRC_ ),
1880 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
1881 ILOC = INDXG2L( I+DIM1, NB, MYROW, DESCT( RSRC_ ),
1896 IF( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) THEN
1897 ILOC = INDXG2L( I, NB, MYROW, DESCT( RSRC_ ),
1909 IF( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) THEN
1915 IF( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) THEN
1916 ILOC = INDXG2L( I+DIM1, NB, MYROW, DESCT( RSRC_ ),
1929 IF( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) THEN
1936 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
1948 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
1965 IF( ( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) .OR.
1966 $ ( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) ) THEN
2033 IF( ( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) .OR.
2034 $ ( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) ) THEN
2050 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
2051 ILOC = INDXG2L( I, NB, MYROW, DESCT( RSRC_ ),
2058 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2059 ILOC = INDXG2L( I+DIM1, NB, MYROW,
2080 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
2087 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2094 IF( MYROW.EQ.RSRC2 .AND. MYCOL.EQ.CSRC2 ) THEN
2095 ILOC = INDXG2L( I, NB, MYROW, DESCT( RSRC_ ),
2107 IF( MYROW.EQ.RSRC3 .AND. MYCOL.EQ.CSRC3 ) THEN
2108 ILOC = INDXG2L( I+DIM1, NB, MYROW,
2138 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
2147 ELSEIF( MYROW.EQ.RSRC1 .OR. MYCOL.EQ.CSRC1 ) THEN
2149 $ MYROW.EQ.RSRC1 ) THEN
2190 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2196 ELSEIF( MYROW.EQ.RSRC4 ) THEN
2219 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2254 IF( MYROW.EQ.RSRC1 .AND. MYCOL.EQ.CSRC1 ) THEN
2274 ELSEIF( MYROW.EQ.RSRC1 .OR. MYCOL.EQ.CSRC1 ) THEN
2276 $ MYROW.EQ.RSRC1 ) THEN
2289 IF( (NPCOL.GT.1.AND.DIR.EQ.1.AND.MYROW.EQ.RSRC1)
2302 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2315 ELSEIF( MYROW.EQ.RSRC4 .AND. DIR.EQ.1 .AND.
2331 IF( MYROW.EQ.RSRC4 .AND. MYCOL.EQ.CSRC4 ) THEN
2384 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2389 QROWS = NUMROC( N, NB, MYROW, DESCQ( RSRC_ ),
2394 TROWS = NUMROC( I-1, NB, MYROW, DESCT( RSRC_ ),
2425 $ NPROW, NPCOL, MYROW, MYCOL, ILOC,
2427 IF( MYROW.EQ.RSRC ) THEN
2444 $ DESCT, NPROW, NPCOL, MYROW, MYCOL,
2446 IF( MYROW.EQ.RSRC ) THEN
2466 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 ) THEN
2468 IF( MYROW.EQ.RSRC1 ) THEN
2471 $ NPCOL, MYROW, MYCOL, ILOC1, JLOC,
2476 $ DESCT, NPROW, NPCOL, MYROW, MYCOL,
2484 SOUTH = MOD( MYROW + 1, NPROW )
2494 IF( MYROW.EQ.RSRC4 ) THEN
2497 $ NPROW, NPCOL, MYROW, MYCOL, ILOC4,
2502 $ DESCT, NPROW, NPCOL, MYROW, MYCOL,
2510 NORTH = MOD( MYROW-1+NPROW, NPROW )
2530 $ NPROW, NPCOL, MYROW, MYCOL, ILOC,
2532 IF( MYROW.EQ.RSRC ) THEN
2549 $ DESCQ, NPROW, NPCOL, MYROW, MYCOL,
2551 IF( MYROW.EQ.RSRC ) THEN
2583 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2613 WORK(IPW8) = DBLE(MYROW)
2632 $ NPCOL, MYROW, MYCOL, ILOC,
2634 IF( MYROW.EQ.RSRC ) THEN
2648 $ NPROW, NPCOL, MYROW, MYCOL,
2650 IF( MYROW.EQ.RSRC ) THEN
2671 $ NPROW, NPCOL, MYROW, MYCOL,
2673 IF( MYROW.EQ.RSRC ) THEN
2689 $ DESCQ, NPROW, NPCOL, MYROW,
2692 IF( MYROW.EQ.RSRC ) THEN
2715 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC4
2719 $ NPCOL, MYROW, MYCOL, ILOC,
2730 IF( MYROW.EQ.RSRC4.AND.MYCOL.EQ.CSRC4
2734 $ NPROW, NPCOL, MYROW, MYCOL,
2749 IF( MYROW.EQ.RSRC1 ) THEN
2751 $ NPROW, NPCOL, MYROW, MYCOL,
2766 IF( MYROW.EQ.RSRC4 ) THEN
2768 $ DESCT, NPROW, NPCOL, MYROW,
2826 $ NPCOL, MYROW, MYCOL, ILOC,
2828 IF( MYROW.EQ.RSRC ) THEN
2854 $ NPROW, NPCOL, MYROW, MYCOL,
2856 IF( MYROW.EQ.RSRC ) THEN
2889 $ NPROW, NPCOL, MYROW, MYCOL,
2891 IF( MYROW.EQ.RSRC ) THEN
2920 $ DESCQ, NPROW, NPCOL, MYROW,
2923 IF( MYROW.EQ.RSRC ) THEN
2958 IF( MYROW.EQ.RSRC1.AND.MYCOL.EQ.CSRC4
2962 $ NPCOL, MYROW, MYCOL, ILOC,
2985 IF( MYROW.EQ.RSRC4.AND.MYCOL.EQ.CSRC4
2989 $ NPROW, NPCOL, MYROW, MYCOL,
3016 IF( MYROW.EQ.RSRC1 ) THEN
3018 $ NPROW, NPCOL, MYROW, MYCOL,
3046 IF( MYROW.EQ.RSRC4 ) THEN
3048 $ DESCT, NPROW, NPCOL, MYROW,
3098 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3100 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3111 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3113 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3129 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3131 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3142 $ NPROW, NPCOL, MYROW, MYCOL, ILOC,
3144 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3163 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3165 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC.AND.
3176 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3178 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC.AND.
3193 $ NPCOL, MYROW, MYCOL, ILOC, JLOC,
3195 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3206 $ NPROW, NPCOL, MYROW, MYCOL, ILOC,
3208 IF( MYROW.EQ.RSRC .AND. MYCOL.EQ.CSRC )
3267 RSRC = INDXG2P( K, NB, MYROW, DESCT( RSRC_ ), NPROW )
3269 IF( MYROW.NE.RSRC .OR. MYCOL.NE.CSRC )
3301 RSRC = INDXG2P( K, NB, MYROW, DESCT( RSRC_ ), NPROW )
3303 IF( MYROW.NE.RSRC .OR. MYCOL.NE.CSRC )
3336 CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
3338 IF( MYROW.EQ.TRSRC1 .AND. MYCOL.EQ.TCSRC1 ) THEN
3386 CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
3388 CALL INFOG2L( K, K+1, DESCT, NPROW, NPCOL, MYROW, MYCOL,
3390 CALL INFOG2L( K+1, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
3392 CALL INFOG2L( K+1, K+1, DESCT, NPROW, NPCOL, MYROW, MYCOL,
3394 IF( MYROW.EQ.TRSRC2 .AND. MYCOL.EQ.TCSRC2 ) THEN
3399 IF( MYROW.EQ.TRSRC3 .AND. MYCOL.EQ.TCSRC3 ) THEN
3404 IF( MYROW.EQ.TRSRC4 .AND. MYCOL.EQ.TCSRC4 ) THEN
3414 IF( MYROW.EQ.TRSRC1 .AND. MYCOL.EQ.TCSRC1 ) THEN