Searched refs:ocptr (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcgraph.c | 518 PetscInt *ocptr, *oqueue; in PCBDDCGraphComputeConnectedComponents() local
521 …PetscCall(PetscMalloc3(graph->ncc + 1, &ocptr, graph->cptr[graph->ncc], &oqueue, graph->cptr[graph… in PCBDDCGraphComputeConnectedComponents()
522 PetscCall(PetscArraycpy(ocptr, graph->cptr, graph->ncc + 1)); in PCBDDCGraphComputeConnectedComponents()
529 for (PetscInt j = ocptr[i]; j < ocptr[i + 1]; j++) { in PCBDDCGraphComputeConnectedComponents()
535 for (PetscInt k = j; k < ocptr[i + 1]; k++) { /* check for other nodes in new cc */ in PCBDDCGraphComputeConnectedComponents()
544 PetscCall(PetscFree3(ocptr, oqueue, touched)); in PCBDDCGraphComputeConnectedComponents()
|
| H A D | bddcprivate.c | 1600 PetscInt *ocptr = graph->cptr; in PCBDDCNedelecSupport() local
1614 PetscCall(PetscMalloc2(graph->nvtxs + 1, &graph->cptr, ocptr[graph->ncc], &graph->queue)); in PCBDDCNedelecSupport()
1617 PetscInt lc = ocptr[i + 1] - ocptr[i]; in PCBDDCNedelecSupport()
1618 if (cum != nee && oqueue[ocptr[i + 1] - 1] == cedges[cum]) { /* this cc has a primal dof */ in PCBDDCNedelecSupport()
1627 for (j = 0; j < lc; j++) graph->queue[graph->cptr[ncc] + j] = oqueue[ocptr[i] + j]; in PCBDDCNedelecSupport()
1632 PetscCall(PetscFree2(ocptr, oqueue)); in PCBDDCNedelecSupport()
|