| /petsc/src/mat/tests/ |
| H A D | ex148.c | 15 PetscReal fac; in main() local
58 fac = 1.0 / (PetscReal)N; in main()
59 PetscCall(VecScale(output, fac)); in main()
|
| H A D | ex149.c | 18 PetscReal fac; in main() local
54 fac = 1.0 / (PetscReal)N; in main()
55 PetscCall(VecScale(output, fac)); in main()
|
| H A D | ex153.c | 13 PetscReal fac; in main() local
54 fac = 1.0 / (PetscReal)N; in main()
55 PetscCall(VecScale(output, fac)); in main()
|
| H A D | ex157.c | 13 PetscReal fac; in main() local
65 fac = 1.0 / (PetscReal)N; in main()
66 PetscCall(VecScale(output, fac)); in main()
|
| H A D | ex155.c | 14 PetscReal fac; in main() local
54 fac = 1.0 / (PetscReal)N; in main()
55 PetscCall(VecScale(output, fac)); in main()
|
| H A D | ex150.c | 16 PetscReal fac; in main() local
64 fac = 1.0 / (PetscReal)N; in main()
65 PetscCall(VecScale(output, fac)); in main()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex42.c | 673 PetscScalar J_p, fac; in FormGradientOperatorQ13D() local
683 fac = gp_weight[p] * J_p; in FormGradientOperatorQ13D()
691 Ke[IJ] = Ke[IJ] - GNx_p[di][i] * Ni_p[j] * fac; in FormGradientOperatorQ13D()
723 PetscScalar J_p, fac, eta_avg; in FormStabilisationOperatorQ13D() local
733 fac = gp_weight[p] * J_p; in FormStabilisationOperatorQ13D()
743 …for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] -= fac * (Ni_p[i] * Ni_p[j] - 0.015625… in FormStabilisationOperatorQ13D()
751 fac = 1.0 / eta_avg; in FormStabilisationOperatorQ13D()
765 for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = fac * Ke[NODES_PER_EL * i + j]; in FormStabilisationOperatorQ13D()
777 PetscScalar J_p, fac, eta_avg; in FormScaledMassMatrixOperatorQ13D() local
787 fac = gp_weight[p] * J_p; in FormScaledMassMatrixOperatorQ13D()
[all …]
|
| H A D | ex43.c | 549 PetscScalar J_p, fac; in FormGradientOperatorQ1() local
559 fac = gp_weight[p] * J_p; in FormGradientOperatorQ1()
567 Ke[IJ] = Ke[IJ] - GNx_p[di][i] * Ni_p[j] * fac; in FormGradientOperatorQ1()
599 PetscScalar J_p, fac, eta_avg; in FormStabilisationOperatorQ1() local
609 fac = gp_weight[p] * J_p; in FormStabilisationOperatorQ1()
612 …for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = Ke[NODES_PER_EL * i + j] - fac * (Ni… in FormStabilisationOperatorQ1()
620 fac = 1.0 / eta_avg; in FormStabilisationOperatorQ1()
622 for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = fac * Ke[NODES_PER_EL * i + j]; in FormStabilisationOperatorQ1()
634 PetscScalar J_p, fac, eta_avg; in FormScaledMassMatrixOperatorQ1() local
644 fac = gp_weight[p] * J_p; in FormScaledMassMatrixOperatorQ1()
[all …]
|
| H A D | ex70.c | 195 PetscScalar J_p, fac; in BForm_Grad() local
206 fac = gp_weight[p] * J_p; in BForm_Grad()
214 Ke[IJ] -= GNx_p[di][i] * Ni_p[j] * fac; in BForm_Grad()
241 PetscScalar J_p, fac, eta_avg; in BForm_Stabilisation() local
252 fac = gp_weight[p] * J_p; in BForm_Stabilisation()
255 … for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] -= fac * (Ni_p[i] * Ni_p[j] - 0.0625); in BForm_Stabilisation()
263 fac = 1.0 / eta_avg; in BForm_Stabilisation()
265 for (j = 0; j < NODES_PER_EL; j++) Ke[NODES_PER_EL * i + j] = fac * Ke[NODES_PER_EL * i + j]; in BForm_Stabilisation()
273 PetscScalar J_p, fac, eta_avg; in BForm_ScaledMassMatrix() local
284 fac = gp_weight[p] * J_p; in BForm_ScaledMassMatrix()
[all …]
|
| H A D | ex49.c | 489 PetscScalar J_p, fac; in FormMomentumRhsQ1() local
499 fac = gp_weight[p] * J_p; in FormMomentumRhsQ1()
502 Fe[NSD * i] += fac * Ni_p[i] * fx[p]; in FormMomentumRhsQ1()
503 Fe[NSD * i + 1] += fac * Ni_p[i] * fy[p]; in FormMomentumRhsQ1()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex31.c | 598 PetscScalar value[3][3], fac, fac2; in IJacobian_Hull1972B4() local
602 fac = PetscPowScalar(y[0] * y[0] + y[1] * y[1], -1.5); in IJacobian_Hull1972B4()
604 value[0][0] = a + (y[1] * y[1] * y[2]) * fac; in IJacobian_Hull1972B4()
605 value[0][1] = 1.0 - (y[0] * y[1] * y[2]) * fac; in IJacobian_Hull1972B4()
607 value[1][0] = -1.0 - y[0] * y[1] * y[2] * fac; in IJacobian_Hull1972B4()
608 value[1][1] = a + y[0] * y[0] * y[2] * fac; in IJacobian_Hull1972B4()
610 value[2][0] = -y[1] * y[1] * fac; in IJacobian_Hull1972B4()
611 value[2][1] = y[0] * y[1] * fac; in IJacobian_Hull1972B4()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex71.c | 74 PetscReal fac = (PetscReal)(dim - 1); in quadratic_u() local
78 for (d = 1; d < dim; ++d) u[0] += Delta / (fac * 2.0 * nu) * X[d] * (1.0 - X[d]); in quadratic_u()
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex7.c | 111 PetscInt fac = 1; in main() local
115 for (k = 1; k <= N; k++) fac *= k; in main()
118 for (k = 0; k < fac; k++) { in main()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexcreate.c | 934 PetscInt fac[3] = {1, 1, 1}; in DMPlexCreateBoxSurfaceMesh() local
941 …PetscCall(DMPlexCreateBoxSurfaceMesh_Internal(*dm, dim, faces ? faces : fac, lower ? lower : low, … in DMPlexCreateBoxSurfaceMesh()
1914 PetscInt fac[3] = {0, 0, 0}, d; in DMPlexCreateBoxMesh_Tensor_Internal() local
1921 fac[d] = faces[d]; in DMPlexCreateBoxMesh_Tensor_Internal()
1924 PetscCall(DMPlexCreateCubeMesh_Internal(dm, lower, upper, fac, bdt[0], bdt[1], bdt[2])); in DMPlexCreateBoxMesh_Tensor_Internal()
2028 PetscInt fac[3] = {1, 1, 1}; in DMPlexCreateBoxMesh() local
2036 …PetscCall(DMPlexCreateBoxMesh_Internal(*dm, DM_SHAPE_BOX, dim, simplex, faces ? faces : fac, lower… in DMPlexCreateBoxMesh()
2105 PetscInt fac[3] = {1, 1, 1}; in DMPlexCreateWedgeBoxMesh() local
2113 …PetscCall(DMPlexCreateWedgeBoxMesh_Internal(*dm, faces ? faces : fac, lower ? lower : low, upper ?… in DMPlexCreateWedgeBoxMesh()
3169 PetscReal norm2 = 0.0, fac; in snapToSphere() local
[all …]
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 128 (virtualboundary/intersect-searchrad-fac 1.)
129 (virtualboundary/bnd-ext-fac 1.)
1213 (soot-mom/min-dia-fac 0.001)
1224 (soot-mom/pah-multi-fac 1.)
2948 (melt/slope-limit-fac 1.)
2949 (melt/slope-cutoff-fac 0.01)
2991 (premixc/fgm-scaling-fac 20.)
3029 (premixc/fgm-yc-eq-fac 1.01)
4289 (mp/wall-drag-enhancement-fac 1000.)
4290 (mp/brucato-fac 6.5e-06)
[all …]
|