76 SUBROUTINE icopy( N, SX, INCX, SY, INCY )
87 INTEGER sx( * ), sy( * )
93 INTEGER i, ix, iy, m, mp1
102 IF( incx.EQ.1 .AND. incy.EQ.1 )
110 $ ix = ( -n+1 )*incx + 1
112 $ iy = ( -n+1 )*incy + 1
137 sy( i+1 ) = sx( i+1 )
138 sy( i+2 ) = sx( i+2 )
139 sy( i+3 ) = sx( i+3 )
140 sy( i+4 ) = sx( i+4 )
141 sy( i+5 ) = sx( i+5 )
142 sy( i+6 ) = sx( i+6 )
subroutine icopy(N, SX, INCX, SY, INCY)
ICOPY