975 PetscErrorCode PetscDTIndexToGradedOrder(PetscInt len, PetscInt index, PetscInt degtup[])  in PetscDTIndexToGradedOrder()  argument
993     degtup[i] = sum;  in PetscDTIndexToGradedOrder()
999       degtup[i]--;  in PetscDTIndexToGradedOrder()
1001     sum -= degtup[i];  in PetscDTIndexToGradedOrder()
1025 PetscErrorCode PetscDTGradedOrderToIndex(PetscInt len, const PetscInt degtup[], PetscInt *index)  in PetscDTGradedOrderToIndex()  argument
1031   for (i = 0, sum = 0; i < len; i++) sum += degtup[i];  in PetscDTGradedOrderToIndex()
1042     sum -= degtup[i];  in PetscDTGradedOrderToIndex()
1101   PetscInt  *ktup, *degtup;  in PetscDTPKDEvalJet()  local
1108   PetscCall(PetscMalloc2(dim, &degtup, dim, &ktup));  in PetscDTPKDEvalJet()
1124     PetscCall(PetscDTIndexToGradedOrder(dim, degidx, degtup));  in PetscDTPKDEvalJet()
1126       if (degtup[d]) break;  in PetscDTPKDEvalJet()
1137     n = degtup[d];  in PetscDTPKDEvalJet()
1138     degtup[d]--;  in PetscDTPKDEvalJet()
1139     PetscCall(PetscDTGradedOrderToIndex(dim, degtup, &m1idx));  in PetscDTPKDEvalJet()
1140     if (degtup[d] > 0) {  in PetscDTPKDEvalJet()
1141       degtup[d]--;  in PetscDTPKDEvalJet()
1142       PetscCall(PetscDTGradedOrderToIndex(dim, degtup, &m2idx));  in PetscDTPKDEvalJet()
1143       degtup[d]++;  in PetscDTPKDEvalJet()
1145     degtup[d]++;  in PetscDTPKDEvalJet()
1146     for (e = 0, degsum = 0; e < d; e++) degsum += degtup[e];  in PetscDTPKDEvalJet()
1158       PetscCall(PetscDTJacobiNorm(ealpha, 0., degtup[e], &enorm));  in PetscDTPKDEvalJet()
1160       degsum += degtup[e];  in PetscDTPKDEvalJet()
1229   PetscCall(PetscFree2(degtup, ktup));  in PetscDTPKDEvalJet()