BLACS -- Basics

* define 1 x (NPROCS/2+1) process grid

NPROW = 1

NPCOL = NPROCS / 2 + 1

CALL BLACS_GRIDINIT( ICTXT, ‘Row’, NPROW, NPCOL )

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

* If I’m not in the grid, go to end of program

IF( MYROW.EQ.-1) GO TO 10

...

CALL BLACS_GRIDEXIT( ICTXT)

10 CONTINUE

CALL BLACS_EXIT( 0 )

END

Previous slide

Next slide

Back to first slide

View graphic version