NAME

CSWAP - CSWAP interchange two vectors

SYNOPSIS

SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)

INTEGER INCX,INCY,N COMPLEX CX(*),CY(*)

PURPOSE

CSWAP interchanges two vectors.

FURTHER DETAILS

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