f77_blas_trsv Module



Interfaces

public interface f77_trsv

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

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

    Original interface for STRSV See also: mfi_trsv, 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, 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, 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, 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