MAN page from openSUSE Leap 42 blas-man-3.5.0-9.1.noarch.rpm
cswap.f
Section: LAPACK (3)
Updated: Fri Nov 4 2016
Index NAME
cswap.f -
SYNOPSIS
Functions/Subroutines
subroutine CSWAP (N, CX, INCX, CY, INCY)
CSWAP
Function/Subroutine Documentation
subroutine CSWAP (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
CSWAP
Purpose:
CSWAP interchanges two vectors.
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 cswap.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 COMPLEX ctemp69 INTEGER i,ix,iy70 * ..71 IF (n.LE.0) RETURN72 IF (incx.EQ.1 .AND. incy.EQ.1) THEN73 *74 * code for both increments equal to 175 DO i = 1,n76 ctemp = cx(i)77 cx(i) = cy(i)78 cy(i) = ctemp79 END DO80 ELSE81 *82 * code for unequal increments or equal increments not equal83 * to 184 *85 ix = 186 iy = 187 IF (incx.LT.0) ix = (-n+1)*incx + 188 IF (incy.LT.0) iy = (-n+1)*incy + 189 DO i = 1,n90 ctemp = cx(ix)91 cx(ix) = cy(iy)92 cy(iy) = ctemp93 ix = ix + incx94 iy = iy + incy95 END DO96 END IF97 RETURN
Author
Generated automatically by Doxygen for LAPACK from the source code.
Index
- NAME
- SYNOPSIS
- Functions/Subroutines
- Function/Subroutine Documentation
- subroutine CSWAP (integer N, complex, dimension(*) CX, integer INCX, complex, dimension(*) CY, integer INCY)
- Author
This document was created byman2html,using the manual pages.
