magma_err_t
magma_zherk_trace(
magma_uplo_t uplo, magma_trans_t trans,
magma_int_t n, magma_int_t k,
double alpha, magmaDoubleComplex_const_ptr dA, size_t dA_offset, magma_int_t lda,
double beta, magmaDoubleComplex_ptr dC, size_t dC_offset, magma_int_t ldc,
magma_queue_t queue, magma_event_t* event )
{
cl_int err = clAmdBlasZherk(
clAmdBlasColumnMajor,
amdblas_uplo_const( uplo ),
amdblas_trans_const( trans ),
n, k,
alpha, dA, dA_offset, lda,
beta, dC, dC_offset, ldc,
1, &queue, 0, NULL, event );
clFlush(queue);
return err;
}
void FC_FUNC_(clamdblaszherkex_low, CLAMDBLASZHERKEX_LOW)(int * order,
int * uplo,
int * transA,
cl_long * N,
cl_long * K,
double * alpha,
const cl_mem * A,
cl_long * offA,
cl_long * lda,
double * beta,
cl_mem * C,
cl_long * offC,
cl_long * ldc,
cl_command_queue * CommandQueue,
int * status){
*status = clAmdBlasZherk((clAmdBlasOrder) *order, (clAmdBlasUplo) *uplo, (clAmdBlasTranspose) *transA,
(size_t) *N, (size_t) *K, *alpha,
*A, (size_t) *offA, (size_t) *lda, *beta,
*C, (size_t) *offC, (size_t) *ldc,
1, CommandQueue, 0, NULL, NULL);
}
