SUBROUTINE SCOPY(N,SX,INCX,SY,INCY)
 
copies one real vector SX into another SY.  SY:= SX.
 
N      Input, INTEGER N, number of elements in the vectors.
 
SX     Input, REAL SX(N), real vector to be copied.
 
INCX   Input, INTEGER INCX, increment between elements of SX.  For contiguous
       elements, INCX = 1.
 
SY     Output, REAL SY(N), real result vector.
 
INCY   Input, INTEGER INCY, increment between elements of SY.  For contiguous
       elements, INCY = 1.