BLACS -- Broadcast

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

IF( MYROW.EQ.0 ) THEN

IF( MYCOL.EQ.0 ) THEN

CALL DGEBS2D( ICTXT, ‘Row’, ‘ ‘, 2, 2, A, 3 )

ELSE

CALL DGEBR2D( ICTXT, ‘Row’, ‘ ‘, 2, 2, A, 3, 0, 0 )

END IF

END IF

Previous slide

Next slide

Back to first slide

View graphic version