Lines Matching refs:fval
11 PetscErrorCode SNESNoise_dnest_(PetscInt *nf, double *fval, double *h__, double *fnoise, double *fd… in SNESNoise_dnest_() argument
111 --fval; in SNESNoise_dnest_()
120 est1 = (fval[mh + 1] - fval[mh] * 2 + fval[mh - 1]) / *h__ / *h__; in SNESNoise_dnest_()
121 est2 = (fval[mh + 2] - fval[mh] * 2 + fval[mh - 2]) / (*h__ * 2) / (*h__ * 2); in SNESNoise_dnest_()
122 est3 = (fval[mh + 3] - fval[mh] * 2 + fval[mh - 3]) / (*h__ * 3) / (*h__ * 3); in SNESNoise_dnest_()
139 f_min = fval[1]; in SNESNoise_dnest_()
140 f_max = fval[1]; in SNESNoise_dnest_()
145 d__2 = fval[i__]; in SNESNoise_dnest_()
150 d__2 = fval[i__]; in SNESNoise_dnest_()
161 fval[i__] = fval[i__ + 1] - fval[i__]; in SNESNoise_dnest_()
162 if (fval[i__] == 0.) cancel[j - 1] = TRUE_; in SNESNoise_dnest_()
165 d__1 = fval[i__]; in SNESNoise_dnest_()
178 d__1 = fval[i__] / scale; in SNESNoise_dnest_()
188 d__1 = fval[i__]; in SNESNoise_dnest_()
189 d__2 = fval[i__ + 1]; in SNESNoise_dnest_()
191 d__3 = fval[i__]; in SNESNoise_dnest_()
192 d__4 = fval[i__ + 1]; in SNESNoise_dnest_()