dscal Subroutine

public subroutine dscal(n, sa, x, incx)

Scales a vector by a constant.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: n

the number of entries in the vector.
real(kind=wp), intent(in) :: sa

the multiplier.
real(kind=wp), intent(inout) :: x(*)

the vector to be scaled.
integer(kind=ip), intent(in) :: incx

the increment between successive entries of X.

Source Code

      subroutine dscal (n,sa,x,incx)
         implicit none
         integer, intent(in)             :: n,incx
         double precision, intent(in)    :: sa
         double precision, intent(inout) :: x(*)
      end subroutine dscal