| /petsc/lib/petsc/bin/ |
| H A D | petscmpiexec | 63 OMAKE=$(grep "OMAKE " "${PETSC_DIR}/${PETSC_ARCH}/lib/petsc/conf/petscvariables" | cut -f2 -d=) 78 …scvariables" | grep -v mpiexec | grep -v include | grep -v lib | grep -v "#MPI_HOME" | cut -f2 -d=) 79 …tscvariables" | grep -v build | grep -v include | grep -v "#MPI_HOME" | grep -v mpe | cut -f2 -d=) 80 …EC " "${PETSC_DIR}/${PETSC_ARCH}/lib/petsc/conf/petscvariables" | grep -v "#MPIEXEC" | cut -f2 -d=) 81 …"${PETSC_DIR}/${PETSC_ARCH}/lib/petsc/conf/petscvariables" | grep -v "#MPIEXEC_TAIL" | cut -f2 -d=)
|
| H A D | petscnagfor | 127 f2 = last.rfind('.') variable 128 last = last[0:f1] + last[f2:]
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | minsurf1.c | 142 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormConstraints() local 220 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormConstraints() 227 df2dxc /= f2; in FormConstraints() 264 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in FormJacobian() local 329 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormJacobian() 335 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in FormJacobian() 338 …1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) / (f2 * f2 * f2); in FormJacobian() 343 … (hxdhy * (1.0 + d1 * d1) + hydhx * (1.0 + d4 * d4) - 2 * d1 * d4) / (f2 * f2 * f2) + (hxdhy * (1.… in FormJacobian()
|
| /petsc/src/vec/pf/impls/string/ |
| H A D | cstringbase.template | 9 PetscScalar f1 = NOTLIKELY, f2 = 0,f3 = 0,f4 = 0,f5 = 0; 21 (void)f2; 46 out[_NOUT_*i+1] = f2;
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf1.c | 131 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in FormFunctionGradient() local 206 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormFunctionGradient() 212 ft = ft + (f2 + f4); in FormFunctionGradient() 215 df2dxc /= f2; in FormFunctionGradient() 310 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in QuadraticH() local 375 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in QuadraticH() 381 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in QuadraticH() 384 …1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) / (f2 * f2 * f2); in QuadraticH() 389 … (hxdhy * (1.0 + d1 * d1) + hydhx * (1.0 + d4 * d4) - 2 * d1 * d4) / (f2 * f2 * f2) + (hxdhy * (1.… in QuadraticH()
|
| H A D | minsurf2.c | 170 PetscReal f2, f4, d1, d2, d3, d4, xc, xl, xr, xt, xb; in FormFunction() local 226 f2 = PetscSqrtReal(1.0 + d1 * d1 + d4 * d4); in FormFunction() 229 ft = ft + (f2 + f4); in FormFunction() 304 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local 386 f2 = PetscSqrtReal(1.0 + d1 * d1 + d4 * d4); in FormFunctionGradient() 392 ft = ft + (f2 + f4); in FormFunctionGradient() 395 df2dxc /= f2; in FormFunctionGradient() 508 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in QuadraticH() local 584 f2 = PetscSqrtReal(1.0 + d1 * d1 + d4 * d4); in QuadraticH() 590 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in QuadraticH() [all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex4.c | 119 PetscScalar f2, f4, d1, d2, d3, d4, xc, xl, xr, xt, xb; in FormObjectiveLocal() local 158 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormObjectiveLocal() 161 ft += PetscRealPart(f2 + f4); in FormObjectiveLocal() 217 PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionLocal() local 281 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormFunctionLocal() 288 df2dxc /= f2; in FormFunctionLocal() 309 PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobianLocal() local 365 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormJacobianLocal() 371 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in FormJacobianLocal() 374 …1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) / (f2 * f2 * f2); in FormJacobianLocal() [all …]
|
| H A D | ex58.c | 149 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormGradient() local 232 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormGradient() 239 df2dxc /= f2; in FormGradient() 277 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobian() local 354 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormJacobian() 360 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in FormJacobian() 363 …1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) / (f2 * f2 * f2); in FormJacobian() 368 …hxdhy * (1.0 + d1 * d1) + hydhx * (1.0 + d4 * d4) - 2.0 * d1 * d4) / (f2 * f2 * f2) + (hxdhy * (1.… in FormJacobian()
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 72 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3 185 f2 = sqrt(1.0 + d1*d1 + d4*d4) 191 ft = ft + f2 + f4 194 df2dxc = df2dxc/f2 306 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3 408 f2 = sqrt(1.0 + d1*d1 + d4*d4) 414 hl = (-hydhx*(1.0 + d7*d7) + d1*d7)/(f1*f1*f1) + (-hydhx*(1.0 + d4*d4) + d1*d4)/(f2*f2*f2) 420 hb = (-hxdhy*(1.0 + d6*d6) + d4*d6)/(f6*f6*f6) + (-hxdhy*(1.0 + d1*d1) + d1*d4)/(f2*f2*f2) 426 …d6)/(f6*f6*f6) + (hxdhy*(1.0 + d1*d1) + hydhx*(1.0 + d4*d4) - 2*d1*d4)/(f2*f2*f2) + (hxdhy*(1.0 + …
|
| H A D | plate2.c | 207 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local 297 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormFunctionGradient() 303 ft = ft + (f2 + f4); in FormFunctionGradient() 306 df2dxc /= f2; in FormFunctionGradient() 423 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormHessian() local 504 f2 = PetscSqrtScalar(1.0 + d1 * d1 + d4 * d4); in FormHessian() 510 …1.0 + d7 * d7) + d1 * d7) / (f1 * f1 * f1) + (-hydhx * (1.0 + d4 * d4) + d1 * d4) / (f2 * f2 * f2); in FormHessian() 513 …1.0 + d6 * d6) + d4 * d6) / (f6 * f6 * f6) + (-hxdhy * (1.0 + d1 * d1) + d1 * d4) / (f2 * f2 * f2); in FormHessian() 518 … (hxdhy * (1.0 + d1 * d1) + hydhx * (1.0 + d4 * d4) - 2 * d1 * d4) / (f2 * f2 * f2) + (hxdhy * (1.… in FormHessian()
|
| H A D | jbearing2.c | 218 PetscReal tt, f1, f2; in FormFunctionGradient() local 310 PetscCall(VecDot(user->B, X, &f2)); in FormFunctionGradient() 312 *fcn = f1 / 2.0 + f2; in FormFunctionGradient()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vsection.c | 215 PetscInt fdof, fc, f2, poff = 0; in PetscSectionGetField_Internal() local 219 for (f2 = 0; f2 < field; ++f2) { in PetscSectionGetField_Internal() 220 PetscCall(PetscSectionGetFieldDof(section, p, f2, &fdof)); in PetscSectionGetField_Internal()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 30 PetscInt f2, f9, f6, one 52 f2 = 2 110 call int2d(f2, sg) 122 call shp2dquad(sg(1, ll), sg(2, ll), coord, shp, xsj, f2) 124 call thfx2d(ev, coord, shp, dd, f2, f2, f4, ex54_psi)
|
| /petsc/src/tao/interface/ |
| H A D | fdiff.c | 53 PetscReal f, f2; in TaoDefaultComputeGradient() local 74 PetscCall(TaoComputeObjective(tao, X, &f2)); in TaoDefaultComputeGradient() 78 if (i >= low && i < high) g[i - low] = (f2 - f) / (2.0 * h); in TaoDefaultComputeGradient()
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 27 static void (*f2)(MPI_Comm *comm, int *, const char *, const char *, PetscErrorCode *, PetscErrorTy… variable 40 …(*f2)(&comm, &line, fun, file, &n, &p, mess, ctx, &ierr, (PETSC_FORTRAN_CHARLEN_T)len1, (PETSC_FOR… in ourerrorhandler() 77 f2 = handler; in petscpusherrorhandler_()
|
| /petsc/src/dm/interface/ |
| H A D | dmi.c | 179 for (PetscInt f2 = 0; f2 < fields[f]; ++f2) { in PetscSectionSelectFields_Private() local 180 PetscCall(PetscSectionGetFieldDof(s, point, f2, &fdof)); in PetscSectionSelectFields_Private() 181 PetscCall(PetscSectionGetFieldConstraintDof(s, point, f2, &fcdof)); in PetscSectionSelectFields_Private()
|
| /petsc/src/snes/tests/ |
| H A D | ex17.c | 509 Vec *xx, *ff, x1, x2, f1, f2; in FormFunction1_block() local 518 f2 = ff[1]; in FormFunction1_block() 537 PetscCall(VecSetValue(f2, index, ff_1, INSERT_VALUES)); in FormFunction1_block()
|
| /petsc/src/tao/quadratic/impls/gpcg/ |
| H A D | gpcg.c | 65 PetscReal f1, f2; in GPCGObjectiveAndGradient() local 70 PetscCall(VecDot(gpcg->B, X, &f2)); in GPCGObjectiveAndGradient() 72 *f = f1 / 2.0 + f2 + gpcg->c; in GPCGObjectiveAndGradient()
|
| /petsc/src/dm/impls/stag/ |
| H A D | stag.c | 12 PetscInt f0, f1, f2, f3, dof0, dof1, dof2, dof3, n_entries, k, d, cnt, n_fields, dim; in DMCreateFieldDecomposition_Stag() local 21 f1 = f2 = f3 = 0; in DMCreateFieldDecomposition_Stag() 26 f2 = 1; in DMCreateFieldDecomposition_Stag() 29 f2 = 3; in DMCreateFieldDecomposition_Stag() 35 if (dim >= 2) PetscCall(PetscCalloc1(f2 * dof2, &stencil2)); in DMCreateFieldDecomposition_Stag() 52 for (k = 0; k < f2; ++k) { in DMCreateFieldDecomposition_Stag() 170 PetscCall(DMStagCreateISFromStencils(dm, f2 * dof2, stencil2, &(*islist)[cnt])); in DMCreateFieldDecomposition_Stag()
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex12.c | 15 static void f2(PetscInt dim, PetscInt Nf, PetscInt NfAux, const PetscInt uOff[], const PetscInt uOf… in f2() function 41 PetscPointFn *f[4] = {f0, f1, f2, f3}; in TestSetIndex() 131 PetscPointFn *f[4] = {f0, f1, f2, f3}, *fp[4]; in TestAdd() 215 PetscPointFn *f[4] = {f0, f1, f2, f3}; in TestSetIndexAdd()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dt.c | 1194 PetscInt f2; in PetscDTPKDEvalJet() local 1200 for (f2 = f; f2 < dim; f2++) { in PetscDTPKDEvalJet() 1201 PetscInt km2idx, mplty2 = ktup[f2]; in PetscDTPKDEvalJet() 1205 ktup[f2]--; in PetscDTPKDEvalJet() 1209 if (f == f2) factor /= 2; in PetscDTPKDEvalJet() 1211 ktup[f2]++; in PetscDTPKDEvalJet()
|
| /petsc/lib/petsc/conf/ |
| H A D | rules_util.mk | 265 …' | sed 's/\.$$//g' | sort | uniq| awk '{ print length, $$0 }' | sort -r -n -s | cut -d" " -f2` ; \
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1748 static PetscErrorCode DMPlexPointIsTensor_Internal_Given(DM dm, PetscInt p, PetscInt f, PetscInt f2… in DMPlexPointIsTensor_Internal_Given() argument 1760 fs[1] = f2; in DMPlexPointIsTensor_Internal_Given() 1772 PetscCall(DMPlexGetCone(dm, f2, &f2Cone)); in DMPlexPointIsTensor_Internal_Given() 1782 if (t == f || t == f2) continue; in DMPlexPointIsTensor_Internal_Given() 1845 PetscInt f2 = cone[c2]; in DMPlexPointIsTensor_Internal() local 1849 PetscCall(DMPlexGetConeSize(dm, f2, &f2ConeSize)); in DMPlexPointIsTensor_Internal() 1852 PetscCall(DMPlexPointIsTensor_Internal_Given(dm, p, f, f2, &isTensorff2)); in DMPlexPointIsTensor_Internal() 1856 if (endB) *endB = f2; in DMPlexPointIsTensor_Internal()
|
| /petsc/src/binding/petsc4py/test/ |
| H A D | test_mat_py.py | 380 f2 = lambda: self.A.duplicate(False) function 382 self.assertRaises(Exception, f2)
|
| /petsc/src/dm/impls/plex/hdf5/ |
| H A D | plexhdf5.c | 609 PetscInt fdof, fc, f2, poff = 0; in VecView_Plex_Local_HDF5_Internal() local 613 for (f2 = 0; f2 < f; ++f2) { in VecView_Plex_Local_HDF5_Internal() 614 PetscCall(PetscSectionGetFieldDof(section, p, f2, &fdof)); in VecView_Plex_Local_HDF5_Internal()
|