Searched refs:psingle (Results 1 – 1 of 1) sorted by relevance
870 PetscReal *psingle; in PetscDTJacobiEvalJet() local880 PetscCall(PetscMalloc1((degree + 1) * npoints, &psingle)); in PetscDTJacobiEvalJet()883 …tscCall(PetscDTJacobiEval_Internal(npoints, alpha, beta, i, points, degree + 1, degrees, psingle)); in PetscDTJacobiEvalJet()885 … for (l = 0; l < npoints; l++) p[(j * (k + 1) + i) * npoints + l] = psingle[l * (degree + 1) + j]; in PetscDTJacobiEvalJet()888 PetscCall(PetscFree(psingle)); in PetscDTJacobiEvalJet()