xjumpm()

subroutine xjumpm	(	integer	jumpm,
		integer, dimension(2)	mult,
		integer, dimension(2)	iadd,
		integer, dimension(2)	irann,
		integer, dimension(2)	iranm,
		integer, dimension(2)	iam,
		integer, dimension(2)	icm
	)

Definition at line 84 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
*
*     .. Scalar Arguments ..
      INTEGER            JUMPM
*     ..
*     .. Array Arguments ..
      INTEGER            IADD(2), IAM(2), ICM(2), IRANM(2), IRANN(2)
      INTEGER            MULT(2)
*     ..
*
*  =====================================================================
*
*     .. Local Scalars ..
      INTEGER            I
*     ..
*     .. Local Arrays ..
      INTEGER            J(2)
*     ..
*     .. External Subroutines ..
      EXTERNAL           ladd, lmul
*     ..
*     .. Executable Statements ..
*
      IF( jumpm.GT.0 ) THEN
         DO 10 i = 1, 2
            iam(i) = mult(i)
            icm(i) = iadd(i)
   10    CONTINUE
         DO 20 i = 1, jumpm-1
            CALL lmul( iam, mult, j )
            iam(1) = j(1)
            iam(2) = j(2)
            CALL lmul( icm, mult, j )
            CALL ladd( iadd, j, icm )
   20    CONTINUE
         CALL lmul( irann, iam, j )
         CALL ladd( j, icm, iranm )
      ELSE
         iranm(1) = irann(1)
         iranm(2) = irann(2)
      END IF
*
      RETURN
*
*     End of XJUMPM
*

Here is the call graph for this function: