STRSM/DTRSM/CTRSM/ZTRSM

Solve triangular systems

VECLIB8:

CHARACTER*1

side, uplo, transa, diag

INTEGER*8

m, n, lda, ldb

REAL*4

alpha, a(lda, *), b(ldb, *)

CALL STRSM(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

CHARACTER*1

side, uplo, transa, diag

INTEGER*8

m, n, lda, ldb

REAL*8

alpha, a(lda, *), b(ldb, *)

CALL DTRSM(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

CHARACTER*1

side, uplo, transa, diag

INTEGER*8

m, n, lda, ldb

COMPLEX*8

alpha, a(lda, *), b(ldb, *)

CALL CTRSM(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

CHARACTER*1

side, uplo, transa, diag

INTEGER*8

m, n, lda, ldb

COMPLEX*16

alpha, a(lda, *), b(ldb, *)

CALL ZTRSM(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

328HP MLIB User’s Guide