Lines Matching refs:fnoise
77 PetscErrorCode SNESDiffParameterCompute_More(SNES snes, void *nePv, Vec x, Vec p, double *fnoise, d… in SNESDiffParameterCompute_More() argument
142 PetscCall(SNESNoise_dnest_(&nf, fval, &h, fnoise, &fder2, hopt, &info, eps)); in SNESDiffParameterCompute_More()
145 rerrf = *fnoise / PetscAbsScalar(f); in SNESDiffParameterCompute_More()
151 …fnoise = %g, fder2 = %g, rerrf = %g, hopt = %g\n\n", (double)h, (double)*fnoise, (double)fder2, (d… in SNESDiffParameterCompute_More()
154 if (*fnoise) fnoise_s = *fnoise; in SNESDiffParameterCompute_More()
159 *fnoise = fnoise_s; in SNESDiffParameterCompute_More()
161 *hopt = 1.68 * sqrt(*fnoise / PetscAbsScalar(fder2)); in SNESDiffParameterCompute_More()
177 if (*fnoise < neP->fnoise_min) { in SNESDiffParameterCompute_More()
178 …(comm, fp, "Resetting fnoise: fnoise1 = %g, fnoise_min = %g\n", (double)*fnoise, (double)neP->fnoi… in SNESDiffParameterCompute_More()
179 *fnoise = neP->fnoise_min; in SNESDiffParameterCompute_More()
189 … fp, "f = %g, fnoise = %g, fder2 = %g, hopt = %g\n", (double)f, (double)*fnoise, (double)fder2, (d… in SNESDiffParameterCompute_More()
201 …%g\n", fcount, neP->function_count, (double)rerrf, (double)PetscSqrtReal(*fnoise), (double)*hopt)); in SNESDiffParameterCompute_More()