icopy()

subroutine icopy	(	integer	n,
		integer, dimension( * )	sx,
		integer	incx,
		integer, dimension( * )	sy,
		integer	incy
	)

ICOPY

Purpose:

 ICOPY copies an integer vector x to an integer vector y.
 Uses unrolled loops for increments equal to 1.

Parameters

[in]	N	N is INTEGER The length of the vectors SX and SY.
[in]	SX	SX is INTEGER array, dimension (1+(N-1)*abs(INCX)) The vector X.
[in]	INCX	INCX is INTEGER The spacing between consecutive elements of SX.
[out]	SY	SY is INTEGER array, dimension (1+(N-1)*abs(INCY)) The vector Y.
[in]	INCY	INCY is INTEGER The spacing between consecutive elements of SY.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 74 of file icopy.f.

*
*  -- LAPACK test routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      INTEGER            INCX, INCY, N
*     ..
*     .. Array Arguments ..
      INTEGER            SX( * ), SY( * )
*     ..
*
*  =====================================================================
*
*     .. Local Scalars ..
      INTEGER            I, IX, IY, M, MP1
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          mod
*     ..
*     .. Executable Statements ..
*
      IF( n.LE.0 )
     $   RETURN
      IF( incx.EQ.1 .AND. incy.EQ.1 )
     $   GO TO 20
*
*     Code for unequal increments or equal increments not equal to 1
*
      ix = 1
      iy = 1
      IF( incx.LT.0 )
     $   ix = ( -n+1 )*incx + 1
      IF( incy.LT.0 )
     $   iy = ( -n+1 )*incy + 1
      DO 10 i = 1, n
         sy( iy ) = sx( ix )
         ix = ix + incx
         iy = iy + incy
   10 CONTINUE
      RETURN
*
*     Code for both increments equal to 1
*
*     Clean-up loop
*
   20 CONTINUE
      m = mod( n, 7 )
      IF( m.EQ.0 )
     $   GO TO 40
      DO 30 i = 1, m
         sy( i ) = sx( i )
   30 CONTINUE
      IF( n.LT.7 )
     $   RETURN
   40 CONTINUE
      mp1 = m + 1
      DO 50 i = mp1, n, 7
         sy( i ) = sx( i )
         sy( i+1 ) = sx( i+1 )
         sy( i+2 ) = sx( i+2 )
         sy( i+3 ) = sx( i+3 )
         sy( i+4 ) = sx( i+4 )
         sy( i+5 ) = sx( i+5 )
         sy( i+6 ) = sx( i+6 )
   50 CONTINUE
      RETURN
*
*     End of ICOPY
*

Here is the caller graph for this function: