f77_trtrs Interface

public interface f77_trtrs

Generic old style interface for TRTRS. Supports s, d, c, z. See also: mfi_trtrs, strtrs, dtrtrs, ctrtrs, ztrtrs.


Subroutines

public pure subroutine strtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)

Original interface for STRTRS See also: mfi_trtrs, f77_trtrs. STRTRS solves a triangular system of the form

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via trans.

A is assumed to be either upper or lower triangular as specified by uplo, and may be unit or non-unit diagonal as specified by diag.

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) :: nrhs
real(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL32), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb
integer, intent(out) :: info

public pure subroutine dtrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)

Original interface for DTRTRS See also: mfi_trtrs, f77_trtrs. DTRTRS solves a triangular system of the form

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via trans.

A is assumed to be either upper or lower triangular as specified by uplo, and may be unit or non-unit diagonal as specified by diag.

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) :: nrhs
real(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb
integer, intent(out) :: info

public pure subroutine ctrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)

Original interface for CTRTRS See also: mfi_trtrs, f77_trtrs. CTRTRS solves a triangular system of the form

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via trans.

A is assumed to be either upper or lower triangular as specified by uplo, and may be unit or non-unit diagonal as specified by diag.

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) :: nrhs
complex(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL32), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb
integer, intent(out) :: info

public pure subroutine ztrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)

Original interface for ZTRTRS See also: mfi_trtrs, f77_trtrs. ZTRTRS solves a triangular system of the form

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via trans.

A is assumed to be either upper or lower triangular as specified by uplo, and may be unit or non-unit diagonal as specified by diag.

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) :: nrhs
complex(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb
integer, intent(out) :: info