| /petsc/src/snes/interface/noise/ |
| H A D | snesdnest.c | 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_()
[all …]
|
| H A D | snesnoise.c | 83 PetscScalar fval[7], tab[7][7], eps[7], f = -1; in SNESDiffParameterCompute_More() local
123 PetscCall(VecDot(fvec, w, &fval[k])); in SNESDiffParameterCompute_More()
125 f = fval[(nf + 1) / 2 - 1]; in SNESDiffParameterCompute_More()
128 for (i = 0; i < nf; i++) tab[i][0] = fval[i]; in SNESDiffParameterCompute_More()
142 PetscCall(SNESNoise_dnest_(&nf, fval, &h, fnoise, &fder2, hopt, &info, eps)); in SNESDiffParameterCompute_More()
|
| /petsc/src/tao/util/ |
| H A D | tao_util.c | 52 PetscReal xval, fval, lval, uval; in VecFischer() local
85 fval = PetscRealPart(f[i]); in VecFischer()
90 fb[i] = -fval; in VecFischer()
92 fb[i] = -Fischer(uval - xval, -fval); in VecFischer()
94 fb[i] = Fischer(xval - lval, fval); in VecFischer()
98 fval = Fischer(uval - xval, -fval); in VecFischer()
99 fb[i] = Fischer(xval - lval, fval); in VecFischer()
155 PetscReal xval, fval, lval, uval; in VecSFischer() local
183 fval = PetscRealPart(*f++); in VecSFischer()
188 (*fb++) = -fval - mu * xval; in VecSFischer()
[all …]
|
| /petsc/src/tao/constrained/impls/almm/ |
| H A D | almm.h | 18 PetscReal Lval, fval, gnorm, cnorm, cenorm, cinorm, cnorm_old; /* scalar variables */ member
|
| H A D | almm.c | 36 PetscCall(TaoMonitor(tao, tao->niter, auglag->fval, auglag->gnorm, auglag->cnorm, 0.0)); in TaoSolve_ALMM()
55 …else auglag->mu = PetscMax(1.e-6, PetscMin(10.0, 2.0 * PetscAbsReal(auglag->fval) / (auglag->cenor… in TaoSolve_ALMM()
114 …PetscCall(TaoLogConvergenceHistory(tao, auglag->fval, auglag->gnorm, auglag->cnorm, tao->ksp_its)); in TaoSolve_ALMM()
115 PetscCall(TaoMonitor(tao, tao->niter, auglag->fval, auglag->gnorm, auglag->cnorm, updated)); in TaoSolve_ALMM()
609 PetscCall(TaoComputeObjectiveAndGradient(tao, auglag->Px, &auglag->fval, auglag->LgradX)); in TaoALMMEvaluateIterate_Private()
672 auglag->Lval = auglag->fval + 0.5 * auglag->mu * (eq_norm + ineq_norm); in TaoALMMComputePHRLagAndGradient_Private()
716 auglag->Lval = auglag->fval + yeTce + yiTcims + 0.5 * auglag->mu * (ceTce + cimsTcims); in TaoALMMComputeAugLagAndGradient_Private()
|
| /petsc/src/tao/leastsquares/tutorials/ |
| H A D | chwirut2f.F90 | 349 PetscReal fval(1)
370 …PetscCallMPI(MPI_Recv(fval, one, MPIU_SCALAR, MPI_ANY_SOURCE, MPI_ANY_TAG, PETSC_COMM_WORLD, statu…
381 f_v(tag + 1) = fval(1)
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | TAO.pyx | 1620 cdef PetscReal fval=0
1621 CHKERR(TaoGetSolutionStatus(self.tao, NULL, &fval, NULL, NULL, NULL, NULL))
1622 return toReal(fval)
1661 cdef PetscReal fval=0
1662 CHKERR(TaoGetSolutionStatus(self.tao, NULL, &fval, &gnorm, &cnorm, NULL, NULL))
1663 return (toReal(fval), toReal(gnorm), toReal(cnorm))
1691 cdef PetscReal fval=0, gnorm=0, cnorm=0, xdiff=0
1694 &fval, &gnorm, &cnorm, &xdiff,
1696 return (toInt(its), toReal(fval),
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexsubmesh.c | 151 PetscInt fval; in DMPlexMarkBoundaryFaces_Internal() local
152 PetscCall(DMLabelGetValue(label, f, &fval)); in DMPlexMarkBoundaryFaces_Internal()
153 if (fval != defval) PetscCall(DMLabelClearValue(label, f, fval)); in DMPlexMarkBoundaryFaces_Internal()
|
| H A D | plexegads.c | 1455 PetscInt clSize, cl, bval, fval; in DMPlexCreateGeom_Internal() local
1459 PetscCall(DMLabelGetValue(faceLabel, c, &fval)); in DMPlexCreateGeom_Internal()
1462 PetscCall(DMLabelSetValue(faceLabel, closure[cl], fval)); in DMPlexCreateGeom_Internal()
|
| H A D | plex.c | 8238 PetscScalar fval = flip[i]; in DMPlexGetClosureIndices_Internal() local
8241 for (k = 0; k < nRows; ++k) valCopy[Ni * k + (foffset + i)] *= fval; in DMPlexGetClosureIndices_Internal()
8244 for (k = 0; k < nCols; ++k) valCopy[nCols * (foffset + i) + k] *= fval; in DMPlexGetClosureIndices_Internal()
|