freegrids()

subroutine freegrids	(	integer	ngrids,
		integer, dimension(ngrids)	contexts
	)

Definition at line 667 of file blacstest.f.

      INTEGER NGRIDS
      INTEGER CONTEXTS(NGRIDS)
      INTEGER I, NPROW, NPCOL, MYROW, MYCOL
*
      DO 10 i = 1, ngrids
         CALL blacs_gridinfo( contexts(i), nprow, npcol, myrow, mycol )
         IF( myrow.LT.nprow .AND. mycol.LT.npcol )
     $      CALL blacs_gridexit( contexts(i) )
   10 CONTINUE
      RETURN

Here is the caller graph for this function: