201   MFCtx_Private *mfctx;  in MatCreateSNESMFMore()  local
207   PetscCall(PetscNew(&mfctx));  in MatCreateSNESMFMore()
208   mfctx->sp               = NULL;  in MatCreateSNESMFMore()
209   mfctx->snes             = snes;  in MatCreateSNESMFMore()
210   mfctx->error_rel        = PETSC_SQRT_MACHINE_EPSILON;  in MatCreateSNESMFMore()
211   mfctx->umin             = 1.e-6;  in MatCreateSNESMFMore()
212   mfctx->h                = 0.0;  in MatCreateSNESMFMore()
213   mfctx->need_h           = PETSC_TRUE;  in MatCreateSNESMFMore()
214   mfctx->need_err         = PETSC_FALSE;  in MatCreateSNESMFMore()
215   mfctx->compute_err      = PETSC_FALSE;  in MatCreateSNESMFMore()
216   mfctx->compute_err_freq = 0;  in MatCreateSNESMFMore()
217   mfctx->compute_err_iter = -1;  in MatCreateSNESMFMore()
218   mfctx->compute_err      = PETSC_FALSE;  in MatCreateSNESMFMore()
219   mfctx->jorge            = PETSC_FALSE;  in MatCreateSNESMFMore()
221 …PetscObject)snes)->options, ((PetscObject)snes)->prefix, "-snes_mf_err", &mfctx->error_rel, NULL));  in MatCreateSNESMFMore()
222 …l(((PetscObject)snes)->options, ((PetscObject)snes)->prefix, "-snes_mf_umin", &mfctx->umin, NULL));  in MatCreateSNESMFMore()
223 …((PetscObject)snes)->options, ((PetscObject)snes)->prefix, "-snes_mf_jorge", &mfctx->jorge, NULL));  in MatCreateSNESMFMore()
224 …ect)snes)->options, ((PetscObject)snes)->prefix, "-snes_mf_compute_err", &mfctx->compute_err, NULL…  in MatCreateSNESMFMore()
225 …Object)snes)->options, ((PetscObject)snes)->prefix, "-snes_mf_freq_err", &mfctx->compute_err_freq,…  in MatCreateSNESMFMore()
227     if (mfctx->compute_err_freq < 0) mfctx->compute_err_freq = 0;  in MatCreateSNESMFMore()
228     mfctx->compute_err = PETSC_TRUE;  in MatCreateSNESMFMore()
230   if (mfctx->compute_err) mfctx->need_err = PETSC_TRUE;  in MatCreateSNESMFMore()
231 …if (mfctx->jorge || mfctx->compute_err) PetscCall(SNESDiffParameterCreate_More(snes, x, &mfctx->da…  in MatCreateSNESMFMore()
232   else mfctx->data = NULL;  in MatCreateSNESMFMore()
239 …f_err <err>: set sqrt of relative error in function (default %g)\n", p, (double)mfctx->error_rel));  in MatCreateSNESMFMore()
240 …bject)snes), "   %ssnes_mf_umin <umin>: see users manual (default %g)\n", p, (double)mfctx->umin));  in MatCreateSNESMFMore()
246   PetscCall(VecDuplicate(x, &mfctx->w));  in MatCreateSNESMFMore()
253   PetscCall(MatShellSetContext(*J, mfctx));  in MatCreateSNESMFMore()