Lines Matching refs:nodeVec

314   PetscReal *nodeVec; /* for each node a vector of size nodeVecDim */  member
320 …Dim, PetscInt *nodeVecDim, PetscInt *nNodes, const PetscInt *nodeIdx[], const PetscReal *nodeVec[]) in PetscLagNodeIndicesGetData_Internal() argument
327 *nodeVec = ni->nodeVec; in PetscLagNodeIndicesGetData_Internal()
348 PetscCall(PetscMalloc1(ni->nNodes * ni->nodeVecDim, &((*niNew)->nodeVec))); in PetscLagNodeIndicesDuplicate()
349 PetscCall(PetscArraycpy((*niNew)->nodeVec, ni->nodeVec, ni->nNodes * ni->nodeVecDim)); in PetscLagNodeIndicesDuplicate()
363 PetscCall(PetscFree((*ni)->nodeVec)); in PetscLagNodeIndicesDestroy()
555 const PetscReal *nodeVec = nodep->nodeVec; in PetscLagNodeIndicesPushForward() local
639 for (j = 0; j < pNk; j++) val += nodeVec[n * pNk + j] * Jstar[j * Nk + i]; in PetscLagNodeIndicesPushForward()
688 PetscCall(PetscMalloc1(nNodes * Nk, &ni->nodeVec)); in PetscLagNodeIndicesTensor()
704 for (e = 0; e < NkF; e++) val += projFstar[d * NkF + e] * fiberi->nodeVec[j * NkF + e]; in PetscLagNodeIndicesTensor()
718 for (e = 0; e < NkT; e++) val += projTstar[d * NkT + e] * tracei->nodeVec[i * NkT + e]; in PetscLagNodeIndicesTensor()
738 for (d = 0; d < Nk; d++) ni->nodeVec[l * Nk + d] = sign * work[d]; in PetscLagNodeIndicesTensor()
764 PetscCall(PetscMalloc1(nNodes * nodeVecDim, &ni->nodeVec)); in PetscLagNodeIndicesMerge()
766 PetscCall(PetscArraycpy(ni->nodeVec, niA->nodeVec, niA->nNodes * nodeVecDim)); in PetscLagNodeIndicesMerge()
768 …PetscCall(PetscArraycpy(&ni->nodeVec[niA->nNodes * nodeVecDim], niB->nodeVec, niB->nNodes * nodeVe… in PetscLagNodeIndicesMerge()
1366 PetscCall(PetscMalloc1(nNodes * Nk * Nk, &ni->nodeVec)); in PetscDualSpaceLagrangeCreateSimplexNodeMat()
1369 for (k = 0; k < Nk; k++) ni->nodeVec[(i * Nk + j) * Nk + k] = (j == k) ? 1. : 0.; in PetscDualSpaceLagrangeCreateSimplexNodeMat()
1460 PetscCall(PetscMalloc1(Nk * nDofs, &ni->nodeVec)); in PetscDualSpaceLagrangeCreateAllNodeIdx()
1465 PetscCall(PetscArraycpy(ni->nodeVec, lag->intNodeIndices->nodeVec, spintdim * Nk)); in PetscDualSpaceLagrangeCreateAllNodeIdx()
1476 …ces, plag->intNodeIndices, 0, formDegree, &ni->nodeIdx[off * nodeIdxDim], &ni->nodeVec[off * Nk])); in PetscDualSpaceLagrangeCreateAllNodeIdx()
1963 …for (j = 0; j < nodeVecDim; j++) nVecPerm[i * nodeVecDim + j] = ni->nodeVec[perm[i] * nodeVecDim +… in MatPermuteByNodeIdx()
1973 PetscCall(PetscFree(ni->nodeVec)); in MatPermuteByNodeIdx()
1975 ni->nodeVec = nVecPerm; in MatPermuteByNodeIdx()
2297 PetscReal *newNodeVec = lag->intNodeIndices->nodeVec; in PetscDualSpaceSetUp_Lagrange()
2298 const PetscReal *oldNodeVec = trimmedlag->allNodeIndices->nodeVec; in PetscDualSpaceSetUp_Lagrange()
2495 PetscCall(PetscMalloc1(nNodes * nodeVecDim, &ni->nodeVec)); in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()
2497 …ward(dm, vertIndices, 0, vertIndices, intNodeIndices, ornt, formDegree, ni->nodeIdx, ni->nodeVec)); in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()
2567 V[(m - n) * nodeVecDim + d] = intNodeIndices->nodeVec[perm[m] * nodeVecDim + d]; in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()
2568 W[(m - n) * nodeVecDim + d] = ni->nodeVec[permOrnt[m] * nodeVecDim + d]; in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()
2603 …for (d = 0; d < nodeVecDim; d++) W[(m - n) * nodeVecDim + d] = ni->nodeVec[permOrnt[m] * nodeVecDi… in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()
2608 …ze; k++) W[i * nodeVecDim + j] -= V[i * groupSize + k] * intNodeIndices->nodeVec[perm[n + k] * nod… in PetscDualSpaceCreateInteriorSymmetryMatrix_Lagrange()