47   PC_IS   *pcis   = (PC_IS *)pc->data;  in PCBDDCScalingExtension_Basic()  local
52   PetscCall(VecPointwiseMult(pcbddc->work_scaling, pcis->D, local_interface_vector));  in PCBDDCScalingExtension_Basic()
54 …PetscCall(VecScatterBegin(pcis->global_to_B, pcbddc->work_scaling, global_vector, ADD_VALUES, SCAT…  in PCBDDCScalingExtension_Basic()
55 …PetscCall(VecScatterEnd(pcis->global_to_B, pcbddc->work_scaling, global_vector, ADD_VALUES, SCATTE…  in PCBDDCScalingExtension_Basic()
61   PC_IS              *pcis       = (PC_IS *)pc->data;  in PCBDDCScalingExtension_Deluxe()  local
73     PetscCall(VecGetArrayRead(pcis->D, &array_D));  in PCBDDCScalingExtension_Deluxe()
77     PetscCall(VecRestoreArrayRead(pcis->D, &array_D));  in PCBDDCScalingExtension_Deluxe()
123 …PetscCall(VecScatterBegin(pcis->global_to_B, pcbddc->work_scaling, y, ADD_VALUES, SCATTER_REVERSE)…  in PCBDDCScalingExtension_Deluxe()
124   PetscCall(VecScatterEnd(pcis->global_to_B, pcbddc->work_scaling, y, ADD_VALUES, SCATTER_REVERSE));  in PCBDDCScalingExtension_Deluxe()
143   PC_IS *pcis = (PC_IS *)pc->data;  in PCBDDCScalingRestriction_Basic()  local
146 …PetscCall(VecScatterBegin(pcis->global_to_B, global_vector, local_interface_vector, INSERT_VALUES,…  in PCBDDCScalingRestriction_Basic()
147 …PetscCall(VecScatterEnd(pcis->global_to_B, global_vector, local_interface_vector, INSERT_VALUES, S…  in PCBDDCScalingRestriction_Basic()
149   PetscCall(VecPointwiseMult(local_interface_vector, pcis->D, local_interface_vector));  in PCBDDCScalingRestriction_Basic()
155   PC_IS              *pcis       = (PC_IS *)pc->data;  in PCBDDCScalingRestriction_Deluxe()  local
161   PetscCall(VecScatterBegin(pcis->global_to_B, x, y, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCScalingRestriction_Deluxe()
162   PetscCall(VecScatterEnd(pcis->global_to_B, x, y, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCScalingRestriction_Deluxe()
168     PetscCall(VecGetArrayRead(pcis->D, &array_D));  in PCBDDCScalingRestriction_Deluxe()
170     PetscCall(VecRestoreArrayRead(pcis->D, &array_D));  in PCBDDCScalingRestriction_Deluxe()
233   PC_IS   *pcis   = (PC_IS *)pc->data;  in PCBDDCScalingSetUp()  local
241   PetscCall(VecDuplicate(pcis->vec1_B, &pcbddc->work_scaling));  in PCBDDCScalingSetUp()
243   if (pcis->use_stiffness_scaling) {  in PCBDDCScalingSetUp()
247     PetscCall(MatGetDiagonal(pcbddc->local_mat, pcis->vec1_N));  in PCBDDCScalingSetUp()
248     PetscCall(VecScatterBegin(pcis->N_to_B, pcis->vec1_N, pcis->D, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCScalingSetUp()
249     PetscCall(VecScatterEnd(pcis->N_to_B, pcis->vec1_N, pcis->D, INSERT_VALUES, SCATTER_FORWARD));  in PCBDDCScalingSetUp()
250     PetscCall(VecAbs(pcis->D));  in PCBDDCScalingSetUp()
251     PetscCall(VecGetLocalSize(pcis->D, &n));  in PCBDDCScalingSetUp()
252     PetscCall(VecGetArray(pcis->D, &a));  in PCBDDCScalingSetUp()
255     PetscCall(VecRestoreArray(pcis->D, &a));  in PCBDDCScalingSetUp()
257   PetscCall(VecSet(pcis->vec1_global, 0.0));  in PCBDDCScalingSetUp()
258 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->D, pcis->vec1_global, ADD_VALUES, SCATTER_REVER…  in PCBDDCScalingSetUp()
259 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->D, pcis->vec1_global, ADD_VALUES, SCATTER_REVERSE…  in PCBDDCScalingSetUp()
260 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATT…  in PCBDDCScalingSetUp()
261 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATTER…  in PCBDDCScalingSetUp()
262   PetscCall(VecPointwiseDivide(pcis->D, pcis->D, pcis->vec1_B));  in PCBDDCScalingSetUp()
284     PetscCall(VecSet(pcis->vec1_global, 0.0));  in PCBDDCScalingSetUp()
285     PetscCall(VecSetRandom(pcis->vec1_B, NULL));  in PCBDDCScalingSetUp()
286 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_…  in PCBDDCScalingSetUp()
287 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_RE…  in PCBDDCScalingSetUp()
288     PetscCall(VecDuplicate(pcis->vec1_global, &vec2_global));  in PCBDDCScalingSetUp()
289     PetscCall(VecCopy(pcis->vec1_global, vec2_global));  in PCBDDCScalingSetUp()
290 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATT…  in PCBDDCScalingSetUp()
291 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATTER…  in PCBDDCScalingSetUp()
296 …PetscCall(MatCreateSubMatrix(pcbddc->benign_B0, is_dummy, pcis->is_B_local, MAT_INITIAL_MATRIX, &B…  in PCBDDCScalingSetUp()
300       PetscCall(MatMult(B0_B, pcis->vec1_B, B0_Bv));  in PCBDDCScalingSetUp()
302     PetscCall(PCBDDCScalingExtension(pc, pcis->vec1_B, pcis->vec1_global));  in PCBDDCScalingSetUp()
305 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATT…  in PCBDDCScalingSetUp()
306 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_global, pcis->vec1_B, INSERT_VALUES, SCATTER…  in PCBDDCScalingSetUp()
308         PetscCall(MatMult(B0_B, pcis->vec1_B, B0_Bv2));  in PCBDDCScalingSetUp()
315     PetscCall(VecAXPY(pcis->vec1_global, -1.0, vec2_global));  in PCBDDCScalingSetUp()
316     PetscCall(VecNorm(pcis->vec1_global, NORM_INFINITY, &error));  in PCBDDCScalingSetUp()
321     PetscCall(VecSet(pcis->vec1_global, 0.0));  in PCBDDCScalingSetUp()
322     PetscCall(VecSetRandom(pcis->vec1_B, NULL));  in PCBDDCScalingSetUp()
323 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_…  in PCBDDCScalingSetUp()
324 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_RE…  in PCBDDCScalingSetUp()
325     PetscCall(PCBDDCScalingRestriction(pc, pcis->vec1_global, pcis->vec1_B));  in PCBDDCScalingSetUp()
326     PetscCall(VecScale(pcis->vec1_B, -1.0));  in PCBDDCScalingSetUp()
327 …PetscCall(VecScatterBegin(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_…  in PCBDDCScalingSetUp()
328 …PetscCall(VecScatterEnd(pcis->global_to_B, pcis->vec1_B, pcis->vec1_global, ADD_VALUES, SCATTER_RE…  in PCBDDCScalingSetUp()
329     PetscCall(VecNorm(pcis->vec1_global, NORM_INFINITY, &error));  in PCBDDCScalingSetUp()
393   PC_IS              *pcis       = (PC_IS *)pc->data;  in PCBDDCScalingSetUp_Deluxe()  local
420 …PetscCall(ISGlobalToLocalMappingApply(pcis->BtoNmap, IS_GTOLM_DROP, n_com, idxs, &nmap, deluxe_ctx…  in PCBDDCScalingSetUp_Deluxe()
429 …PetscCall(ISGlobalToLocalMappingApply(pcis->BtoNmap, IS_GTOLM_DROP, n_dir, idxs, &nmap, deluxe_ctx…  in PCBDDCScalingSetUp_Deluxe()