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: