SUBROUTINE ZHEMM( SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB, BETA, C, * LDC) CHARACTER * 1 SIDE, UPLO DOUBLE COMPLEX ALPHA, BETA DOUBLE COMPLEX A(LDA,*), B(LDB,*), C(LDC,*) INTEGER M, N, LDA, LDB, LDC SUBROUTINE ZHEMM_64( SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB, BETA, * C, LDC) CHARACTER * 1 SIDE, UPLO DOUBLE COMPLEX ALPHA, BETA DOUBLE COMPLEX A(LDA,*), B(LDB,*), C(LDC,*) INTEGER*8 M, N, LDA, LDB, LDC
SUBROUTINE HEMM( SIDE, UPLO, [M], [N], ALPHA, A, [LDA], B, [LDB], * BETA, C, [LDC]) CHARACTER(LEN=1) :: SIDE, UPLO COMPLEX(8) :: ALPHA, BETA COMPLEX(8), DIMENSION(:,:) :: A, B, C INTEGER :: M, N, LDA, LDB, LDC SUBROUTINE HEMM_64( SIDE, UPLO, [M], [N], ALPHA, A, [LDA], B, [LDB], * BETA, C, [LDC]) CHARACTER(LEN=1) :: SIDE, UPLO COMPLEX(8) :: ALPHA, BETA COMPLEX(8), DIMENSION(:,:) :: A, B, C INTEGER(8) :: M, N, LDA, LDB, LDC
void zhemm(char side, char uplo, int m, int n, doublecomplex alpha, doublecomplex *a, int lda, doublecomplex *b, int ldb, doublecomplex beta, doublecomplex *c, int ldc);
void zhemm_64(char side, char uplo, long m, long n, doublecomplex alpha, doublecomplex *a, long lda, doublecomplex *b, long ldb, doublecomplex beta, doublecomplex *c, long ldc);
SIDE = 'L' or 'l' C := alpha*A*B + beta*C,
SIDE = 'R' or 'r' C := alpha*B*A + beta*C,
Unchanged on exit.
UPLO = 'U' or 'u' Only the upper triangular part of the hermitian matrix is to be referenced.
UPLO = 'L' or 'l' Only the lower triangular part of the hermitian matrix is to be referenced.
Unchanged on exit.
Before entry with SIDE = 'L' or 'l', the m by m part of the array A must contain the hermitian matrix, such that when UPLO = 'U' or 'u', the leading m by m upper triangular part of the array A must contain the upper triangular part of the hermitian matrix and the strictly lower triangular part of A is not referenced, and when UPLO = 'L' or 'l', the leading m by m lower triangular part of the array A must contain the lower triangular part of the hermitian matrix and the strictly upper triangular part of A is not referenced.
Before entry with SIDE = 'R' or 'r', the n by n part of the array A must contain the hermitian matrix, such that when UPLO = 'U' or 'u', the leading n by n upper triangular part of the array A must contain the upper triangular part of the hermitian matrix and the strictly lower triangular part of A is not referenced, and when UPLO = 'L' or 'l', the leading n by n lower triangular part of the array A must contain the lower triangular part of the hermitian matrix and the strictly upper triangular part of A is not referenced.
Note that the imaginary parts of the diagonal elements need not be set, they are assumed to be zero. Unchanged on exit.
Before entry, the leading m by n part of the array C must contain the matrix C, except when beta is zero, in which case C need not be set on entry.
On exit, the array C is overwritten by the m by n updated matrix.