btunpack()

subroutine btunpack	(	character*1	test,
		integer, dimension(memlen)	mem,
		integer	memlen,
		integer	nop,
		integer	nscope,
		integer	trep,
		integer	tcoh,
		integer	ntop,
		integer	nshape,
		integer	nmat,
		integer	nsrc,
		integer	ngrid,
		integer	opptr,
		integer	scopeptr,
		integer	topptr,
		integer	uploptr,
		integer	diagptr,
		integer	mptr,
		integer	nptr,
		integer	ldsptr,
		integer	lddptr,
		integer	ldiptr,
		integer	rsrcptr,
		integer	csrcptr,
		integer	rdestptr,
		integer	cdestptr,
		integer	pptr,
		integer	qptr
	)

Definition at line 1392 of file blacstest.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     .. Scalar Arguments ..
      CHARACTER*1 TEST
      INTEGER CDESTPTR, CSRCPTR, DIAGPTR, LDDPTR, LDIPTR, LDSPTR,
     $        MEMLEN, MPTR, NGRID, NMAT, NOP, NPTR, NSCOPE, NSHAPE,
     $        NSRC, NTOP, OPPTR, PPTR, QPTR, RDESTPTR, RSRCPTR,
     $        SCOPEPTR, TCOH, TOPPTR, TREP, UPLOPTR
*     ..
*     .. Array Arguments ..
      INTEGER MEM(MEMLEN)
*     ..
*
*  Purpose
*  =======
*  BTUNPACK: Figure pointers into MEM where the various input values
*  are stored.
*
*  Arguments
*  =========
*  TEST     (input) CHARACTER*1
*           The test we're unpacking for:
*            = 'S' : SDRV test
*            = 'B' : BSBR test
*            = 'C' : Combine test
*
*  MEM      (input) INTEGER array of dimension MEMLEN
*           Memory containing values and number of items.
*
*  MEMLEN   (input/output) INTEGER
*           The number of elements that are used in MEM.
*
*  .
*  .
*  .
*
*  =====================================================================
*
*     .. Local Scalars ..
      INTEGER NDEST, NLDI
*     ..
*     .. Executable Statements ..
*
*     Test is SDRV
*
      IF( test .EQ. 'S' ) THEN
         nop    = 0
         nshape = mem(memlen-3)
         nscope = 0
         trep   = 0
         tcoh   = 0
         ntop   = 0
         nmat   = mem(memlen-2)
         nldi   = 0
         nsrc   = mem(memlen-1)
         ndest  = nsrc
         ngrid  = mem(memlen)
         memlen = memlen - 3
*
*     Test is BSBR
*
      ELSE IF ( test .EQ. 'B' ) THEN
         nop    = 0
         nscope = mem(memlen-5)
         trep   = 0
         tcoh   = 0
         ntop   = mem(memlen-4)
         nshape = mem(memlen-3)
         nmat   = mem(memlen-2)
         nldi   = 0
         nsrc   = mem(memlen-1)
         ndest  = 0
         ngrid  = mem(memlen)
         memlen = memlen - 5
*
*     Test is COMB
*
      ELSE
         nop    = mem(memlen-7)
         nscope = mem(memlen-6)
         trep   = mem(memlen-5)
         tcoh   = mem(memlen-4)
         ntop   = mem(memlen-3)
         nshape = 0
         nmat   = mem(memlen-2)
         nldi   = nmat
         nsrc   = 0
         ndest  = mem(memlen-1)
         ngrid  = mem(memlen)
         memlen = memlen - 6
      END IF
      opptr = 1
      scopeptr = opptr + nop
      topptr = scopeptr + nscope
      uploptr = topptr + ntop
      diagptr = uploptr + nshape
      mptr = 1
      nptr = mptr + nmat
      ldsptr = nptr + nmat
      lddptr = ldsptr + nmat
      ldiptr = lddptr + nmat
      rsrcptr = ldiptr + nldi
      csrcptr = rsrcptr + nsrc
      rdestptr = csrcptr + nsrc
      cdestptr = rdestptr + ndest
      pptr = cdestptr + ndest
      qptr = pptr + ngrid
      IF( nsrc .EQ. 0 ) nsrc = ndest
*
      RETURN
*
*     End of BTUNPACK
*

Here is the caller graph for this function: