| /petsc/src/mat/impls/baij/seq/ |
| H A D | dgefa2.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, ipvt[2], k3; in PetscKernel_A_gets_inverse_A_2() local
30 k3 = 2 * k; in PetscKernel_A_gets_inverse_A_2()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_2()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_2()
54 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_2()
60 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_2()
61 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_2()
96 k3 = 2 * k; in PetscKernel_A_gets_inverse_A_2()
97 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_2()
101 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_2()
[all …]
|
| H A D | dgefa5.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, kb, k3; in PetscKernel_A_gets_inverse_A_5() local
30 k3 = 5 * k; in PetscKernel_A_gets_inverse_A_5()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_5()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_5()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_5()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_5()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_5()
97 k3 = 5 * k; in PetscKernel_A_gets_inverse_A_5()
98 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_5()
102 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_5()
[all …]
|
| H A D | dgefa3.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, ipvt[3], kb, k3; in PetscKernel_A_gets_inverse_A_3() local
30 k3 = 3 * k; in PetscKernel_A_gets_inverse_A_3()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_3()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_3()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_3()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_3()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_3()
97 k3 = 3 * k; in PetscKernel_A_gets_inverse_A_3()
98 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_3()
102 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_3()
[all …]
|
| H A D | dgefa4.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, ipvt[4], kb, k3; in PetscKernel_A_gets_inverse_A_4() local
30 k3 = 4 * k; in PetscKernel_A_gets_inverse_A_4()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_4()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_4()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_4()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_4()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_4()
97 k3 = 4 * k; in PetscKernel_A_gets_inverse_A_4()
98 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_4()
102 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_4()
[all …]
|
| H A D | dgefa6.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, ipvt[6], kb, k3; in PetscKernel_A_gets_inverse_A_6() local
30 k3 = 6 * k; in PetscKernel_A_gets_inverse_A_6()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_6()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_6()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_6()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_6()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_6()
97 k3 = 6 * k; in PetscKernel_A_gets_inverse_A_6()
98 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_6()
102 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_6()
[all …]
|
| H A D | dgefa7.c | 16 PetscInt i__2, i__3, kp1, j, k, l, ll, i, ipvt[7], kb, k3; in PetscKernel_A_gets_inverse_A_7() local
30 k3 = 7 * k; in PetscKernel_A_gets_inverse_A_7()
31 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_7()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_7()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_7()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_7()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_7()
97 k3 = 7 * k; in PetscKernel_A_gets_inverse_A_7()
98 k4 = k3 + k; in PetscKernel_A_gets_inverse_A_7()
102 aa = &a[k3 + 1]; in PetscKernel_A_gets_inverse_A_7()
[all …]
|
| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | ex2.c | 29 PetscScalar k1, k2, k3; member
52 f[1] = udot[1] - k1(ctx, t) * u[2] + ctx->k3 * u[1] * u[3] - ctx->sigma2; in IFunction()
53 f[2] = udot[2] - ctx->k3 * u[1] * u[3] + k1(ctx, t) * u[2]; in IFunction()
54 f[3] = udot[3] - ctx->k2 * u[0] + ctx->k3 * u[1] * u[3]; in IFunction()
75 J[1][1] = a + ctx->k3 * u[3]; in IJacobian()
77 J[1][3] = ctx->k3 * u[1]; in IJacobian()
79 J[2][1] = -ctx->k3 * u[3]; in IJacobian()
81 J[2][3] = -ctx->k3 * u[1]; in IJacobian()
83 J[3][1] = ctx->k3 * u[3]; in IJacobian()
85 J[3][3] = a + ctx->k3 * u[1]; in IJacobian()
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| 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
146 k3 = 0; in ComputeMatrix()
150 v[k3] = 2.0 * (HxHydHz + HxHzdHy + HyHzdHx); in ComputeMatrix()
151 v_neighbor[k3] = -HxHydHz; in ComputeMatrix()
153 v[k3] = k1 / (dof * dof); in ComputeMatrix()
154 v_neighbor[k3] = k2 / (dof * dof); in ComputeMatrix()
156 k3++; in ComputeMatrix()
|
| /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
210 k3 = 0; in ComputeMatrix()
214 v[k3] = 2.0 * (HxHydHz + HxHzdHy + HyHzdHx); in ComputeMatrix()
215 v_neighbor[k3] = -HxHydHz; in ComputeMatrix()
220 v[k3] = r1; in ComputeMatrix()
221 v_neighbor[k3] = r2; in ComputeMatrix()
223 k3++; in ComputeMatrix()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 1091 PetscInt k3, ee2 = jjt[k2]; in PCBDDCNedelecSupport() local
1095 for (k3 = ii[ee2]; k3 < ii[ee2 + 1]; k3++) { in PCBDDCNedelecSupport()
1096 …tscPrintf(PETSC_COMM_SELF, " Connected nodal dof set to vertex %" PetscInt_FMT "\n", jj[k3])); in PCBDDCNedelecSupport()
1097 PetscCall(PetscBTSet(btv, jj[k3])); in PCBDDCNedelecSupport()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 9809 (dpm/bc-erosion-oka-k3 . 0.19)
10125 (dpm/bc-erosion-oka-k3 . 0.19)
10441 (dpm/bc-erosion-oka-k3 . 0.19)
10757 (dpm/bc-erosion-oka-k3 . 0.19)
|