NAME

ZSWAP - ZSWAP interchange two vectors

SYNOPSIS

SUBROUTINE ZSWAP(N,ZX,INCX,ZY,INCY)

INTEGER INCX,INCY,N DOUBLE COMPLEX ZX(*),ZY(*)

PURPOSE

ZSWAP interchanges two vectors.

FURTHER DETAILS

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