dswap Subroutine

public subroutine dswap(n, dx, incx, dy, incy)

DSWAP interchanges two vectors. uses unrolled loops for increments equal to 1.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip) :: n
real(kind=wp) :: dx(*)
integer(kind=ip) :: incx
real(kind=wp) :: dy(*)
integer(kind=ip) :: incy

Called by

proc~~dswap~~CalledByGraph proc~dswap dswap proc~dh12 dh12 proc~dh12->proc~dswap proc~dlsei dlsei proc~dlsei->proc~dswap proc~dlsei->proc~dh12 proc~dlsi dlsi proc~dlsei->proc~dlsi proc~dlsi->proc~dswap proc~dlsi->proc~dh12 proc~dhfti dhfti proc~dlsi->proc~dhfti proc~dlpdp dlpdp proc~dlsi->proc~dlpdp proc~dwnlit dwnlit proc~dwnlit->proc~dswap proc~dwnlit->proc~dh12 proc~dwnlt3 dwnlt3 proc~dwnlit->proc~dwnlt3 proc~dwnlsm dwnlsm proc~dwnlsm->proc~dswap proc~dwnlsm->proc~dh12 proc~dwnlsm->proc~dwnlit proc~dwnlt3->proc~dswap proc~dbndac dbndac proc~dbndac->proc~dh12 proc~dfcmn dfcmn proc~dfcmn->proc~dlsei proc~dfcmn->proc~dbndac proc~dhfti->proc~dh12 proc~dwnnls dwnnls proc~dwnnls->proc~dwnlsm proc~defcmn defcmn proc~defcmn->proc~dbndac proc~dfc dfc proc~dfc->proc~dfcmn proc~dlpdp->proc~dwnnls proc~defc defc proc~defc->proc~defcmn

Source Code

      subroutine dswap(n, dx, incx, dy, incy)
         import
         implicit none
         integer(ip) :: incx, incy, n
         real(wp) :: dx(*), dy(*)
      end subroutine dswap