mfi_trsm Interface

public interface mfi_trsm

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


Module Procedures

public pure subroutine mfi_strsm(a, b, side, uplo, transa, diag, alpha)

Modern interface for strsm. See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
real(kind=REAL32), intent(in) :: a(:,:)
real(kind=REAL32), intent(inout) :: b(:,:)
character(len=1), intent(in), optional :: side
character(len=1), intent(in), optional :: uplo
character(len=1), intent(in), optional :: transa
character(len=1), intent(in), optional :: diag
real(kind=REAL32), intent(in), optional :: alpha

public pure subroutine mfi_dtrsm(a, b, side, uplo, transa, diag, alpha)

Modern interface for dtrsm. See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: a(:,:)
real(kind=REAL64), intent(inout) :: b(:,:)
character(len=1), intent(in), optional :: side
character(len=1), intent(in), optional :: uplo
character(len=1), intent(in), optional :: transa
character(len=1), intent(in), optional :: diag
real(kind=REAL64), intent(in), optional :: alpha

public pure subroutine mfi_ctrsm(a, b, side, uplo, transa, diag, alpha)

Modern interface for ctrsm. See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
complex(kind=REAL32), intent(in) :: a(:,:)
complex(kind=REAL32), intent(inout) :: b(:,:)
character(len=1), intent(in), optional :: side
character(len=1), intent(in), optional :: uplo
character(len=1), intent(in), optional :: transa
character(len=1), intent(in), optional :: diag
complex(kind=REAL32), intent(in), optional :: alpha

public pure subroutine mfi_ztrsm(a, b, side, uplo, transa, diag, alpha)

Modern interface for ztrsm. See also: mfi_trsm, f77_trsm.

Arguments

Type IntentOptional Attributes Name
complex(kind=REAL64), intent(in) :: a(:,:)
complex(kind=REAL64), intent(inout) :: b(:,:)
character(len=1), intent(in), optional :: side
character(len=1), intent(in), optional :: uplo
character(len=1), intent(in), optional :: transa
character(len=1), intent(in), optional :: diag
complex(kind=REAL64), intent(in), optional :: alpha