dscal Subroutine

public subroutine dscal(n, da, dx, incx)

DSCAL scales a vector by a constant. uses unrolled loops for increment equal to 1.

Arguments

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

Called by

proc~~dscal~~CalledByGraph proc~dscal dscal proc~defcmn defcmn proc~defcmn->proc~dscal proc~dfcmn dfcmn proc~dfcmn->proc~dscal proc~dlsei dlsei proc~dfcmn->proc~dlsei proc~dlpdp dlpdp proc~dlpdp->proc~dscal proc~dwnnls dwnnls proc~dlpdp->proc~dwnnls proc~dlsei->proc~dscal proc~dlsi dlsi proc~dlsei->proc~dlsi proc~dlsi->proc~dscal proc~dlsi->proc~dlpdp proc~dwnlit dwnlit proc~dwnlit->proc~dscal proc~dwnlsm dwnlsm proc~dwnlsm->proc~dscal proc~dwnlsm->proc~dwnlit proc~defc defc proc~defc->proc~defcmn proc~dfc dfc proc~dfc->proc~dfcmn proc~dwnnls->proc~dwnlsm

Source Code

      subroutine dscal(n, da, dx, incx)
         import
         implicit none
         real(wp) :: da
         integer(ip) :: incx, n
         real(wp) :: dx(*)
      end subroutine dscal