f77_syr2 Interface

public interface f77_syr2

Generic old style interface for SYR2. Supports s, d. See also: mfi_syr2, ssyr2, dsyr2.


Subroutines

public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda)

Original interface for SSYR2 See also: mfi_syr2, f77_syr2.

Arguments

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

public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda)

Original interface for DSYR2 See also: mfi_syr2, f77_syr2.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real(kind=REAL64), intent(in) :: alpha
real(kind=REAL64), intent(in) :: x(*)
integer, intent(in) :: incx
real(kind=REAL64), intent(in) :: y(*)
integer, intent(in) :: incy
real(kind=REAL64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda