131   PetscInt Nc;     /* Number of field components */  member
149 PetscErrorCode constant(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscS…  in constant()  argument
154   if (Nc > 1) {  in constant()
155     for (d = 0; d < Nc; ++d) u[d] = user->constants[d];  in constant()
161 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in constantDer()  argument
166   if (Nc > 1) {  in constantDer()
167     for (d = 0; d < Nc; ++d) u[d] = 0.0;  in constantDer()
175 PetscErrorCode linear(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscSca…  in linear()  argument
180   if (Nc > 1) {  in linear()
181     for (d = 0; d < Nc; ++d) u[d] = coords[d];  in linear()
187 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in linearDer()  argument
192   if (Nc > 1) {  in linearDer()
194     for (d = 0; d < Nc; ++d) {  in linearDer()
205 PetscErrorCode quadratic(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, Petsc…  in quadratic()  argument
210   if (Nc > 1) {  in quadratic()
211     if (Nc > 2) {  in quadratic()
224 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in quadraticDer()  argument
229   if (Nc > 1) {  in quadraticDer()
230     if (Nc > 2) {  in quadraticDer()
245 PetscErrorCode cubic(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscScal…  in cubic()  argument
250   if (Nc > 1) {  in cubic()
251     if (Nc > 2) {  in cubic()
264 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in cubicDer()  argument
269   if (Nc > 1) {  in cubicDer()
270     if (Nc > 2) {  in cubicDer()
285 PetscErrorCode quartic(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscSc…  in quartic()  argument
290   if (Nc > 1) {  in quartic()
291     if (Nc > 2) {  in quartic()
304 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in quarticDer()  argument
309   if (Nc > 1) {  in quarticDer()
310     if (Nc > 2) {  in quarticDer()
324 PetscErrorCode mytanh(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscSca…  in mytanh()  argument
329   if (Nc > 1) {  in mytanh()
330     for (d = 0; d < Nc; ++d) u[d] = PetscTanhReal(coords[d] - 0.5);  in mytanh()
336 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in mytanhDer()  argument
341   if (Nc > 1) {  in mytanhDer()
342     for (d = 0; d < Nc; ++d) u[d] = 1.0 / PetscSqr(PetscCoshReal(coords[d] - 0.5)) * n[d];  in mytanhDer()
349 PetscErrorCode trig(PetscInt dim, PetscReal time, const PetscReal coords[], PetscInt Nc, PetscScala…  in trig()  argument
354   if (Nc > 1) {  in trig()
355     for (d = 0; d < Nc; ++d) u[d] = PetscSinReal(PETSC_PI * m * coords[d]);  in trig()
361 …m, PetscReal time, const PetscReal coords[], const PetscReal n[], PetscInt Nc, PetscScalar *u, Pet…  in trigDer()  argument
366   if (Nc > 1) {  in trigDer()
367     for (d = 0; d < Nc; ++d) u[d] = PETSC_PI * m * PetscCosReal(PETSC_PI * m * coords[d]) * n[d];  in trigDer()
378   options->Nc      = PETSC_DEFAULT;  in ProcessOptions()
387 …tionsInt("-num_comp", "The number of field components", "ex8.c", options->Nc, &options->Nc, NULL));  in ProcessOptions()
660 …PetscCall(PetscFECreateDefault(PETSC_COMM_WORLD, dim, user.Nc < 0 ? dim : user.Nc, simplex, NULL, …  in main()