Lines Matching refs:n_simple
68 if (deluxe_ctx->n_simple) { /* scale deluxe vertices using diagonal scaling */ in PCBDDCScalingExtension_Deluxe()
75 …for (i = 0; i < deluxe_ctx->n_simple; i++) array[deluxe_ctx->idx_simple_B[i]] = array_x[deluxe_ctx… in PCBDDCScalingExtension_Deluxe()
163 if (deluxe_ctx->n_simple) { /* scale deluxe vertices using diagonal scaling */ in PCBDDCScalingRestriction_Deluxe()
169 …for (i = 0; i < deluxe_ctx->n_simple; i++) array_y[deluxe_ctx->idx_simple_B[i]] *= array_D[deluxe_… in PCBDDCScalingRestriction_Deluxe()
377 deluxe_ctx->n_simple = 0; in PCBDDCScalingReset_Deluxe_Solvers()
412 if (!deluxe_ctx->n_simple) { in PCBDDCScalingSetUp_Deluxe()
413 deluxe_ctx->n_simple = n_dir + n_com; in PCBDDCScalingSetUp_Deluxe()
414 PetscCall(PetscMalloc1(deluxe_ctx->n_simple, &deluxe_ctx->idx_simple_B)); in PCBDDCScalingSetUp_Deluxe()
433 PetscCall(PetscSortInt(deluxe_ctx->n_simple, deluxe_ctx->idx_simple_B)); in PCBDDCScalingSetUp_Deluxe()
435 …n_simple == n_dir + n_com, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Number of simply scaled dofs %" Petsc… in PCBDDCScalingSetUp_Deluxe()
438 deluxe_ctx->n_simple = 0; in PCBDDCScalingSetUp_Deluxe()