Searched refs:quad_v (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/impls/plex/tests/ |
| H A D | dmplexcomputecellgeometryfem.F90 | 78 …PetscCheckA(all(abs(v((k - 1)*numDim + 1:k*numDim) - quad_v(Gauss_rs(k))) < eps), PETSC_COMM_WORLD…
106 function quad_v(rs) function
108 PetscReal :: quad_v(2)
114 quad_v(1) = -0.5*r*(s - 5) ! sum N_i * x_i
115 quad_v(2) = 0.5*(r + 5*s + 2) ! sum N_i * y_i
117 end function quad_v
|
| /petsc/src/dm/impls/plex/transform/impls/refine/regular/ |
| H A D | plexrefregular.c | 313 …static PetscReal quad_v[] = {-1.0, -1.0, 1.0, -1.0, 1.0, 1.0, -1.0, 1.0, 0.0, -1.0, 1.0, 0.0…
331 case DM_POLYTOPE_QUADRILATERAL: *Nv = 9; *subcellV = quad_v; break;
343 static PetscInt quad_v[] = {0, 4, 8, 7, 4, 1, 5, 8, 8, 5, 2, 6, 7, 8, 6, 3};
354 case DM_POLYTOPE_QUADRILATERAL: *Nv = 4; *subcellV = &quad_v[r*(*Nv)]; break;
|