Previous: schud Up: ../linpack.html Next: sdot

SCOPY

       SUBROUTINE  SCOPY(N,SX,INCX,SY,INCY)
       REAL SX(1),SY(1)
       INTEGER INCX,INCY,N
 C
 C     COPIES A VECTOR, X, TO A VECTOR, Y.
 C     USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO 1.
 C     JACK DONGARRA, LINPACK, 3/11/78.
 C