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

290 HP MLIB User’s Guide
SSYRK/DSYRK/CHERK/CSYRK/ZHERK/ZSYRK Rank-k update
CHARACTER*1 uplo, trans
INTEGER*4 n, k, lda, ldc
COMPLEX*8 alpha, beta, a(lda, *), c(ldc, n)
CALL CSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*4 n, k, lda, ldc
REAL*8 alpha, beta
COMPLEX*16 a(lda, *), c(ldc, n)
CALL ZHERK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*4 n, k, lda, ldc
COMPLEX*16 alpha, beta, a(lda, *), c(ldc, n)
CALL ZSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
VECLIB8:
CHARACTER*1 uplo, trans
INTEGER*8 n, k, lda, ldc
REAL*4 alpha, beta, a(lda, *), c(ldc, n)
CALL SSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*8 n, k, lda, ldc
REAL*8 alpha, beta, a(lda, *), c(ldc, n)
CALL DSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*8 n, k, lda, ldc
REAL*4 alpha, beta
COMPLEX*8 a(lda, *), c(ldc, n)
CALL CHERK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*8 n, k, lda, ldc
COMPLEX*8 alpha, beta, a(lda, *), c(ldc, n)
CALL CSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
CHARACTER*1 uplo, trans
INTEGER*8 n, k, lda, ldc
REAL*8 alpha, beta
COMPLEX*16 a(lda, *), c(ldc, n)
CALL ZHERK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)