d_spm_scal.c

Go to the documentation of this file.

/**
 * @file d_spm_scal.c
 *
 * SParse Matrix package scaling routine.
 *
 * @copyright 2016-2026 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
 *                      Univ. Bordeaux. All rights reserved.
 *
 * @version 1.3.0
 * @author Mathieu Faverge
 * @author Pierre Ramet
 * @author Matias Hastaran
 * @author Tony Delarue
 * @author Alycia Lisito
 * @author Gregoire Pichon
 * @date 2024-07-09
 * @generated from /builds/fpruvost/spm/src/z_spm_scal.c, normal z -> d, Fri Oct 23 13:04:59 2026
 *
 **/
#include "common.h"
 
/**
 *******************************************************************************
 *
 * @ingroup spm_dev_scal
 *
 * @brief Scal the spm: A = alpha * A
 *
 *******************************************************************************
 *
 * @param[in] alpha
 *           The scaling parameter.
 *
 * @param[inout] spm
 *           The spm which needs to be scaled.
 *
 *******************************************************************************/
void
d_spmScal( const double  alpha,
           spmatrix_t   *spm )
{
    spm_int_t        nnzexp, i;
    double *values;
 
    nnzexp = spm->nnzexp;
    values = spm->values;
 
    for (i=0; i<nnzexp; i++){
        values[i] *= alpha;
    }
}