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

228 HP MLIB User’s Guide
DGEMMS/ZGEMMS Strassen matrix-matrix multiply
VECLIB8:
CHARACTER*1 transa, transb
INTEGER*8 m, n, k, lda, ldb, ldc
REAL*8 alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)
CALL DGEMMS(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
CHARACTER*1 transa, transb
INTEGER*8 m, n, k, lda, ldb, ldc
COMPLEX*16 alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)
CALL ZGEMMS(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)