ibtspcoord()

subroutine ibtspcoord	(	character*1	scope,
		integer	pnum,
		integer	myrow,
		integer	mycol,
		integer	npcol,
		integer	prow,
		integer	pcol
	)

Definition at line 14848 of file blacstest.f.

      CHARACTER*1 SCOPE
      INTEGER PNUM, MYROW, MYCOL, NPCOL, PROW, PCOL
*
      IF( scope .EQ. 'R' ) THEN
         prow = myrow
         pcol = pnum
      ELSE IF( scope .EQ. 'C' ) THEN
         prow = pnum
         pcol = mycol
      ELSE
         prow = pnum / npcol
         pcol = mod( pnum, npcol )
      END IF
      RETURN
*
*     End of ibtspcoord
*

Here is the caller graph for this function: