mfi_ssyr Subroutine

public pure subroutine mfi_ssyr(a, x, uplo, alpha, incx)

Modern interface for ssyr. See also: mfi_syr, f77_syr.

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(inout) :: a(:,:)
real(kind=REAL32), intent(in) :: x(:)
character(len=1), intent(in), optional :: uplo
real(kind=REAL32), intent(in), optional :: alpha
integer, intent(in), optional :: incx