MAN page from openSUSE Leap 42 blas-man-3.5.0-9.1.noarch.rpm
ccopy.f
Section: LAPACK (3)
Updated: Fri Nov 4 2016
Index NAME
ccopy.f -
SYNOPSIS
Functions/Subroutines
subroutine CCOPY (N, CX, INCX, CY, INCY)
CCOPY
Function/Subroutine Documentation
subroutine CCOPY (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
CCOPY
Purpose:
CCOPY copies a vector x to a vector y.
Author:
- Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
- November 2011
Further Details:
jack dongarra, linpack, 3/11/78. modified 12/3/93, array(1) declarations changed to array(*)
Definition at line 52 of file ccopy.f.
52 *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..--56 * November 201157 *58 * .. Scalar Arguments ..59 INTEGER incx,incy,n60 * ..61 * .. Array Arguments ..62 COMPLEX cx(*),cy(*)63 * ..64 *65 * =====================================================================66 *67 * .. Local Scalars ..68 INTEGER i,ix,iy69 * ..70 IF (n.LE.0) RETURN71 IF (incx.EQ.1 .AND. incy.EQ.1) THEN72 *73 * code for both increments equal to 174 *75 DO i = 1,n76 cy(i) = cx(i)77 END DO78 ELSE79 *80 * code for unequal increments or equal increments81 * not equal to 182 *83 ix = 184 iy = 185 IF (incx.LT.0) ix = (-n+1)*incx + 186 IF (incy.LT.0) iy = (-n+1)*incy + 187 DO i = 1,n88 cy(iy) = cx(ix)89 ix = ix + incx90 iy = iy + incy91 END DO92 END IF93 RETURN
Author
Generated automatically by Doxygen for LAPACK from the source code.
Index
- NAME
- SYNOPSIS
- Functions/Subroutines
- Function/Subroutine Documentation
- subroutine CCOPY (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
- Author
This document was created byman2html,using the manual pages.
