| /petsc/src/tao/tutorials/ |
| H A D | ex2.c | 75 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_uu() argument 77 g0[0] = 1.0; in g0_uu() 79 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_uu_full() argument 81 …g0[0] = PetscSqr(u[0] - sin(2.0 * PETSC_PI * x[0]) * sin(2.0 * PETSC_PI * x[1])) + PetscSqr(u[0] -… in g0_uu_full() 93 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_aa() argument 95 g0[0] = 1.0; in g0_aa() 97 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_al() argument 99 g0[0] = 1.0; in g0_al() 111 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_la() argument 113 g0[0] = 1.0; in g0_la()
|
| H A D | ex1.c | 71 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_uu() argument 73 g0[0] = 1.0; in g0_uu() 99 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_aa() argument 101 g0[0] = 1.0; in g0_aa()
|
| H A D | ex3.c | 153 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in mass_kernel() argument 155 g0[0] = 1.0; in mass_kernel()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtweakform.c | 556 …etscInt val, PetscInt f, PetscInt g, PetscInt part, PetscInt *n0, void (***g0)(PetscInt, PetscInt,… in PetscWeakFormGetJacobian() 561 …mGetFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, n0, (void (***)(void))g0)); in PetscWeakFormGetJacobian() 568 …DMLabel label, PetscInt val, PetscInt f, PetscInt g, PetscInt part, void (*g0)(PetscInt, PetscInt,… in PetscWeakFormAddJacobian() 573 …WeakFormAddFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, (PetscVoidFn *)g0)); in PetscWeakFormAddJacobian() 580 … PetscInt val, PetscInt f, PetscInt g, PetscInt part, PetscInt n0, void (**g0)(PetscInt, PetscInt,… in PetscWeakFormSetJacobian() 585 …ormSetFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, n0, (PetscVoidFn **)g0)); in PetscWeakFormSetJacobian() 592 …, PetscInt val, PetscInt f, PetscInt g, PetscInt part, PetscInt i0, void (*g0)(PetscInt, PetscInt,… in PetscWeakFormSetIndexJacobian() 597 …etIndexFunction_Private(wf, wf->form[PETSC_WF_G0], label, val, find, part, i0, (PetscVoidFn *)g0)); in PetscWeakFormSetIndexJacobian() 619 …etscInt val, PetscInt f, PetscInt g, PetscInt part, PetscInt *n0, void (***g0)(PetscInt, PetscInt,… in PetscWeakFormGetJacobianPreconditioner() 624 …GetFunction_Private(wf, wf->form[PETSC_WF_GP0], label, val, find, part, n0, (void (***)(void))g0)); in PetscWeakFormGetJacobianPreconditioner() [all …]
|
| H A D | dtds.c | 518 …NcMax * dimEmbed, &prob->f1, NsMax * NsMax * NqMax * NcMax * NcMax, &prob->g0, NsMax * NsMax * NqM… in PetscDSSetUp() 534 PetscCall(PetscFree6(prob->f0, prob->f1, prob->g0, prob->g1, prob->g2, prob->g3)); in PetscDSDestroyStructs_Static() 1508 PetscErrorCode PetscDSGetJacobian(PetscDS ds, PetscInt f, PetscInt g, PetscPointJacFn **g0, PetscPo… in PetscDSGetJacobian() argument 1518 *g0 = tmp0 ? tmp0[0] : NULL; in PetscDSGetJacobian() 1551 PetscErrorCode PetscDSSetJacobian(PetscDS ds, PetscInt f, PetscInt g, PetscPointJacFn *g0, PetscPoi… in PetscDSSetJacobian() argument 1555 if (g0) PetscValidFunction(g0, 4); in PetscDSSetJacobian() 1561 PetscCall(PetscWeakFormSetIndexJacobian(ds->wf, NULL, 0, f, g, 0, 0, g0, 0, g1, 0, g2, 0, g3)); in PetscDSSetJacobian() 1646 …cobianPreconditioner(PetscDS ds, PetscInt f, PetscInt g, PetscPointJacFn **g0, PetscPointJacFn **g… in PetscDSGetJacobianPreconditioner() argument 1656 *g0 = tmp0 ? tmp0[0] : NULL; in PetscDSGetJacobianPreconditioner() 1693 …acobianPreconditioner(PetscDS ds, PetscInt f, PetscInt g, PetscPointJacFn *g0, PetscPointJacFn *g1… in PetscDSSetJacobianPreconditioner() argument [all …]
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex39.c | 137 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_vu() argument 140 for (c = 0; c < dim; ++c) g0[c * dim + c] = 1.0; in g0_vu() 144 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_qp() argument 147 for (d = 0; d < dim; ++d) g0[d * dim + d] = 1.0; in g0_qp() 161 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_wp() argument 164 for (d = 0; d < dim; ++d) g0[d * dim + d] = -1.0; in g0_wp() 168 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_wd() argument 171 for (c = 0; c < dim; ++c) g0[c * dim + c] = 1.0; in g0_wd()
|
| H A D | ex5.c | 1104 …l x[], const PetscReal n[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_bd_ul_neg() argument 1107 for (PetscInt c = 0; c < Nc; ++c) g0[c * Nc + c] = -1.0; in g0_bd_ul_neg() 1110 …l x[], const PetscReal n[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_bd_ul_pos() argument 1113 for (PetscInt c = 0; c < Nc; ++c) g0[c * Nc + c] = 1.0; in g0_bd_ul_pos() 1117 …l x[], const PetscReal n[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_bd_lu() argument 1122 g0[c * Nc + c] = -1.0; in g0_bd_lu() 1123 g0[Nc * Nc + c * Nc + c] = 1.0; in g0_bd_lu()
|
| /petsc/src/dm/dt/fe/impls/basic/ |
| H A D | febasic.c | 757 …PetscScalar *g0 = NULL, *g1 = NULL, *g2 = NULL, *g3 = NULL, *u, *u_t = NULL, *u_x, *a, *a_x,… in PetscFEIntegrateJacobian_Basic() local 796 …PetscCall(PetscDSGetWeakFormArrays(rds, NULL, NULL, n0 ? &g0 : NULL, n1 ? &g1 : NULL, n2 ? &g2 : N… in PetscFEIntegrateJacobian_Basic() 853 PetscCall(PetscArrayzero(g0, NcI * NcJ)); in PetscFEIntegrateJacobian_Basic() 854 …ff_x, u, u_t, u_x, aOff, aOff_x, a, NULL, a_x, t, u_tshift, fegeom.v, numConstants, constants, g0); in PetscFEIntegrateJacobian_Basic() 855 for (PetscInt c = 0; c < NcI * NcJ; ++c) g0[c] *= w; in PetscFEIntegrateJacobian_Basic() 873 …ldI], basisReal, basisDerReal, cT[fieldJ], testReal, testDerReal, &fegeom, g0, g1, g2, g3, ctotDim… in PetscFEIntegrateJacobian_Basic() 906 …PetscScalar *g0, *g1, *g2, *g3, *u, *u_t = NULL, *u_x, *a, *a_x, *basisReal, *basisDerReal,… in PetscFEIntegrateBdJacobian_Basic() local 943 PetscCall(PetscDSGetWeakFormArrays(ds, NULL, NULL, &g0, &g1, &g2, &g3)); in PetscFEIntegrateBdJacobian_Basic() 960 PetscCall(PetscArrayzero(g0, NcI * NcJ)); in PetscFEIntegrateBdJacobian_Basic() 1013 PetscCall(PetscArrayzero(g0, NcI * NcJ)); in PetscFEIntegrateBdJacobian_Basic() [all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex76.c | 881 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_vu() argument 886 for (d = 0; d < dim; ++d) g0[d * dim + d] = u_tShift; in g0_vu() 889 for (d = 0; d < dim; ++d) g0[c * Nc + d] += u_x[c * Nc + d]; in g0_vu() 908 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_conduct_qu() argument 914 for (d = 0; d < dim; ++d) g0[d] = -p_th / PetscSqr(u[uOff[TEMP]]) * u_x[uOff_x[TEMP] + d]; in g0_conduct_qu() 926 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_conduct_qT() argument 933 g0[0] -= S * p_th / PetscSqr(u[uOff[TEMP]]) * u_tShift; in g0_conduct_qT() 935 g0[0] += 2.0 * S * p_th / PetscPowScalarInt(u[uOff[TEMP]], 3) * u_t[uOff[TEMP]]; in g0_conduct_qT() 937 …for (d = 0; d < dim; ++d) g0[0] += p_th / PetscSqr(u[uOff[TEMP]]) * (-u_x[uOff_x[VEL] + d * dim + … in g0_conduct_qT() 969 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_conduct_vT() argument [all …]
|
| H A D | ex18.c | 200 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_constant_uu() argument 203 for (d = 0; d < dim; ++d) g0[d * dim + d] = 1.0; in g0_constant_uu() 206 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_constant_pp() argument 208 g0[0] = 1.0; in g0_constant_pp() 261 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_adv_pp() argument 264 g0[0] = u_tShift; in g0_adv_pp() 265 for (d = 0; d < dim; ++d) g0[0] += u_x[d * dim + d]; in g0_adv_pp() 274 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_adv_pu() argument 277 for (d = 0; d < dim; ++d) g0[0] += u_x[dim * dim + d]; in g0_adv_pu()
|
| H A D | ex48.c | 112 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_dt() argument 114 g0[0] = u_tShift; in g0_dt() 120 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_1() argument 122 g0[0] = 1; in g0_1() 260 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_neta() argument 264 g0[0] = -eta; in g0_neta()
|
| H A D | ex46.c | 132 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_uu() argument 138 for (d = 0; d < dim; ++d) g0[d * dim + d] = u_tShift; in g0_uu() 141 for (gc = 0; gc < NcJ; ++gc) g0[fc * NcJ + gc] += u_x[fc * NcJ + gc]; in g0_uu()
|
| H A D | ex77.c | 217 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_vu() argument 222 for (d = 0; d < dim; ++d) g0[d * dim + d] = u_tShift; in g0_vu() 225 for (d = 0; d < dim; ++d) g0[c * Nc + d] += u_x[c * Nc + d]; in g0_vu() 264 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_wT() argument 267 for (d = 0; d < dim; ++d) g0[d] = u_tShift; in g0_wT() 270 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_wu() argument 273 for (d = 0; d < dim; ++d) g0[d] = u_x[uOff_x[2] + d]; in g0_wu()
|
| H A D | ex47.c | 97 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_prim_phi() argument 99 g0[0] = u_tShift * 1.0; in g0_prim_phi()
|
| /petsc/src/dm/dt/fe/tests/ |
| H A D | ex3.c | 101 …g0(PetscInt dim, PetscInt Nf, PetscInt NfAux, const PetscInt uOff[], const PetscInt uOff_x[], cons… in g0() function 104 for (PetscInt c = 0; c < Nc; ++c) g0[c * Nc + c] = 1.0; in g0() 117 PetscCall(PetscWeakFormSetIndexJacobian(wf, NULL, 0, 0, 0, 0, 0, g0, 0, NULL, 0, NULL, 0, NULL)); in SetupProblem()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex26.c | 26 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_uu() argument 29 for (d = 0; d < dim; ++d) g0[0] = 1.0; in g0_uu()
|
| H A D | ex23.c | 49 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_pp() argument 51 g0[0] = 1.0; in g0_pp()
|
| H A D | ex76.c | 218 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_vu() argument 224 for (d = 0; d < dim; ++d) g0[c * Nc + d] = u_x[c * Nc + d]; in g0_vu() 263 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_wu() argument 266 for (d = 0; d < dim; ++d) g0[d] = u_x[uOff_x[2] + d]; in g0_wu()
|
| H A D | ex62.c | 97 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_pp() argument 101 g0[0] = 1.0 / mu; in g0_pp()
|
| H A D | ex24.c | 184 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_qq() argument 187 for (c = 0; c < dim; ++c) g0[c * dim + c] = 1.0; in g0_qq()
|
| /petsc/include/ |
| H A D | petscdstypes.h | 224 … x[], const PetscReal n[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]);
|
| /petsc/include/petsc/private/ |
| H A D | petscdsimpl.h | 143 PetscScalar *g0, *g1, *g2, *g3; /* Point evaluations of weak form Jacobian integrands */ member
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex10.c | 82 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_vu() argument 86 for (c = 0; c < dim; ++c) g0[c * dim + c] = 1.0; in g0_vu()
|
| /petsc/src/dm/dt/fe/interface/ |
| H A D | fe.c | 2645 …sisJ[], PetscScalar tmpBasisDerJ[], PetscFEGeom *fegeom, const PetscScalar g0[], const PetscScalar… in PetscFEUpdateElementMat_Internal() argument 2685 if (PetscUnlikely(g0)) { in PetscFEUpdateElementMat_Internal() 2696 …for (PetscInt gc = 0; gc < NcJ; ++gc) elemMat[fOff] += bI * g0[fc * NcJ + gc] * tmpBasisJ[g * NcJ … in PetscFEUpdateElementMat_Internal() 2800 …sisJ[], PetscScalar tmpBasisDerJ[], PetscFEGeom *fegeom, const PetscScalar g0[], const PetscScalar… in PetscFEUpdateElementMat_Hybrid_Internal() argument 2848 elemMat[fOff] += tmpBasisI[fidx] * g0[fc * NcJ + gc] * tmpBasisJ[gidx]; in PetscFEUpdateElementMat_Hybrid_Internal() 2899 …(PetscTabulation TI, PetscTabulation TJ, PetscInt dimEmbed, const PetscInt g0[], const PetscInt g1… 2906 PetscBool has_g0 = g0 ? PETSC_TRUE : PETSC_FALSE; 2917 if (g0[i]) g0_i += NbI * NbJ; 2953 if (g0[fc * NcJ + gc]) { 3015 elemMat[bO] += tmpBasisI[bM] * g0[bN] * tmpBasisJ[bK];
|
| /petsc/src/snes/tests/ |
| H A D | ex15.c | 170 …Shift, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar g0[]) in g0_qq() argument 172 for (PetscInt d = 0; d < dim; ++d) g0[d * dim + d] = 1.0; in g0_qq()
|