cuda_zhemm.c 1.16 KB
Newer Older
1
/**
2 3
 *
 * @file cuda_zhemm.c
4
 *
Mathieu Faverge's avatar
Mathieu Faverge committed
5 6
 * @copyright 2009-2014 The University of Tennessee and The University of
 *                      Tennessee Research Foundation. All rights reserved.
PRUVOST Florent's avatar
PRUVOST Florent committed
7
 * @copyright 2012-2019 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
8
 *                      Univ. Bordeaux. All rights reserved.
9
 *
10
 ***
11
 *
12
 * @brief Chameleon cuda_zhemm GPU kernel
13
 *
PRUVOST Florent's avatar
PRUVOST Florent committed
14
 * @version 0.9.2
15 16 17 18
 * @author Florent Pruvost
 * @date 2015-09-17
 * @precisions normal z -> c
 *
19
 */
20
#include "cudablas.h"
21

22
int CUDA_zhemm(cham_side_t side, cham_uplo_t uplo,
23 24 25 26 27 28 29
               int m, int n,
               cuDoubleComplex *alpha,
               const cuDoubleComplex *A, int lda,
               const cuDoubleComplex *B, int ldb,
               cuDoubleComplex *beta,
               cuDoubleComplex *C, int ldc,
               CUBLAS_STREAM_PARAM)
30
{
31
    cublasZhemm(CUBLAS_HANDLE
Mathieu Faverge's avatar
Mathieu Faverge committed
32
                chameleon_cublas_const(side), chameleon_cublas_const(uplo),
33 34 35 36
                m, n,
                CUBLAS_VALUE(alpha), A, lda,
                                     B, ldb,
                CUBLAS_VALUE(beta),  C, ldc);
37 38

    assert( CUBLAS_STATUS_SUCCESS == cublasGetError() );
39
    return CHAMELEON_SUCCESS;
40
}