| /petsc/include/petsc/private/ |
| H A D | hashijklkey.h | 9 #define PetscHashIJKLKeyEqual(k1, k2) ((k1).i == (k2).i && (k1).j == (k2).j && (k1).k == (k2).k && … argument
|
| H A D | hashijkkey.h | 8 #define PetscHashIJKKeyEqual(k1, k2) ((k1).i == (k2).i && (k1).j == (k2).j && (k1).k == (k2).k) argument
|
| H A D | hashijkey.h | 8 #define PetscHashIJKeyEqual(k1, k2) ((k1).i == (k2).i && (k1).j == (k2).j) argument
|
| H A D | petscdsimpl.h | 44 …PetscFormKeyEqual(k1, k2) (((k1).label == (k2).label) ? ((k1).value == (k2).value) ? ((k1).field =… argument
|
| H A D | sectionimpl.h | 20 …line int PetscSectionClosurePermEqual(PetscSectionClosurePermKey k1, PetscSectionClosurePermKey k2) in PetscSectionClosurePermEqual() argument
22 return k1.depth == k2.depth && k1.size == k2.size; in PetscSectionClosurePermEqual()
|
| H A D | dmimpl.h | 22 #define PetscHashAuxKeyEqual(k1, k2) (((k1).label == (k2).label) ? (((k1).value == (k2).value) ? ((… argument
|
| /petsc/src/sys/logging/handler/impls/nested/ |
| H A D | lognested.h | 37 #define NestedIdPairEqual(k1, k2) (((k1).root == (k2).root) && ((k1).leaf == (k2).leaf)) argument
|
| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | ex2.c | 29 PetscScalar k1, k2, k3; member
51 f[0] = udot[0] - k1(ctx, t) * u[2] + ctx->k2 * u[0]; in IFunction()
54 f[3] = udot[3] - ctx->k2 * u[0] + ctx->k3 * u[1] * u[3]; in IFunction()
70 J[0][0] = a + ctx->k2; in IJacobian()
82 J[3][0] = -ctx->k2; in IJacobian()
136 ctx.k2 = 1.0e5; in main()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex13.c | 15 for (PetscInt k2 = -1; k2 <= 1; k2++) in Get2DStencil() local
16 … if (i + k1 >= 0 && i + k1 < n && j + k2 >= 0 && j + k2 < n) idxs[k++] = n * (i + k1) + (j + k2); in Get2DStencil()
|
| H A D | ex32.c | 127 PetscInt i, j, k, mx, my, mz, xm, ym, zm, xs, ys, zs, dof, k1, k2, k3; in ComputeMatrix() local
148 for (k2 = 0; k2 < dof; k2++) { in ComputeMatrix()
149 if (k1 == k2) { in ComputeMatrix()
154 v_neighbor[k3] = k2 / (dof * dof); in ComputeMatrix()
|
| H A D | ex10.c | 85 PetscInt i, j, k, i1, i2, j_1, j2, k1, k2, h1, h2, shiftx, shifty, shiftz; in GetElasticityMatrix() local
116 for (k2 = 0; k2 < 3; k2++) { in GetElasticityMatrix()
119 r2 = base + i2 * shiftx + j2 * shifty + k2 * shiftz; in GetElasticityMatrix()
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/tests/ |
| H A D | ex1.c | 21 #define PetscHashLagKeyEqual(k1, k2) \ argument
22 …k2).dim) ? ((k1).order == (k2).order) ? ((k1).formDegree == (k2).formDegree) ? ((k1).trimmed == (k…
|
| /petsc/src/ts/tutorials/ |
| H A D | ex22f_mf.F90 | 334 PetscReal k1, k2
342 k2 = ctx%k(2)
347 val(2) = -k2
349 val(4) = shift + k2
451 PetscReal k1, k2
462 k2 = ctx%k(2)
468 val(2) = -k2
470 val(4) = shift + k2
|
| H A D | ex22f.F90 | 302 PetscReal k1, k2
310 k2 = ctx%k(2)
315 val(2) = -k2
317 val(4) = shift + k2
|
| /petsc/src/mat/tests/ |
| H A D | ex129.c | 185 PetscInt i, j, k, mx, my, mz, xm, ym, zm, xs, ys, zs, dof, k1, k2, k3; in ComputeMatrix() local
212 for (k2 = 0; k2 < dof; k2++) { in ComputeMatrix()
213 if (k1 == k2) { in ComputeMatrix()
|
| H A D | ex74.c | 11 …PetscInt n, mbs = 16, bs = 1, nz = 3, prob = 1, i, j, k1, k2, col[3], lf, block, row, Ii, J, … in main() local
178 k2 = (int)(minfo2.nz_allocated - minfo2.nz_used); in main()
179 …if (i < 0 || j < 0 || k1 < 0 || k2 < 0) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error (compare A a… in main()
207 k2 = (int)(minfo2.nz_allocated - minfo2.nz_used); in main()
208 …if (i < 0 || j < 0 || k1 < 0 || k2 < 0) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error(compare A an… in main()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9busdmnetwork.c | 51 PetscScalar k1, k2; /* calculating the saturation function SE = k1*exp(k2*Efd) */ member
143 …static const PetscScalar k2[3] = {1.555, 1.555, 1.555}; /* k1 and k2 for calculating the saturatio… in read_data() local
233 exc[i * 3 + j].k2 = k2[j]; in read_data()
446 SE = exc->k1 * PetscExpScalar(exc->k2 * Efd); in SetInitialGuess()
660 PetscScalar k1, k2, KE, TE, TF, KA, KF, Vref, TA; /* Generator parameters */ in FormIFunction() local
671 k2 = exc->k2; in FormIFunction()
681 SE = k1 * PetscExpScalar(k2 * Efd); in FormIFunction()
|
| H A D | ex9busadj.c | 53 const PetscScalar k2[3] = {1.555, 1.555, 1.555}; /* k1 and k2 for calculating the saturation functi… variable
180 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in SetInitialGuess()
282 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in ResidualFunction()
594 dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd); in ResidualJacobian()
|
| H A D | ex9busoptfd.c | 50 const PetscScalar k2[3] = {1.555, 1.555, 1.555}; /* k1 and k2 for calculating the saturation functi… variable
182 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in SetInitialGuess()
283 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in ResidualFunction()
596 dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd); in ResidualJacobian()
|
| H A D | ex9busopt.c | 60 const PetscScalar k2[3] = {1.555, 1.555, 1.555}; /* k1 and k2 for calculating the saturation functi… variable
219 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in SetInitialGuess()
305 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in InitialGuess()
428 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in ResidualFunction()
738 dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd); in ResidualJacobian()
|
| H A D | ex9bus.c | 80 const PetscScalar k2[3] = {1.555, 1.555, 1.555}; /* k1 and k2 for calculating the saturation fun… variable
406 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in SetInitialGuess()
509 SE = k1[i] * PetscExpScalar(k2[i] * Efd); in ResidualFunction()
854 dSE_dEfd = k1[i] * k2[i] * PetscExpScalar(k2[i] * Efd); in ResidualJacobian()
|
| /petsc/src/mat/impls/sbaij/seq/ |
| H A D | sbaijfact2.c | 1486 PetscInt nz, k, k2, idx; in MatSolve_SeqSBAIJ_2_inplace() local
1506 k2 = k * 2; in MatSolve_SeqSBAIJ_2_inplace()
1507 x0 = t[k2]; in MatSolve_SeqSBAIJ_2_inplace()
1508 x1 = t[k2 + 1]; in MatSolve_SeqSBAIJ_2_inplace()
1517 t[k2] = diag[0] * x0 + diag[2] * x1; in MatSolve_SeqSBAIJ_2_inplace()
1518 t[k2 + 1] = diag[1] * x0 + diag[3] * x1; in MatSolve_SeqSBAIJ_2_inplace()
1525 k2 = k * 2; in MatSolve_SeqSBAIJ_2_inplace()
1526 x0 = t[k2]; in MatSolve_SeqSBAIJ_2_inplace()
1527 x1 = t[k2 + 1]; in MatSolve_SeqSBAIJ_2_inplace()
1535 t[k2] = x0; in MatSolve_SeqSBAIJ_2_inplace()
[all …]
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexinterpolate.c | 20 #define PetscHMapIJKLRemoteKeyEqual(k1, k2) \ argument
21 …k2).i.rank) ? ((k1).i.index == (k2).i.index) ? ((k1).j.rank == (k2).j.rank) ? ((k1).j.index == (k2…
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | gamg.c | 887 KSP smoother, *k2; in PCSetUp_GAMG() local
900 PetscCall(PCBJacobiGetSubKSP(subpc, &ii, &first, &k2)); in PCSetUp_GAMG()
902 PetscCall(KSPGetPC(k2[0], &pc2)); in PCSetUp_GAMG()
905 PetscCall(KSPSetTolerances(k2[0], PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT, 1)); in PCSetUp_GAMG()
906 PetscCall(KSPSetType(k2[0], KSPPREONLY)); in PCSetUp_GAMG()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 976 PetscInt k2; in PCBDDCNedelecSupport() local
978 for (k2 = iit[jj[k]]; k2 < iit[jj[k] + 1]; k2++) { in PCBDDCNedelecSupport()
979 …f mark %" PetscInt_FMT "), boundary %d\n", jjt[k2], marks[jjt[k2]], mark, (int)!!PetscBTLookup(btb… in PCBDDCNedelecSupport()
982 …if ((marks[jjt[k2]] && marks[jjt[k2]] != mark) || (!marks[jjt[k2]] && PetscBTLookup(btb, jjt[k2]))… in PCBDDCNedelecSupport()
1084 PetscInt k2, vv = jj[k]; in PCBDDCNedelecSupport() local
1089 for (k2 = iit[vv]; k2 < iit[vv + 1]; k2++) { in PCBDDCNedelecSupport()
1090 if (marks[jjt[k2]] == mark) { in PCBDDCNedelecSupport()
1091 PetscInt k3, ee2 = jjt[k2]; in PCBDDCNedelecSupport()
1112 PetscInt k2; in PCBDDCNedelecSupport() local
1115 for (k2 = iit[jj[k]]; k2 < iit[jj[k] + 1]; k2++) tmarks[jjt[k2]]++; in PCBDDCNedelecSupport()
|