f77_blas_tbsv Module


Uses


Interfaces

public interface f77_tbsv

Generic old style interface for TBSV. Supports s, d, c, z. See also: mfi_tbsv, stbsv, dtbsv, ctbsv, ztbsv.

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

    Original interface for STBSV See also: mfi_tbsv, tbsv.

    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
    integer, intent(in) :: k
    real(kind=REAL32), intent(in) :: a(lda,*)
    integer, intent(in) :: lda
    real(kind=REAL32), intent(inout) :: x(*)
    integer, intent(in) :: incx

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

    Original interface for DTBSV See also: mfi_tbsv, tbsv.

    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
    integer, intent(in) :: k
    real(kind=REAL64), intent(in) :: a(lda,*)
    integer, intent(in) :: lda
    real(kind=REAL64), intent(inout) :: x(*)
    integer, intent(in) :: incx

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

    Original interface for CTBSV See also: mfi_tbsv, tbsv.

    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
    integer, intent(in) :: k
    complex(kind=REAL32), intent(in) :: a(lda,*)
    integer, intent(in) :: lda
    complex(kind=REAL32), intent(inout) :: x(*)
    integer, intent(in) :: incx

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

    Original interface for ZTBSV See also: mfi_tbsv, tbsv.

    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
    integer, intent(in) :: k
    complex(kind=REAL64), intent(in) :: a(lda,*)
    integer, intent(in) :: lda
    complex(kind=REAL64), intent(inout) :: x(*)
    integer, intent(in) :: incx