Searched refs:quad_J (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/impls/plex/tests/ |
| H A D | dmplexcomputecellgeometryfem.F90 | 79 …PetscCheckA(all(abs(J((k - 1)*numDim**2 + 1:k*numDim**2) - quad_J(Gauss_rs(k))) < eps), PETSC_COMM…
119 function quad_J(rs) function
121 PetscReal :: quad_J(4)
128 quad_J = [-0.5*(s - 5), -0.5*r, pfive, twopfive]
129 end function quad_J
|
| /petsc/src/dm/impls/plex/transform/impls/refine/regular/ |
| H A D | plexrefregular.c | 87 static PetscReal quad_J[] = {1.0, 0.0, 0.0, 1.0, -1.0, 0.0, 0.0, -1.0}; in DMPlexRefineRegularGetAffineFaceTransforms() local
103 if (J) *J = quad_J; in DMPlexRefineRegularGetAffineFaceTransforms()
212 static PetscReal quad_J[] = {0.5, 0.0, 0.0, 0.5, in DMPlexRefineRegularGetAffineTransforms() local
287 if (J) *J = quad_J; in DMPlexRefineRegularGetAffineTransforms()
|