Lines Matching refs:hopt
77 …de SNESDiffParameterCompute_More(SNES snes, void *nePv, Vec x, Vec p, double *fnoise, double *hopt) in SNESDiffParameterCompute_More() argument
142 PetscCall(SNESNoise_dnest_(&nf, fval, &h, fnoise, &fder2, hopt, &info, eps)); in SNESDiffParameterCompute_More()
151 …rf = %g, hopt = %g\n\n", (double)h, (double)*fnoise, (double)fder2, (double)rerrf, (double)*hopt)); in SNESDiffParameterCompute_More()
161 *hopt = 1.68 * sqrt(*fnoise / PetscAbsScalar(fder2)); in SNESDiffParameterCompute_More()
182 if (*hopt < neP->hopt_min) { in SNESDiffParameterCompute_More()
183 …PetscCall(PetscFPrintf(comm, fp, "Resetting hopt: hopt1 = %g, hopt_min = %g\n", (double)*hopt, (do… in SNESDiffParameterCompute_More()
184 *hopt = neP->hopt_min; in SNESDiffParameterCompute_More()
189 … fnoise = %g, fder2 = %g, hopt = %g\n", (double)f, (double)*fnoise, (double)fder2, (double)*hopt)); in SNESDiffParameterCompute_More()
201 …%g\n", fcount, neP->function_count, (double)rerrf, (double)PetscSqrtReal(*fnoise), (double)*hopt)); in SNESDiffParameterCompute_More()
204 if (noise_test) PetscCall(JacMatMultCompare(snes, x, p, *hopt)); in SNESDiffParameterCompute_More()
208 static PetscErrorCode JacMatMultCompare(SNES snes, Vec x, Vec p, double hopt) in JacMatMultCompare() argument
251 h = 0.01 * hopt; in JacMatMultCompare()