cpucblk_ddiff.c

Go to the documentation of this file.

/**
 *
 * @file cpucblk_ddiff.c
 *
 * Precision dependent routines to differentiate two solver matrix structures
 * when debuging.
 *
 * @copyright 2015-2024 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
 *                      Univ. Bordeaux. All rights reserved.
 *
 * @version 6.4.0
 * @author Pierre Ramet
 * @author Xavier Lacoste
 * @author Gregoire Pichon
 * @author Mathieu Faverge
 * @author Esragul Korkmaz
 * @date 2024-07-05
 *
 * @generated from /builds/2mk6rsew/0/solverstack/pastix/kernels/cpucblk_zdiff.c, normal z -> d, Tue Feb 25 14:34:59 2025
 *
 **/
#include "common/common.h"
#include "blend/solver.h"
#include <lapacke.h>
#include "pastix_dcores.h"
#include "pastix_dlrcores.h"
 
/**
 *******************************************************************************
 *
 * @brief Compare two column blocks in full-rank format.
 *
 * The second cblk is overwritten by the difference of the two column blocks.
 * The frobenius norm of the difference is computed and the functions returns 0
 * if the result:
 *      || B - A || / ( || A || * eps )
 *
 * is below 10. Otherwise, an error message is printed and 1 is returned.
 *
 *******************************************************************************
 *
 * @param[in] side
 *          Define which side of the cblk must be tested.
 *          @arg PastixLCoef if lower part only
 *          @arg PastixUCoef if upper part only
 *          @arg PastixLUCoef if both sides.
 *
 * @param[in] cblkA
 *          The column block of the A matrix.
 *
 * @param[inout] cblkB
 *          The column block of the B matrix that matches the A matrix in
 *          stucture.
 *          On exit, cblkB coefficient arrays are overwritten by the result of
 *          (B-A).
 *
 *******************************************************************************
 *
 * @return 0 if the test is passed, >= 0 otherwise.
 *
 *******************************************************************************/
int
cpucblk_ddiff( pastix_coefside_t side,
               const SolverCblk *cblkA,
               SolverCblk       *cblkB )
{
    double *coefA;
    double *coefB;
    pastix_int_t        ncols  = cblk_colnbr( cblkA );
    pastix_int_t        stride = cblkA->stride;
    double normdiff, normfull, normlowr, res, eps;
    int rc = 0;
 
    assert( ncols  == cblk_colnbr( cblkB ) );
    assert( stride == cblkB->stride );
 
    eps = LAPACKE_dlamch_work( 'e' );
 
    if ( side != PastixUCoef ) {
        coefA = cblkA->lcoeftab;
        coefB = cblkB->lcoeftab;
 
        assert( (coefA != NULL) && (coefB != NULL) );
 
        normfull = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'f', stride, ncols,
                                        coefA, stride, NULL );
        normlowr = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'f', stride, ncols,
                                        coefB, stride, NULL );
        core_dgeadd( PastixNoTrans, stride, ncols,
                     -1., coefA, stride,
                      1., coefB, stride );
 
        normdiff = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'M', stride, ncols,
                                        coefB, stride, NULL );
        res = (normfull == 0.) ? 0. : (normdiff / (normfull * eps));
 
        if ( res > 10 ) {
            fprintf(stderr, "KO on L: ||full(A)||_f=%e, ||comp(A)||_f=%e, ||comp(A)-full(A)||_0=%e, ||comp(A)-full(A)||_0 / (||full(A)||_2 * eps)=%e\n",
                    normfull, normlowr, normdiff, res );
            rc++;
        }
    }
 
    if ( side != PastixLCoef ) {
        coefA = cblkA->ucoeftab;
        coefB = cblkB->ucoeftab;
 
        assert( (coefA != NULL) && (coefB != NULL) );
 
        normfull = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'f', stride, ncols,
                                        coefA, stride, NULL );
        normlowr = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'f', stride, ncols,
                                        coefB, stride, NULL );
        core_dgeadd( PastixNoTrans, stride, ncols,
                     -1., coefA, stride,
                      1., coefB, stride );
 
        normdiff = LAPACKE_dlange_work( LAPACK_COL_MAJOR, 'M', stride, ncols,
                                        coefB, stride, NULL );
        res = (normfull == 0.) ? 0. : (normdiff / (normfull * eps));
 
        if ( res > 10 ) {
            fprintf(stderr, "KO on U: ||full(A)||_f=%e, ||comp(A)||_f=%e, ||comp(A)-full(A)||_0=%e, ||comp(A)-full(A)||_0 / (||full(A)||_2 * eps)=%e\n",
                    normfull, normlowr, normdiff, res );
            rc++;
        }
    }
 
    return rc;
}