NAME

DSWAP - interchanges two vectors

SYNOPSIS

SUBROUTINE DSWAP(N,DX,INCX,DY,INCY)

INTEGER INCX,INCY,N DOUBLE PRECISION DX(*),DY(*)

PURPOSE

interchanges two vectors.
uses unrolled loops for increments equal one.

FURTHER DETAILS

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