icopy.f3

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

N

!>          N is INTEGER
!>          The length of the vectors SX and SY.
!> 

SX

!>          SX is INTEGER array, dimension (1+(N-1)*abs(INCX))
!>          The vector X.
!> 

INCX

!>          INCX is INTEGER
!>          The spacing between consecutive elements of SX.
!> 

SY

!>          SY is INTEGER array, dimension (1+(N-1)*abs(INCY))
!>          The vector Y.
!> 

INCY

!>          INCY is INTEGER
!>          The spacing between consecutive elements of SY.
!> 

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.