f77_trsm Interface

public interface f77_trsm

Generic old style interface for TRSM. Supports s, d, c, z. See also: mfi_trsm, strsm, dtrsm, ctrsm, ztrsm.


Subroutines

public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

Original interface for STRSM See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
real(kind=REAL32), intent(in) :: alpha
real(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL32), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

Original interface for DTRSM See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
real(kind=REAL64), intent(in) :: alpha
real(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
real(kind=REAL64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

Original interface for CTRSM See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=REAL32), intent(in) :: alpha
complex(kind=REAL32), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL32), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

Original interface for ZTRSM See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=REAL64), intent(in) :: alpha
complex(kind=REAL64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=REAL64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb