ibtspnum()

integer function ibtspnum	(	character*1	scope,
		integer	prow,
		integer	pcol,
		integer	npcol
	)

Definition at line 14869 of file blacstest.f.

      CHARACTER*1 SCOPE
      INTEGER PROW, PCOL, NPCOL
      IF( scope .EQ. 'R' ) THEN
         ibtspnum = pcol
      ELSE IF( scope .EQ. 'C' ) THEN
         ibtspnum = prow
      ELSE
         ibtspnum = prow*npcol + pcol
      END IF
*
      RETURN
*
*     End of ibtscpnum
*

Here is the call graph for this function:

Here is the caller graph for this function: