makegrids()

subroutine makegrids	(	integer, dimension(ngrids)	contexts,
		integer	outnum,
		integer	ngrids,
		integer, dimension(ngrids)	p,
		integer, dimension(ngrids)	q
	)

Definition at line 639 of file blacstest.f.

      INTEGER NGRIDS, OUTNUM
      INTEGER CONTEXTS(NGRIDS), P(NGRIDS), Q(NGRIDS)
      INTEGER  IBTMYPROC
      EXTERNAL ibtmyproc
      INTEGER NPROW, NPCOL, MYROW, MYCOL, I
*
      DO 10 i = 1, ngrids
         CALL blacs_get( 0, 0, contexts(i) )
         CALL blacs_gridinit( contexts(i), 'r', p(i), q(i) )
   10 CONTINUE
*
      DO 20 i = 1, ngrids
         CALL blacs_gridinfo( contexts(i), nprow, npcol, myrow, mycol )
         IF( nprow .GT. 0 ) THEN
            IF( nprow.NE.p(i) .OR. npcol.NE.q(i) ) THEN
               IF( ibtmyproc() .NE. 0 ) outnum = 6
               WRITE(outnum,1000) i
               IF( outnum .NE. 6 .AND. outnum .NE. 0 ) CLOSE(outnum)
               CALL blacs_abort( contexts(i), -1 )
            END IF
         END IF
   20 CONTINUE
*
 1000 FORMAT('Grid creation error trying to create grid #',i3)
      RETURN

Here is the caller graph for this function: