Searched refs:lgndre_jet (Results 1 – 1 of 1) sorted by relevance
48 PetscReal *lgndre_jet; in testDerivativesLegendre() local112 PetscCall(PetscMalloc3(Nk * Np, &pkd_jet_basis, Nk, &lgndre_jet, Nk, &pkd_jet)); in testDerivativesLegendre()128 for (j = 0; j < Nk; j++) lgndre_jet[j] = 0.; in testDerivativesLegendre()138 lgndre_jet[j] += mul * val; in testDerivativesLegendre()145 PetscReal diff = lgndre_jet[i] - pkd_jet[i]; in testDerivativesLegendre()146 PetscReal scale = 1. + PetscAbsReal(lgndre_jet[i]) + PetscAbsReal(pkd_jet[i]); in testDerivativesLegendre()154 PetscCall(PetscFree3(pkd_jet_basis, lgndre_jet, pkd_jet)); in testDerivativesLegendre()