1
subroutine ccopy(n,cx,incx,cy,incy)
3
* $Id: ccopy.f 19695 2010-10-29 16:51:02Z d3y133 $
6
c copies a vector, x, to a vector, y.
7
c jack dongarra, linpack, 3/11/78.
8
c modified 12/3/93, array(1) declarations changed to array(*)
11
integer i,incx,incy,ix,iy,n
14
if(incx.eq.1.and.incy.eq.1)go to 20
16
c code for unequal increments or equal increments
21
if(incx.lt.0)ix = (-n+1)*incx + 1
22
if(incy.lt.0)iy = (-n+1)*incy + 1
30
c code for both increments equal to 1
3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
11
* SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
13
* .. Scalar Arguments ..
16
* .. Array Arguments ..
26
*> CCOPY copies a vector x to a vector y.
32
*> \author Univ. of Tennessee
33
*> \author Univ. of California Berkeley
34
*> \author Univ. of Colorado Denver
37
*> \date November 2011
39
*> \ingroup complex_blas_level1
41
*> \par Further Details:
42
* =====================
46
*> jack dongarra, linpack, 3/11/78.
47
*> modified 12/3/93, array(1) declarations changed to array(*)
50
* =====================================================================
51
SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
53
* -- Reference BLAS level1 routine (version 3.4.0) --
54
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
55
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
58
* .. Scalar Arguments ..
61
* .. Array Arguments ..
65
* =====================================================================
71
IF (INCX.EQ.1 .AND. INCY.EQ.1) THEN
73
* code for both increments equal to 1
80
* code for unequal increments or equal increments
85
IF (INCX.LT.0) IX = (-N+1)*INCX + 1
86
IF (INCY.LT.0) IY = (-N+1)*INCY + 1