f77_scal Interface

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.


Subroutines

public pure subroutine sscal(n, a, x, incx)

Original interface for SSCAL See also: mfi_scal, f77_scal. SSCAL scales a vector by a constant.

Arguments

Type IntentOptional 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, f77_scal. DSCAL scales a vector by a constant.

Arguments

Type IntentOptional 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, f77_scal. CSCAL scales a vector by a constant.

Arguments

Type IntentOptional 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, f77_scal. ZSCAL scales a vector by a constant.

Arguments

Type IntentOptional 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, f77_scal. CSSCAL scales a vector by a constant.

Arguments

Type IntentOptional 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, f77_scal. ZDSCAL scales a vector by a constant.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real(kind=REAL64), intent(in) :: a
complex(kind=REAL64), intent(inout) :: x(*)
integer, intent(in) :: incx