C_BLAS

Usage

use BLAS.C_BLAS;

or

import BLAS.C_BLAS;

Support for low-level native C_BLAS bindings.

This submodule wraps the netlib C_BLAS implementation, providing access to all of C_BLAS calls.

Direct usage of this module requires an explicit require statement of the BLAS header file, for example:

use C_BLAS;
require "cblas.h";

Arrays are passed in directly, while pointers to scalar quantities (including complex numbers) are passed by reference (removing the need to wrap these with c_ptrTo). As with BLAS calls in C, the user is responsible for passing in array dimensions etc. Furthermore, different array element types require using different functions.

Refer to the C_BLAS documentation of the reference version for the usage of this module.

type CBLAS_INDEX = c_int

type CBLAS_ORDER = c_int

type CBLAS_TRANSPOSE = c_int

type CBLAS_UPLO = c_int

type CBLAS_DIAG = c_int

type CBLAS_SIDE = c_int

const CblasRowMajor : CBLAS_ORDER

const CblasColMajor : CBLAS_ORDER

const CblasNoTrans : CBLAS_TRANSPOSE

const CblasTrans : CBLAS_TRANSPOSE

const CblasConjTrans : CBLAS_TRANSPOSE

const CblasUpper : CBLAS_UPLO

const CblasLower : CBLAS_UPLO

const CblasNonUnit : CBLAS_DIAG

const CblasUnit : CBLAS_DIAG

const CblasLeft : CBLAS_SIDE

const CblasRight : CBLAS_SIDE

proc cblas_sdsdot(N: c_int, alpha: c_float, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int) : c_float

proc cblas_dsdot(N: c_int, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int) : c_double

proc cblas_sdot(N: c_int, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int) : c_float

proc cblas_ddot(N: c_int, X: [] c_double, incX: c_int, Y: [] c_double, incY: c_int) : c_double

proc cblas_cdotu_sub(N: c_int, X: [], incX: c_int, Y: [], incY: c_int, dotu: c_ptr(void))

proc cblas_cdotc_sub(N: c_int, X: [], incX: c_int, Y: [], incY: c_int, dotc: c_ptr(void))

proc cblas_zdotu_sub(N: c_int, X: [], incX: c_int, Y: [], incY: c_int, dotu: c_ptr(void))

proc cblas_zdotc_sub(N: c_int, X: [], incX: c_int, Y: [], incY: c_int, dotc: c_ptr(void))

proc cblas_snrm2(N: c_int, X: [] c_float, incX: c_int) : c_float

proc cblas_sasum(N: c_int, X: [] c_float, incX: c_int) : c_float

proc cblas_dnrm2(N: c_int, X: [] c_double, incX: c_int) : c_double

proc cblas_dasum(N: c_int, X: [] c_double, incX: c_int) : c_double

proc cblas_scnrm2(N: c_int, X: [], incX: c_int) : c_float

proc cblas_scasum(N: c_int, X: [], incX: c_int) : c_float

proc cblas_dznrm2(N: c_int, X: [], incX: c_int) : c_double

proc cblas_dzasum(N: c_int, X: [], incX: c_int) : c_double

proc cblas_isamax(N: c_int, X: [] c_float, incX: c_int) : CBLAS_INDEX

proc cblas_idamax(N: c_int, X: [] c_double, incX: c_int) : CBLAS_INDEX

proc cblas_icamax(N: c_int, X: [], incX: c_int) : CBLAS_INDEX

proc cblas_izamax(N: c_int, X: [], incX: c_int) : CBLAS_INDEX

proc cblas_sswap(N: c_int, ref X: [] c_float, incX: c_int, ref Y: [] c_float, incY: c_int)

proc cblas_scopy(N: c_int, X: [] c_float, incX: c_int, ref Y: [] c_float, incY: c_int)

proc cblas_saxpy(N: c_int, alpha: c_float, X: [] c_float, incX: c_int, ref Y: [] c_float, incY: c_int)

proc cblas_dswap(N: c_int, ref X: [] c_double, incX: c_int, ref Y: [] c_double, incY: c_int)

proc cblas_dcopy(N: c_int, X: [] c_double, incX: c_int, ref Y: [] c_double, incY: c_int)

proc cblas_daxpy(N: c_int, alpha: c_double, X: [] c_double, incX: c_int, ref Y: [] c_double, incY: c_int)

proc cblas_cswap(N: c_int, ref X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_ccopy(N: c_int, X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_caxpy(N: c_int, alpha: c_ptr(void), X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_zswap(N: c_int, ref X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_zcopy(N: c_int, X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_zaxpy(N: c_int, alpha: c_ptr(void), X: [], incX: c_int, ref Y: [], incY: c_int)

proc cblas_srotg(a: c_ptr(c_float), b: c_ptr(c_float), c: c_ptr(c_float), s: c_ptr(c_float))

proc cblas_srotmg(d1: c_ptr(c_float), d2: c_ptr(c_float), b1: c_ptr(c_float), b2: c_float, ref P: [] c_float)

proc cblas_srot(N: c_int, ref X: [] c_float, incX: c_int, ref Y: [] c_float, incY: c_int, c: c_float, s: c_float)

proc cblas_srotm(N: c_int, ref X: [] c_float, incX: c_int, ref Y: [] c_float, incY: c_int, ref P: [] c_float)

proc cblas_drotg(a: c_ptr(c_double), b: c_ptr(c_double), c: c_ptr(c_double), s: c_ptr(c_double))

proc cblas_drotmg(d1: c_ptr(c_double), d2: c_ptr(c_double), b1: c_ptr(c_double), b2: c_double, ref P: [] c_double)

proc cblas_drot(N: c_int, ref X: [] c_double, incX: c_int, ref Y: [] c_double, incY: c_int, c: c_double, s: c_double)

proc cblas_drotm(N: c_int, ref X: [] c_double, incX: c_int, ref Y: [] c_double, incY: c_int, ref P: [] c_double)

proc cblas_sscal(N: c_int, alpha: c_float, ref X: [] c_float, incX: c_int)

proc cblas_dscal(N: c_int, alpha: c_double, ref X: [] c_double, incX: c_int)

proc cblas_cscal(N: c_int, alpha: c_ptr(void), ref X: [], incX: c_int)

proc cblas_zscal(N: c_int, alpha: c_ptr(void), ref X: [], incX: c_int)

proc cblas_csscal(N: c_int, alpha: c_float, ref X: [], incX: c_int)

proc cblas_zdscal(N: c_int, alpha: c_double, ref X: [], incX: c_int)

proc cblas_sgemv(order, TransA, M: c_int, N: c_int, alpha: c_float, A: [] c_float, lda: c_int, X: [] c_float, incX: c_int, beta: c_float, ref Y: [] c_float, incY: c_int)

proc cblas_sgbmv(order, TransA, M: c_int, N: c_int, KL: c_int, KU: c_int, alpha: c_float, A: [] c_float, lda: c_int, X: [] c_float, incX: c_int, beta: c_float, ref Y: [] c_float, incY: c_int)

proc cblas_strmv(order, Uplo, TransA, Diag, N: c_int, A: [] c_float, lda: c_int, ref X: [] c_float, incX: c_int)

proc cblas_stbmv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [] c_float, lda: c_int, ref X: [] c_float, incX: c_int)

proc cblas_stpmv(order, Uplo, TransA, Diag, N: c_int, Ap: [] c_float, ref X: [] c_float, incX: c_int)

proc cblas_strsv(order, Uplo, TransA, Diag, N: c_int, A: [] c_float, lda: c_int, ref X: [] c_float, incX: c_int)

proc cblas_stbsv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [] c_float, lda: c_int, ref X: [] c_float, incX: c_int)

proc cblas_stpsv(order, Uplo, TransA, Diag, N: c_int, Ap: [] c_float, ref X: [] c_float, incX: c_int)

proc cblas_dgemv(order, TransA, M: c_int, N: c_int, alpha: c_double, A: [] c_double, lda: c_int, X: [] c_double, incX: c_int, beta: c_double, ref Y: [] c_double, incY: c_int)

proc cblas_dgbmv(order, TransA, M: c_int, N: c_int, KL: c_int, KU: c_int, alpha: c_double, A: [] c_double, lda: c_int, X: [] c_double, incX: c_int, beta: c_double, ref Y: [] c_double, incY: c_int)

proc cblas_dtrmv(order, Uplo, TransA, Diag, N: c_int, A: [] c_double, lda: c_int, ref X: [] c_double, incX: c_int)

proc cblas_dtbmv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [] c_double, lda: c_int, ref X: [] c_double, incX: c_int)

proc cblas_dtpmv(order, Uplo, TransA, Diag, N: c_int, Ap: [] c_double, ref X: [] c_double, incX: c_int)

proc cblas_dtrsv(order, Uplo, TransA, Diag, N: c_int, A: [] c_double, lda: c_int, ref X: [] c_double, incX: c_int)

proc cblas_dtbsv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [] c_double, lda: c_int, ref X: [] c_double, incX: c_int)

proc cblas_dtpsv(order, Uplo, TransA, Diag, N: c_int, Ap: [] c_double, ref X: [] c_double, incX: c_int)

proc cblas_cgemv(order, TransA, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_cgbmv(order, TransA, M: c_int, N: c_int, KL: c_int, KU: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_ctrmv(order, Uplo, TransA, Diag, N: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ctbmv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ctpmv(order, Uplo, TransA, Diag, N: c_int, Ap: [], ref X: [], incX: c_int)

proc cblas_ctrsv(order, Uplo, TransA, Diag, N: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ctbsv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ctpsv(order, Uplo, TransA, Diag, N: c_int, Ap: [], ref X: [], incX: c_int)

proc cblas_zgemv(order, TransA, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_zgbmv(order, TransA, M: c_int, N: c_int, KL: c_int, KU: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_ztrmv(order, Uplo, TransA, Diag, N: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ztbmv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ztpmv(order, Uplo, TransA, Diag, N: c_int, Ap: [], ref X: [], incX: c_int)

proc cblas_ztrsv(order, Uplo, TransA, Diag, N: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ztbsv(order, Uplo, TransA, Diag, N: c_int, K: c_int, A: [], lda: c_int, ref X: [], incX: c_int)

proc cblas_ztpsv(order, Uplo, TransA, Diag, N: c_int, Ap: [], ref X: [], incX: c_int)

proc cblas_ssymv(order, Uplo, N: c_int, alpha: c_float, A: [] c_float, lda: c_int, X: [] c_float, incX: c_int, beta: c_float, ref Y: [] c_float, incY: c_int)

proc cblas_ssbmv(order, Uplo, N: c_int, K: c_int, alpha: c_float, A: [] c_float, lda: c_int, X: [] c_float, incX: c_int, beta: c_float, ref Y: [] c_float, incY: c_int)

proc cblas_sspmv(order, Uplo, N: c_int, alpha: c_float, Ap: [] c_float, X: [] c_float, incX: c_int, beta: c_float, ref Y: [] c_float, incY: c_int)

proc cblas_sger(order, M: c_int, N: c_int, alpha: c_float, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int, ref A: [] c_float, lda: c_int)

proc cblas_ssyr(order, Uplo, N: c_int, alpha: c_float, X: [] c_float, incX: c_int, ref A: [] c_float, lda: c_int)

proc cblas_sspr(order, Uplo, N: c_int, alpha: c_float, X: [] c_float, incX: c_int, ref Ap: [] c_float)

proc cblas_ssyr2(order, Uplo, N: c_int, alpha: c_float, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int, ref A: [] c_float, lda: c_int)

proc cblas_sspr2(order, Uplo, N: c_int, alpha: c_float, X: [] c_float, incX: c_int, Y: [] c_float, incY: c_int, ref A: [] c_float)

proc cblas_dsymv(order, Uplo, N: c_int, alpha: c_double, A: [] c_double, lda: c_int, X: [] c_double, incX: c_int, beta: c_double, ref Y: [] c_double, incY: c_int)

proc cblas_dsbmv(order, Uplo, N: c_int, K: c_int, alpha: c_double, A: [] c_double, lda: c_int, X: [] c_double, incX: c_int, beta: c_double, ref Y: [] c_double, incY: c_int)

proc cblas_dspmv(order, Uplo, N: c_int, alpha: c_double, Ap: [] c_double, X: [] c_double, incX: c_int, beta: c_double, ref Y: [] c_double, incY: c_int)

proc cblas_dger(order, M: c_int, N: c_int, alpha: c_double, X: [] c_double, incX: c_int, Y: [] c_double, incY: c_int, ref A: [] c_double, lda: c_int)

proc cblas_dsyr(order, Uplo, N: c_int, alpha: c_double, X: [] c_double, incX: c_int, ref A: [] c_double, lda: c_int)

proc cblas_dspr(order, Uplo, N: c_int, alpha: c_double, X: [] c_double, incX: c_int, ref Ap: [] c_double)

proc cblas_dsyr2(order, Uplo, N: c_int, alpha: c_double, X: [] c_double, incX: c_int, Y: [] c_double, incY: c_int, ref A: [] c_double, lda: c_int)

proc cblas_dspr2(order, Uplo, N: c_int, alpha: c_double, X: [] c_double, incX: c_int, Y: [] c_double, incY: c_int, ref A: [] c_double)

proc cblas_chemv(order, Uplo, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_chbmv(order, Uplo, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_chpmv(order, Uplo, N: c_int, alpha: c_ptr(void), Ap: [], X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_cgeru(order, M: c_int, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_cgerc(order, M: c_int, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_cher(order, Uplo, N: c_int, alpha: c_float, X: [], incX: c_int, ref A: [], lda: c_int)

proc cblas_chpr(order, Uplo, N: c_int, alpha: c_float, X: [], incX: c_int, ref A: [])

proc cblas_cher2(order, Uplo, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_chpr2(order, Uplo, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref Ap: [])

proc cblas_zhemv(order, Uplo, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_zhbmv(order, Uplo, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_zhpmv(order, Uplo, N: c_int, alpha: c_ptr(void), Ap: [], X: [], incX: c_int, beta: c_ptr(void), ref Y: [], incY: c_int)

proc cblas_zgeru(order, M: c_int, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_zgerc(order, M: c_int, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_zher(order, Uplo, N: c_int, alpha: c_double, X: [], incX: c_int, ref A: [], lda: c_int)

proc cblas_zhpr(order, Uplo, N: c_int, alpha: c_double, X: [], incX: c_int, ref A: [])

proc cblas_zher2(order, Uplo, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref A: [], lda: c_int)

proc cblas_zhpr2(order, Uplo, N: c_int, alpha: c_ptr(void), X: [], incX: c_int, Y: [], incY: c_int, ref Ap: [])

proc cblas_sgemm(Order, TransA, TransB, M: c_int, N: c_int, K: c_int, alpha: c_float, A: [] c_float, lda: c_int, B: [] c_float, ldb: c_int, beta: c_float, ref C: [] c_float, ldc: c_int)

proc cblas_ssymm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_float, A: [] c_float, lda: c_int, B: [] c_float, ldb: c_int, beta: c_float, ref C: [] c_float, ldc: c_int)

proc cblas_ssyrk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_float, A: [] c_float, lda: c_int, beta: c_float, ref C: [] c_float, ldc: c_int)

proc cblas_ssyr2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_float, A: [] c_float, lda: c_int, B: [] c_float, ldb: c_int, beta: c_float, ref C: [] c_float, ldc: c_int)

proc cblas_strmm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_float, A: [] c_float, lda: c_int, ref B: [] c_float, ldb: c_int)

proc cblas_strsm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_float, A: [] c_float, lda: c_int, ref B: [] c_float, ldb: c_int)

proc cblas_dgemm(Order, TransA, TransB, M: c_int, N: c_int, K: c_int, alpha: c_double, A: [] c_double, lda: c_int, B: [] c_double, ldb: c_int, beta: c_double, ref C: [] c_double, ldc: c_int)

proc cblas_dsymm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_double, A: [] c_double, lda: c_int, B: [] c_double, ldb: c_int, beta: c_double, ref C: [] c_double, ldc: c_int)

proc cblas_dsyrk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_double, A: [] c_double, lda: c_int, beta: c_double, ref C: [] c_double, ldc: c_int)

proc cblas_dsyr2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_double, A: [] c_double, lda: c_int, B: [] c_double, ldb: c_int, beta: c_double, ref C: [] c_double, ldc: c_int)

proc cblas_dtrmm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_double, A: [] c_double, lda: c_int, ref B: [] c_double, ldb: c_int)

proc cblas_dtrsm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_double, A: [] c_double, lda: c_int, ref B: [] c_double, ldb: c_int)

proc cblas_cgemm(Order, TransA, TransB, M: c_int, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_csymm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_csyrk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_csyr2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_ctrmm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, ref B: [], ldb: c_int)

proc cblas_ctrsm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, ref B: [], ldb: c_int)

proc cblas_zgemm(Order, TransA, TransB, M: c_int, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_zsymm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_zsyrk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_zsyr2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_ztrmm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, ref B: [], ldb: c_int)

proc cblas_ztrsm(Order, Side, Uplo, TransA, Diag, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, ref B: [], ldb: c_int)

proc cblas_chemm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_cherk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_float, A: [], lda: c_int, beta: c_float, ref C: [], ldc: c_int)

proc cblas_cher2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_float, ref C: [], ldc: c_int)

proc cblas_zhemm(Order, Side, Uplo, M: c_int, N: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_ptr(void), ref C: [], ldc: c_int)

proc cblas_zherk(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_double, A: [], lda: c_int, beta: c_double, ref C: [], ldc: c_int)

proc cblas_zher2k(Order, Uplo, Trans, N: c_int, K: c_int, alpha: c_ptr(void), A: [], lda: c_int, B: [], ldb: c_int, beta: c_double, ref C: [], ldc: c_int)