d_nan_check.h

Go to the documentation of this file.

/**
 * @file d_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 -> d, Wed Dec 13 12:09:05 2023
 *
 */
#ifndef _d_nan_check_h_
#define _d_nan_check_h_
 
#ifndef DOXYGEN_SHOULD_SKIP_THIS
// #endif /* DOXYGEN_SHOULD_SKIP_THIS */
 
#if defined(PASTIX_DEBUG_LR_NANCHECK)
#define LAPACKE_dlacpy_work LAPACKE_dlacpy
#define LAPACKE_dlaset_work LAPACKE_dlaset
 
#define LAPACKE_dormlq_work( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_, _w_, _ldw_ ) \
    LAPACKE_dormlq( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_ )
#define LAPACKE_dormqr_work( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_, _w_, _ldw_ ) \
    LAPACKE_dormqr( _layout_, _side_, _trans_, _m_, _n_, _k_, _a_, _lda_, _tau_, _c_, _ldc_ )
 
#define LAPACKE_dgeqrf_work( _layout_, _m_, _n_, _a_, _lda_, _tau_, _w_, _ldw_ ) \
    LAPACKE_dgeqrf( _layout_, _m_, _n_, _a_, _lda_, _tau_ )
#define LAPACKE_dgelqf_work( _layout_, _m_, _n_, _a_, _lda_, _tau_, _w_, _ldw_ ) \
    LAPACKE_dgelqf( _layout_, _m_, _n_, _a_, _lda_, _tau_ )
 
#if defined(PRECISION_z) || defined(PRECISION_c)
#define MYLAPACKE_dgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_dgesvd( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, (double*)(_w_) )
#else
#define MYLAPACKE_dgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_dgesvd( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, (double*)(_w_) )
#endif
 
#else
 
#if defined(PRECISION_z) || defined(PRECISION_c)
#define MYLAPACKE_dgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_dgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ )
#else
#define MYLAPACKE_dgesvd_work( _layout_, _jobu_, jobv_, _m_, _n_, _a_, _lda_, _s_, _u_, _ldu_, _v_, _ldv_, _w_, _ldw_, _rw_ ) \
    LAPACKE_dgesvd_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 /* _d_nan_check_h_ */