SEARCH NEW RPMS DIRECTORIES ABOUT FAQ VARIOUS BLOG DONATE YUM REPOSITORY

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

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

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.