c_nan_check.h

Go to the documentation of this file.

/**
 * @file c_nan_check.h
 *
 * @copyright 2016-2023 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
 *                      Univ. Bordeaux. All rights reserved.
 *
 * @brief Manage nancheck for lowrank kernels.
 * This header describes all the LAPACKE functions used for low-rank kernels,
 * as well as some macros to manage nancheck.
 *
 * @version 6.3.2
 * @author Mathieu Faverge
 * @author Gregoire Pichon
 * @date 2023-07-21
 * @generated from /builds/solverstack/pastix/kernels/z_nan_check.h, normal z -> c, Wed Dec 13 12:09:05 2023
 *
 */
#ifndef _c_nan_check_h_
#define _c_nan_check_h_
 
#ifndef DOXYGEN_SHOULD_SKIP_THIS
// #endif /* DOXYGEN_SHOULD_SKIP_THIS */
 
#if defined(PASTIX_DEBUG_LR_NANCHECK)
#define LAPACKE_clacpy_work LAPACKE_clacpy
#define LAPACKE_claset_work LAPACKE_claset
 
#define LAPACKE_cunmlq_work( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_, _w_, _ldw_ ) \
    LAPACKE_cunmlq( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_ )
#define LAPACKE_cunmqr_work( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_, _w_, _ldw_ ) \
    LAPACKE_cunmqr( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_ )
 
#define LAPACKE_cgeqrf_work( _layout_, _m_, _n_, _a_, _lda_, _tau_, _w_, _ldw_ ) \
    LAPACKE_cgeqrf( _layout_, _m_, _n_, _a_, _lda_, _tau_ )
#define LAPACKE_cgelqf_work( _layout_, _m_, _n_, _a_, _lda_, _tau_, _w_, _ldw_ ) \
    LAPACKE_cgelqf( _layout_, _m_, _n_, _a_, _lda_, _tau_ )
 
#if defined(PRECISION_z) || defined(PRECISION_c)
#define MYLAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_cgesvd( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, (float*)(_w_) )
#else
#define MYLAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_cgesvd( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, (float*)(_w_) )
#endif
 
#else
 
#if defined(PRECISION_z) || defined(PRECISION_c)
#define MYLAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ )
#else
#define MYLAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_cgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_ )
#endif
 
#endif /* defined(PASTIX_DEBUG_LR_NANCHECK) */
 
#endif /* DOXYGEN_SHOULD_SKIP_THIS */
 
#endif /* _c_nan_check_h_ */