[ Previous | Next | Table of Contents | Index | Library Home | Legal | Search ]

**SUBROUTINE SCOPY(***N***,***X***,***INCX***,***Y***,***INCY***)**

**INTEGER** *INCX***,** *INCY***,** *N*

**REAL** *X***(*),** *Y***(*)**

SUBROUTINE DCOPY(N,X,INCX,Y,INCY)INTEGERINCX,INCY,NDOUBLE PRECISIONX(*),Y(*)

SUBROUTINE CCOPY(N,X,INCX,Y,INCY)INTEGERINCX,INCY,NCOMPLEXX(*),Y(*)

SUBROUTINE ZCOPY(N,X,INCX,Y,INCY)INTEGERINCX,INCY,NCOMPLEX*16X(*),Y(*)

The **SCOPY**,
**DCOPY**, **CCOPY**, or **ZCOPY** subroutine copies
vector *X* to vector *Y*.

For values of *N* <=
0, the subroutines return immediately.
**
**