ladd()

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

Definition at line 5 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            IPOW16, IPOW15
      parameter( ipow16=2**16, ipow15=2**15 )
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          mod
*     ..
*     .. Executable Statements ..
*
      i(1) = mod( k(1)+j(1), ipow16 )
      i(2) = mod( (k(1)+j(1)) / ipow16+k(2)+j(2), ipow15 )
*
      RETURN
*
*     End of LADD
*