ZSYRK ( UPLO TRANS N K ALPHA A LDA BETA C LDC -- )

Vocabulary

math.blas.ffi

Inputs

UPLO	an object
TRANS	an object
N	an object
K	an object
ALPHA	an object
A	an object
LDA	an object
BETA	an object
C	an object
LDC	an object

Outputs

None

Definition

USING: alien.fortran ;

IN: math.blas.ffi

: ZSYRK ( UPLO TRANS N K ALPHA A LDA BETA C LDC -- )
    f "blas" "ZSYRK" {
        "CHARACTER*1"
        "CHARACTER*1"
        "INTEGER"
        "INTEGER"
        "DOUBLE-COMPLEX"
        "DOUBLE-COMPLEX(*)"
        "INTEGER"
        "DOUBLE-COMPLEX"
        "DOUBLE-COMPLEX(*)"
        "INTEGER"
    } fortran-invoke ;