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

Chapter 3 Basic Matrix Operations 319
Triangular matrix-matrix multiply STRMM/DTRMM/CTRMM/ZTRMM
VECLIB8:
CHARACTER*1 side, uplo, transa, diag
INTEGER*8 m, n, lda, ldb
REAL*4 alpha, a(lda, *), b(ldb, *)
CALL STRMM(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 DTRMM(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 CTRMM(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 ZTRMM(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)