ESMF_DSWAP Subroutine

subroutine ESMF_DSWAP(N, DX, INCX, DY, INCY)

\brief \b ESMF_DSWAP \par Purpose:

\verbatim

interchanges two vectors. uses unrolled loops for increments equal one. \endverbatim \author Univ. of Tennessee \author Univ. of California Berkeley \author Univ. of Colorado Denver \author NAG Ltd. \date November 2011 \ingroup double_blas_level1 \par Further Details:

\verbatim

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

\endverbatim

Arguments

Type IntentOptional Attributes Name
integer :: N
double precision :: DX(*)
integer :: INCX
double precision :: DY(*)
integer :: INCY