f77_blas_scal Module
Interfaces
public interface f77_scal
Generic old style interface for SCAL. Supports s, d, c, z, cs, zd. See also: mfi_scal, sscal, dscal, cscal, zscal, csscal, zdscal.
-
public pure subroutine sscal(n, a, x, incx)
Original interface for SSCAL See also: mfi_scal, scal. SSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dscal(n, a, x, incx)
Original interface for DSCAL See also: mfi_scal, scal. DSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine cscal(n, a, x, incx)
Original interface for CSCAL See also: mfi_scal, scal. CSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine zscal(n, a, x, incx)
Original interface for ZSCAL See also: mfi_scal, scal. ZSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine csscal(n, a, x, incx)
Original interface for CSSCAL See also: mfi_scal, scal. CSSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine zdscal(n, a, x, incx)
Original interface for ZDSCAL See also: mfi_scal, scal. ZDSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx