scalapack-2.1.0/SRC/pztrevc.f

219      $                   MYCOL, MYROW, NB, NPCOL, NPROW, RSRC  local
263       CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
264       SELF = MYROW*NPCOL + MYCOL
322          CALL INFOG2L( I, I, DESCT, NPROW, NPCOL, MYROW, MYCOL, IROW,
324          IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
360             CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
362             IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
369             CALL INFOG2L( 1, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL, IROW,
371             IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
383                CALL INFOG2L( K, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL,
385                IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
394                CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
396                IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
409                CALL INFOG2L( KI, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL,
411                IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
442                CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
444                IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
472             CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
474             IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
481             CALL INFOG2L( N, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL, IROW,
483             IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
494                CALL INFOG2L( K, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL,
496                IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
505                CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
507                IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
519                CALL INFOG2L( KI, 1, DESCW, NPROW, NPCOL, MYROW, MYCOL,
521                IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
552                CALL INFOG2L( K, K, DESCT, NPROW, NPCOL, MYROW, MYCOL,
554                IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN