BLACS -- Point to Point

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

IF( MYROW.EQ.0 .AND. MYCOL.EQ.0 ) THEN

CALL DGESD2D( ICTXT, 5, 1, X, 5, 1, 0 )

ELSE IF( MYROW.EQ.1 .AND. MYCOL.EQ.0 ) THEN

CALL DGERV2D( ICTXT, 5, 1, Y, 5, 0, 0 )

END IF

Previous slide

Next slide

Back to first slide

View graphic version