SSYMM/DSYMM/CHEMM/CSYMM/ZHEMM/ZSYMM

Matrix-matrix multiply

CHARACTER*1

side, uplo

INTEGER*4

m, n, lda, ldb, ldc

COMPLEX*8

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL CSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*4

m, n, lda, ldb, ldc

COMPLEX*16

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL ZHEMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*4

m, n, lda, ldb, ldc

COMPLEX*16

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL ZSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

VECLIB8:

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

REAL*4

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL SSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

REAL*8

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL DSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

COMPLEX*8

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL CHEMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

COMPLEX*8

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL CSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

COMPLEX*16

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL ZHEMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHARACTER*1

side, uplo

INTEGER*8

m, n, lda, ldb, ldc

COMPLEX*16

alpha, beta, a(lda, *), b(ldb, *), c(ldc, n)

CALL ZSYMM(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

266HP MLIB User’s Guide