Function lu_clear_lhs

highs/ipm/basiclu/basiclu_object.c:102–118

* lu_clear_lhs() - reset contents of lhs to zero */

 * lu_clear_lhs() - reset contents of lhs to zero
 */
static void lu_clear_lhs(struct basiclu_object *obj)
{
    lu_int m = obj->xstore[BASICLU_DIM];
    lu_int nzsparse = obj->xstore[BASICLU_SPARSE_THRESHOLD] * m;
    lu_int nz = obj->nzlhs;
    lu_int p;

    if (nz)
    {
        if (nz <= nzsparse)
            for (p = 0; p < nz; p++)
                obj->lhs[obj->ilhs[p]] = 0;
        else
            memset(obj->lhs, 0, m*sizeof(double));
        obj->nzlhs = 0;
    }
}

/*
 * basiclu_obj_initialize()