SSYRK/DSYRK/CHERK/CSYRK/ZHERK/ZSYRK |
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