lmul()

subroutine lmul	(	integer, dimension(2)	k,
		integer, dimension(2)	j,
		integer, dimension(2)	i
	)

Definition at line 40 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            I(2), J(2), K(2)
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER            IPOW15, IPOW16, IPOW30
      parameter( ipow15=2**15, ipow16=2**16, ipow30=2**30 )
*     ..
*     .. Local Scalars ..
      INTEGER            KT, LT
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          mod
*     ..
*     .. Executable Statements ..
*
      kt   = k(1)*j(1)
      IF( kt.LT.0 ) kt = (kt+ipow30) + ipow30
      i(1) = mod(kt,ipow16)
      lt   = k(1)*j(2) + k(2)*j(1)
      IF( lt.LT.0 ) lt = (lt+ipow30) + ipow30
      kt   = kt/ipow16 + lt
      IF( kt.LT.0 ) kt = (kt+ipow30) + ipow30
      i(2) = mod( kt, ipow15 )
*
      RETURN
*
*     End of LMUL
*

Here is the caller graph for this function: