BLACS -- Combine

CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )

IF( MYROW.EQ.0 ) THEN

K00 = MYCOL

CALL IGSUM2D( ICTXT, ‘Row’, ‘ ‘, 1, 1, K00, 1, 0, 0 )

KALL = MYCOL

CALL IGSUM2D( ICTXT, ‘Row’, ‘ ‘, 1, 1, KALL, 1, -1, 0 )

END IF

Previous slide

Next slide

Back to first slide

View graphic version