Home
last modified time | relevance | path

Searched refs:fnoise (Results 1 – 2 of 2) sorted by relevance

/petsc/src/snes/interface/noise/
H A Dsnesnoise.c77 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()
[all …]
H A Dsnesdnest.c11 PetscErrorCode SNESNoise_dnest_(PetscInt *nf, double *fval, double *h__, double *fnoise, double *fd… in SNESNoise_dnest_() argument
114 *fnoise = 0.; in SNESNoise_dnest_()
219 *fnoise = (eps[4] + eps[5] + eps[6]) / 3; in SNESNoise_dnest_()
222 *hopt = PetscSqrtScalar(*fnoise / PetscAbsScalar(*fder2)) * 1.68; in SNESNoise_dnest_()
239 *fnoise = (eps[3] + eps[4] + eps[5]) / 3; in SNESNoise_dnest_()
242 *hopt = PetscSqrtScalar(*fnoise / PetscAbsScalar(*fder2)) * 1.68; in SNESNoise_dnest_()