HP MLIB User's Guide Vol. 1 7th Ed.

328 HP MLIB User’s Guide
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)