f77_trsv Interface

public interface f77_trsv

Generic old style interface for TRSV. Supports s, d, c, z. See also: mfi_trsv, strsv, dtrsv, ctrsv, ztrsv.


Subroutines

public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx)

Original interface for STRSV See also: mfi_trsv, f77_trsv.

Arguments

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

public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx)

Original interface for DTRSV See also: mfi_trsv, f77_trsv.

Arguments

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

public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx)

Original interface for CTRSV See also: mfi_trsv, f77_trsv.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL32), intent(inout) :: x(*)
integer, intent(in) :: incx

public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx)

Original interface for ZTRSV See also: mfi_trsv, f77_trsv.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL64), intent(inout) :: x(*)
integer, intent(in) :: incx