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)

228HP MLIB User’s Guide