Searched refs:nullvec (Results 1 – 2 of 2) sorted by relevance
674 PetscScalar *nullvec; in PCSetUp_ML() local684 PetscCall(PetscMalloc1((nvec + !!has_const) * mlocal, &nullvec)); in PCSetUp_ML()686 for (i = 0; i < mlocal; i++) nullvec[i] = 1.0 / M; in PCSetUp_ML()689 for (j = 0; j < mlocal; j++) nullvec[(i + !!has_const) * mlocal + j] = v[j]; in PCSetUp_ML()692 …e_Set_NullSpace", ML_Aggregate_Set_NullSpace(agg_object, bs, nvec + !!has_const, nullvec, mlocal)); in PCSetUp_ML()693 PetscCall(PetscFree(nullvec)); in PCSetUp_ML()
466 PetscReal *nullvec; in PCSetData_AGG() local479 PetscCall(PetscMalloc1((nvec + !!has_const) * mlocal, &nullvec)); in PCSetData_AGG()481 for (i = 0; i < mlocal; i++) nullvec[i] = 1.0; in PCSetData_AGG()484 for (j = 0; j < mlocal; j++) nullvec[(i + !!has_const) * mlocal + j] = PetscRealPart(v[j]); in PCSetData_AGG()487 pc_gamg->data = nullvec; in PCSetData_AGG()