jumpit()

subroutine jumpit	(	integer, dimension(2)	mult,
		integer, dimension(2)	iadd,
		integer, dimension(2)	irann,
		integer, dimension(2)	iranm
	)

Definition at line 182 of file pmatgeninc.f.

*
*  -- ScaLAPACK routine (version 1.7) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     May 1, 1997
*
*     .. Array Arguments ..
      INTEGER            IADD(2), IRANM(2), IRANN(2), MULT(2)
*     ..
*
*  =====================================================================
*
*     .. Local Arrays ..
      INTEGER            IAS(2), ICS(2), IRAND(2), J(2)
*     ..
*     .. External Subroutines ..
      EXTERNAL           ladd, lmul
*     ..
*     .. Common Blocks ..
      COMMON /rancom/    irand, ias, ics
      SAVE   /rancom/
*     ..
*     .. Executable Statements ..
*
      CALL lmul( irann, mult, j )
      CALL ladd( j, iadd, iranm )
*
      irand(1) = iranm(1)
      irand(2) = iranm(2)
*
      RETURN
*
*     End of JUMPIT
*

Here is the call graph for this function:

Here is the caller graph for this function: