212       PetscInt       num_dual_basis_vectors, dim, num_comp;  in DMPlexCeedElemRestrictionStridedCreate()  local
214       PetscCall(PetscFEGetSpatialDimension(fe, &dim));  in DMPlexCeedElemRestrictionStridedCreate()
294 static PetscErrorCode PetscDTUniformTensorQuadrature(PetscInt dim, PetscInt num_comp, PetscInt num_…  in PetscDTUniformTensorQuadrature()  argument
297 …PetscInt       num_total_points = dim > 1 ? (dim > 2 ? (num_points * num_points * num_points) : (n…  in PetscDTUniformTensorQuadrature()
301   PetscCall(PetscMalloc1(num_total_points * dim, &coords));  in PetscDTUniformTensorQuadrature()
304   switch (dim) {  in PetscDTUniformTensorQuadrature()
332           coords[(i * num_points + j) * dim + 0] = coords_1d[i];  in PetscDTUniformTensorQuadrature()
333           coords[(i * num_points + j) * dim + 1] = coords_1d[j];  in PetscDTUniformTensorQuadrature()
348             coords[((i * num_points + j) * num_points + k) * dim + 0] = coords_1d[i];  in PetscDTUniformTensorQuadrature()
349             coords[((i * num_points + j) * num_points + k) * dim + 1] = coords_1d[j];  in PetscDTUniformTensorQuadrature()
350             coords[((i * num_points + j) * num_points + k) * dim + 2] = coords_1d[k];  in PetscDTUniformTensorQuadrature()
359 …F, PETSC_ERR_ARG_OUTOFRANGE, "Cannot construct quadrature rule for dimension %" PetscInt_FMT, dim);  in PetscDTUniformTensorQuadrature()
365   PetscCall(PetscQuadratureSetData(*q, dim, num_comp, num_total_points, coords, weights));  in PetscDTUniformTensorQuadrature()
384 PetscErrorCode PetscFECreateLagrangeFromOptions(MPI_Comm comm, PetscInt dim, PetscInt num_comp, Pet…  in PetscFECreateLagrangeFromOptions()  argument
387   DMPolytopeType  polytope_type = DMPolytopeTypeSimpleShape(dim, is_simplex);  in PetscFECreateLagrangeFromOptions()
399   PetscCall(PetscSpaceSetNumVariables(fe_space, dim));  in PetscFECreateLagrangeFromOptions()
410       PetscCall(PetscSpaceSetNumVariables(fe_space_end, dim - 1));  in PetscFECreateLagrangeFromOptions()
429         PetscCall(PetscSpaceSetNumVariables(fe_space, dim));  in PetscFECreateLagrangeFromOptions()
470 …PetscCheck(!use_uniform || (is_tensor || dim == 1), comm, PETSC_ERR_SUP, "Can only use uniform qua…  in PetscFECreateLagrangeFromOptions()
472     PetscCall(PetscDTUniformTensorQuadrature(dim, 1, q_order + 1, -1.0, 1.0, &quadrature));  in PetscFECreateLagrangeFromOptions()
473     PetscCall(PetscDTUniformTensorQuadrature(dim - 1, 1, q_order + 1, -1.0, 1.0, &face_quadrature));  in PetscFECreateLagrangeFromOptions()
539   PetscInt     dim, num_fields, offset = 0, size = 0;  in GetClosurePermutationAndFieldOffsetAtDepth()  local
545   PetscCall(DMGetDimension(dm, &dim));  in GetClosurePermutationAndFieldOffsetAtDepth()
564     num_dof_1d = (PetscInt)PetscCeilReal(PetscPowReal(dual_space_size / num_components, 1.0 / dim));  in GetClosurePermutationAndFieldOffsetAtDepth()
594   PetscInt        field_offset = 0, num_comp, P, Q, dim;  in ComputeFieldTabulationP2C()  local
602   dim      = tabulation->cdim;  in ComputeFieldTabulationP2C()
605   PetscCall(PetscCalloc1(P * Q * dim, grad));  in ComputeFieldTabulationP2C()
609 …PetscCall(GetClosurePermutationAndFieldOffsetAtDepth(dm, dim, field, &permutation, &field_offset));  in ComputeFieldTabulationP2C()
619       for (CeedInt d = 0; d < dim; d++) {  in ComputeFieldTabulationP2C()
620 …+ p_ceed] = tabulation->T[1][(((face * Q + q) * P * num_comp + p_petsc) * num_comp + c) * dim + d];  in ComputeFieldTabulationP2C()
647   PetscInt         spatial_dim, dim, num_comp_quadrature, num_q_points;  in GetQuadratureDataP2C()  local
652 …PetscCall(PetscQuadratureGetData(quadrature, &dim, &num_comp_quadrature, &num_q_points, &q_points_…  in GetQuadratureDataP2C()
653   if (q_dim) *q_dim = dim;  in GetQuadratureDataP2C()
667 …  for (CeedInt d = 0; d < dim; d++) (*q_points)[i * spatial_dim + d] = q_points_petsc[i * dim + d];  in GetQuadratureDataP2C()
691   PetscInt        dim, num_comp, Q = -1, q_dim = -1, num_derivatives = 1;  in Create1DTabulation_Tensor()  local
697   PetscCall(PetscFEGetSpatialDimension(fe, &dim));  in Create1DTabulation_Tensor()
713 …             (PetscInt)PetscCeilReal(PetscPowReal(1.0 * q_order, 1.0 / dim)) - 1, prefix, &fe_1d));  in Create1DTabulation_Tensor()
838       PetscInt        P_1d, Q_1d, num_comp, dim;  in DMPlexCeedBasisCreate()  local
842       PetscCall(PetscFEGetSpatialDimension(fe, &dim));  in DMPlexCeedBasisCreate()
848 …PetscCallCeed(ceed, CeedBasisCreateTensorH1(ceed, dim, num_comp, P_1d, Q_1d, interp_1d, grad_1d, q…  in DMPlexCeedBasisCreate()
1071   PetscInt  dim, q_order = degree + q_extra;  in DMSetupByOrderBegin_FEM()  local
1080   PetscCall(DMGetDimension(dm, &dim));  in DMSetupByOrderBegin_FEM()
1085     PetscCall(PetscFECreateLagrange(comm, dim, field_sizes[i], is_simplex, degree, q_order, &fe));  in DMSetupByOrderBegin_FEM()
1109 …PetscCall(PetscFECreateLagrange(comm, dim, num_comp_coord, is_simplex, fe_coord_order, q_order, &f…  in DMSetupByOrderBegin_FEM()