Lines Matching refs:f
148 PetscInt Nf, f, Nds, s; in PetscConvEstSetUp() local
155 for (f = 0; f < Nf; ++f) ce->initGuess[f] = zero_private; in PetscConvEstSetUp()
167 for (f = 0; f < dsNf; ++f) { in PetscConvEstSetUp()
168 const PetscInt field = fields[f]; in PetscConvEstSetUp()
173 …f = 0; f < Nf; ++f) PetscCheck(ce->exactSol[f], PetscObjectComm((PetscObject)ce), PETSC_ERR_ARG_WR… in PetscConvEstSetUp()
217 PetscInt f; in PetscConvEstMonitorDefault() local
227 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstMonitorDefault()
228 if (f > 0) PetscCall(PetscPrintf(comm, ", ")); in PetscConvEstMonitorDefault()
229 PetscCall(PetscPrintf(comm, "%7" PetscInt_FMT, dofs[f])); in PetscConvEstMonitorDefault()
235 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstMonitorDefault()
236 if (f > 0) PetscCall(PetscPrintf(comm, ", ")); in PetscConvEstMonitorDefault()
237 if (errors[f] < 1.0e-11) PetscCall(PetscPrintf(comm, "< 1e-11")); in PetscConvEstMonitorDefault()
238 else PetscCall(PetscPrintf(comm, "%g", (double)errors[f])); in PetscConvEstMonitorDefault()
287 … for (PetscInt f = 0; f < Nf; ++f) PetscCall(PetscDSGetExactSolution(ds, f, &funcs[f], &ctxs[f])); in PetscConvEstComputeErrorSNES_Private() local
310 PetscInt f; in PetscConvEstSetJacobianNullSpace_Private() local
314 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstSetJacobianNullSpace_Private()
317 PetscCall(DMGetNullSpaceConstructor(dm, f, &nspconstr)); in PetscConvEstSetJacobianNullSpace_Private()
322 PetscCall((*nspconstr)(dm, f, f, &nullsp)); in PetscConvEstSetJacobianNullSpace_Private()
339 PetscInt Nr = ce->Nr, r, f, dim, oldlevel, oldnlev; in PetscConvEstGetConvRateSNES_Private() local
377 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstGetConvRateSNES_Private()
380 PetscCall(DMGetNullSpaceConstructor(dm[r - 1], f, &nspconstr)); in PetscConvEstGetConvRateSNES_Private()
381 PetscCall(DMSetNullSpaceConstructor(dm[r], f, nspconstr)); in PetscConvEstGetConvRateSNES_Private()
404 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstGetConvRateSNES_Private()
410 PetscCall(PetscSectionGetField(s, f, &fs)); in PetscConvEstGetConvRateSNES_Private()
412 …PetscCallMPI(MPIU_Allreduce(&lsize, &ce->dofs[r * ce->Nf + f], 1, MPIU_INT, MPI_SUM, PetscObjectCo… in PetscConvEstGetConvRateSNES_Private()
413 PetscCall(PetscLogEventSetDof(ce->event, f, ce->dofs[r * ce->Nf + f])); in PetscConvEstGetConvRateSNES_Private()
414 PetscCall(PetscLogEventSetError(ce->event, f, ce->errors[r * ce->Nf + f])); in PetscConvEstGetConvRateSNES_Private()
434 for (f = 0; f < ce->Nf; ++f) { in PetscConvEstGetConvRateSNES_Private()
436 x[r] = PetscLog10Real(ce->dofs[r * ce->Nf + f]); in PetscConvEstGetConvRateSNES_Private()
437 y[r] = PetscLog10Real(ce->errors[r * ce->Nf + f]); in PetscConvEstGetConvRateSNES_Private()
441 alpha[f] = -slope * dim; in PetscConvEstGetConvRateSNES_Private()
499 PetscInt f; in PetscConvEstGetConvRate() local
503 for (f = 0; f < ce->Nf; ++f) alpha[f] = 0.0; in PetscConvEstGetConvRate()
532 PetscInt Nf = ce->Nf, f; in PetscConvEstRateView() local
537 for (f = 0; f < Nf; ++f) { in PetscConvEstRateView()
538 if (f > 0) PetscCall(PetscViewerASCIIPrintf(viewer, ", ")); in PetscConvEstRateView()
539 PetscCall(PetscViewerASCIIPrintf(viewer, "%#.2g", (double)alpha[f])); in PetscConvEstRateView()