Home
last modified time | relevance | path

Searched refs:revlexOrder (Results 1 – 1 of 1) sorted by relevance

/petsc/src/dm/dt/dualspace/impls/lagrange/
H A Ddspacelagrange.c388 PetscInt *revlexOrder; in PetscLagNodeIndicesComputeVertexOrder() local
400 PetscCall(PetscMalloc1(nVerts, &revlexOrder)); in PetscLagNodeIndicesComputeVertexOrder()
440 for (v = 0; v < nVerts; v++) revlexOrder[v] = v; in PetscLagNodeIndicesComputeVertexOrder()
443 const PetscScalar *cv = &coords[closureOrder[revlexOrder[v]] * dim]; in PetscLagNodeIndicesComputeVertexOrder()
444 const PetscScalar *cw = &coords[closureOrder[revlexOrder[w]] * dim]; in PetscLagNodeIndicesComputeVertexOrder()
450 PetscInt swap = revlexOrder[v]; in PetscLagNodeIndicesComputeVertexOrder()
452 revlexOrder[v] = revlexOrder[w]; in PetscLagNodeIndicesComputeVertexOrder()
453 revlexOrder[w] = swap; in PetscLagNodeIndicesComputeVertexOrder()
461 …for (d = 0; d < ni->nodeIdxDim; d++) newNodeIdx[revlexOrder[v] * ni->nodeIdxDim + d] = ni->nodeIdx… in PetscLagNodeIndicesComputeVertexOrder()
466 PetscCall(PetscFree(revlexOrder)); in PetscLagNodeIndicesComputeVertexOrder()