25 static PetscErrorCode constant(PetscInt dim, PetscReal time, const PetscReal x[], PetscInt Nc, Pets…  in constant()  argument
28   for (PetscInt c = 0; c < Nc; ++c) u[c] = c + 1.;  in constant()
32 static PetscErrorCode linear(PetscInt dim, PetscReal time, const PetscReal x[], PetscInt Nc, PetscS…  in linear()  argument
35 …PetscCheck(Nc == 3, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Something is wrong: %" PetscInt_FMT, Nc…  in linear()
36   for (PetscInt c = 0; c < Nc; ++c) {  in linear()
225 static PetscErrorCode CreateDiscretization(DM dm, PetscInt Nc, AppCtx *ctx)  in CreateDiscretization()  argument
235     PetscCall(PetscFVSetNumComponents(fv, Nc));  in CreateDiscretization()
249     PetscCall(PetscFECreateByCell(PetscObjectComm((PetscObject)dm), dim, Nc, ct, NULL, -1, &fe));  in CreateDiscretization()
268   PetscInt            dim, spaceDim, Nc, c, Np, p;  in main()  local
291   Nc = dim;  in main()
292   PetscCall(CreateDiscretization(dm, Nc, &ctx));  in main()
294   PetscCall(PetscCalloc2(Nc, &funcs, Nc, &vals));  in main()
297     for (c = 0; c < Nc; ++c) funcs[c] = constant;  in main()
300     for (c = 0; c < Nc; ++c) funcs[c] = linear;  in main()
314   PetscCall(VecCreateSeq(PETSC_COMM_SELF, interpolator->n * Nc, &fieldVals));  in main()
315   PetscCall(DMInterpolationSetDof(interpolator, Nc));  in main()
327     for (c = 0; c < Nc; ++c) {  in main()
335       PetscCall((*funcs[c])(dim, 0.0, vcoordsReal, Nc, vals, NULL));  in main()
336 …Nc + c] - vals[c]) <= PETSC_SQRT_MACHINE_EPSILON, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Invalid interp…  in main()