Loading...
Searching...
No Matches

## cswap()

subroutine cswap | ( | integer | n,
|  | complex, dimension(*) | cx,
|  | integer | incx,
|  | complex, dimension(*) | cy,
|  | integer | incy )

CSWAP

Purpose:

      !>
      !>   CSWAP interchanges two vectors.
      !>

Parameters

  [in]

  N

      !>          N is INTEGER
      !>         number of elements in input vector(s)
      !>

  [in,out]

  CX

      !>          CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
      !>

  [in]

  INCX

      !>          INCX is INTEGER
      !>         storage spacing between elements of CX
      !>

  [in,out]

  CY

      !>          CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
      !>

  [in]

  INCY

      !>          INCY is INTEGER
      !>         storage spacing between elements of CY
      !>

Author
  Univ. of Tennessee
  Univ. of California Berkeley
  Univ. of Colorado Denver
  NAG Ltd.

Further Details:

      !>
      !>     jack dongarra, linpack, 3/11/78.
      !>     modified 12/3/93, array(1) declarations changed to array(*)
      !>