Searched refs:eqToBi (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1896 PetscReal *biToEq, *eqToBi, *biToEqStar, *eqToBiStar; in BiunitSimplexSymmetricFormTransformation() local
1901 …PetscCall(PetscCalloc4(dim * dim, &biToEq, dim * dim, &eqToBi, Nk * Nk, &biToEqStar, Nk * Nk, &eqT… in BiunitSimplexSymmetricFormTransformation()
1912 eqToBi[j * dim + j] = PetscSqrtReal(2. * ((PetscReal)j + 1.) / ((PetscReal)j + 2)); in BiunitSimplexSymmetricFormTransformation()
1914 for (PetscInt i = 0; i < j; i++) eqToBi[i * dim + j] = -PetscSqrtReal(1. / (PetscReal)fact); in BiunitSimplexSymmetricFormTransformation()
1917 PetscCall(PetscDTAltVPullbackMatrix(dim, dim, eqToBi, k, eqToBiStar)); in BiunitSimplexSymmetricFormTransformation()
1939 PetscCall(PetscFree4(biToEq, eqToBi, biToEqStar, eqToBiStar)); in BiunitSimplexSymmetricFormTransformation()
|