Searched refs:nodework (Results 1 – 1 of 1) sorted by relevance
151 PetscReal *nodework; in Petsc1DNodeFamilyComputeSimplexNodes() local162 PetscCall(PetscCalloc2(worksize, &nodework, worksize, &tupwork)); in Petsc1DNodeFamilyComputeSimplexNodes()188 PetscCall(PetscNodeRecursive_Internal(dim, degree, nodesets, tupwork, nodework)); in Petsc1DNodeFamilyComputeSimplexNodes()189 for (i = 0; i < dim; i++) points[dim * k + i] = nodework[i + 1]; in Petsc1DNodeFamilyComputeSimplexNodes()196 PetscCall(PetscFree2(nodework, tupwork)); in Petsc1DNodeFamilyComputeSimplexNodes()