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)

290HP MLIB User’s Guide