Searched refs:fder2 (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/snes/interface/noise/ |
| H A D | snesdnest.c | 11 …e_dnest_(PetscInt *nf, double *fval, double *h__, double *fnoise, double *fder2, double *hopt, Pet… in SNESNoise_dnest_() argument
115 *fder2 = 0.; in SNESNoise_dnest_()
134 if (err2 <= PetscAbsScalar(est4) * .1) *fder2 = est4; in SNESNoise_dnest_()
135 else if (err2 < PetscAbsScalar(est4)) *fder2 = est3; in SNESNoise_dnest_()
136 else *fder2 = 0.; in SNESNoise_dnest_()
220 if (*fder2 != 0.) { in SNESNoise_dnest_()
222 *hopt = PetscSqrtScalar(*fnoise / PetscAbsScalar(*fder2)) * 1.68; in SNESNoise_dnest_()
240 if (*fder2 != 0.) { in SNESNoise_dnest_()
242 *hopt = PetscSqrtScalar(*fnoise / PetscAbsScalar(*fder2)) * 1.68; in SNESNoise_dnest_()
|
| H A D | snesnoise.c | 84 double rerrf = -1., fder2; in SNESDiffParameterCompute_More() local
142 PetscCall(SNESNoise_dnest_(&nf, fval, &h, fnoise, &fder2, hopt, &info, eps)); in SNESDiffParameterCompute_More()
151 …er2 = %g, rerrf = %g, hopt = %g\n\n", (double)h, (double)*fnoise, (double)fder2, (double)rerrf, (d… in SNESDiffParameterCompute_More()
155 if (fder2) fder2_s = fder2; in SNESDiffParameterCompute_More()
160 fder2 = fder2_s; in SNESDiffParameterCompute_More()
161 *hopt = 1.68 * sqrt(*fnoise / PetscAbsScalar(fder2)); in SNESDiffParameterCompute_More()
189 … fnoise = %g, fder2 = %g, hopt = %g\n", (double)f, (double)*fnoise, (double)fder2, (double)*hopt)); in SNESDiffParameterCompute_More()
|