void FC_FUNC_(clamdblaszgemmex_low, CLAMDBLASDGEMMEX_LOW)(int * order,
int * transA,
int * transB,
cl_long * M,
cl_long * N,
cl_long * K,
DoubleComplex * alpha,
const cl_mem * A,
cl_long * offA,
cl_long * lda,
const cl_mem * B,
cl_long * offB,
cl_long * ldb,
DoubleComplex * beta,
cl_mem * C,
cl_long * offC,
cl_long * ldc,
cl_command_queue * CommandQueue,
int * status){
*status = clAmdBlasZgemmEx((clAmdBlasOrder) *order, (clAmdBlasTranspose) *transA, (clAmdBlasTranspose) *transB,
(size_t) *M, (size_t) *N, (size_t) *K, *alpha,
*A, (size_t) *offA, (size_t) *lda,
*B, (size_t) *offB, (size_t) *ldb, *beta,
*C, (size_t) *offC, (size_t) *ldc,
1, CommandQueue, 0, NULL, NULL);
}
magma_err_t
magma_zgemm_trace(
magma_trans_t transA, magma_trans_t transB,
magma_int_t m, magma_int_t n, magma_int_t k,
magmaDoubleComplex alpha, magmaDoubleComplex_const_ptr dA, size_t dA_offset, magma_int_t lda,
magmaDoubleComplex_const_ptr dB, size_t dB_offset, magma_int_t ldb,
magmaDoubleComplex beta, magmaDoubleComplex_ptr dC, size_t dC_offset, magma_int_t ldc,
magma_queue_t queue, magma_event_t* event )
{
cl_int err = clAmdBlasZgemmEx(
clAmdBlasColumnMajor,
amdblas_trans_const( transA ),
amdblas_trans_const( transB ),
m, n, k,
alpha, dA, dA_offset, lda,
dB, dB_offset, ldb,
beta, dC, dC_offset, ldc,
1, &queue, 0, NULL, event );
clFlush(queue);
return err;
}
