| /petsc/src/binding/petsc4py/demo/legacy/wrap-swig/ |
| H A D | Bratu3D.c | 24 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormInitGuess() local
29 …PetscCall(DMDAGetInfo(da,PETSC_IGNORE,&Mx,&My,&Mz,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGN… in FormInitGuess()
33 hz = 1.0/(PetscReal)(Mz-1); in FormInitGuess()
61 tempk = (PetscReal)(PetscMin(k,Mz-k-1))*hz; in FormInitGuess()
65 if (i == 0 || j == 0 || k == 0 || i == Mx-1 || j == My-1 || k == Mz-1) { in FormInitGuess()
84 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormFunction() local
90 …PetscCall(DMDAGetInfo(da,PETSC_IGNORE,&Mx,&My,&Mz,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGN… in FormFunction()
94 hz = 1.0/(PetscReal)(Mz-1); in FormFunction()
128 if (i == 0 || j == 0 || k == 0 || i == Mx-1 || j == My-1 || k == Mz-1) { in FormFunction()
161 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormJacobian() local
[all …]
|
| /petsc/src/binding/petsc4py/demo/legacy/wrap-cython/ |
| H A D | Bratu3Dimpl.c | 24 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormInitGuess() local
29 …PetscCall(DMDAGetInfo(da,PETSC_IGNORE,&Mx,&My,&Mz,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGN… in FormInitGuess()
34 hz = 1.0/(PetscReal)(Mz-1); in FormInitGuess()
62 tempk = (PetscReal)(PetscMin(k,Mz-k-1))*hz; in FormInitGuess()
66 if (i == 0 || j == 0 || k == 0 || i == Mx-1 || j == My-1 || k == Mz-1) { in FormInitGuess()
85 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormFunction() local
91 …PetscCall(DMDAGetInfo(da,PETSC_IGNORE,&Mx,&My,&Mz,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGNORE,PETSC_IGN… in FormFunction()
95 hz = 1.0/(PetscReal)(Mz-1); in FormFunction()
132 if (i == 0 || j == 0 || k == 0 || i == Mx-1 || j == My-1 || k == Mz-1) { in FormFunction()
165 PetscInt i,j,k,Mx,My,Mz,xs,ys,zs,xm,ym,zm; in FormJacobian() local
[all …]
|
| /petsc/src/dm/tutorials/ |
| H A D | ex22.c | 34 PetscInt Mx = 4, My = 4, Mz = 4; /* Dimensions for 3D DMDA */ in main() local
62 …PetscCall(PetscOptionsRangeInt("-Mz", "dimension along z-axis", "ex22.c", Mz, &Mz, NULL, 0, PETSC_… in main()
73 …PetscCheck(gp <= Mz, PETSC_COMM_WORLD, PETSC_ERR_USER_INPUT, "grid point along sliceaxis is larger… in main()
79 …NDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DMDA_STENCIL_STAR, Mx, My, Mz, PETSC_DECIDE, PETSC… in main()
110 upper.k = Mz; in main()
117 upper.k = Mz; in main()
150 M2 = Mz; in main()
156 M2 = Mz; in main()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex14.c | 204 PetscInt i, j, k, Mx, My, Mz, xs, ys, zs, xm, ym, zm; in FormInitialGuess() local
209 …PetscCall(DMDAGetInfo(user->da, PETSC_IGNORE, &Mx, &My, &Mz, PETSC_IGNORE, PETSC_IGNORE, PETSC_IGN… in FormInitialGuess()
214 hz = 1.0 / (PetscReal)(Mz - 1); in FormInitialGuess()
238 tempk = (PetscReal)(PetscMin(k, Mz - k - 1)) * hz; in FormInitialGuess()
242 if (i == 0 || j == 0 || k == 0 || i == Mx - 1 || j == My - 1 || k == Mz - 1) { in FormInitialGuess()
273 PetscInt i, j, k, Mx, My, Mz, xs, ys, zs, xm, ym, zm; in FormFunctionLocal() local
280 …PetscCall(DMDAGetInfo(da, PETSC_IGNORE, &Mx, &My, &Mz, PETSC_IGNORE, PETSC_IGNORE, PETSC_IGNORE, P… in FormFunctionLocal()
285 hz = 1.0 / (PetscReal)(Mz - 1); in FormFunctionLocal()
308 if (i == 0 || j == 0 || k == 0 || i == Mx - 1 || j == My - 1 || k == Mz - 1) { in FormFunctionLocal()
387 PetscInt i, j, k, Mx, My, Mz; in FormJacobian() local
[all …]
|
| H A D | ex48.c | 589 PetscInt refinelevel, coarsenlevel, level, dim, Mx, My, Mz, mx, my, s; in THISetUpDM() local
595 PetscCall(DMDAGetInfo(dm, &dim, &Mz, &My, &Mx, 0, &my, &mx, 0, &s, 0, 0, 0, &st)); in THISetUpDM()
608 …e)Lx, (double)Ly, (double)Lz, Mx, My, Mz, Mx * My * Mz, (double)(Lx / Mx), (double)(Ly / My), (dou… in THISetUpDM()
|
| /petsc/src/dm/impls/da/ |
| H A D | dainterp.c | 607 PetscInt i, j, l, i_start, j_start, l_start, m_f, n_f, p_f, Mx, My, Mz, dof; in DMCreateInterpolation_DA_3D_Q0() local
620 …PetscCall(DMDAGetInfo(dac, NULL, &Mx, &My, &Mz, NULL, NULL, NULL, NULL, NULL, &bx, &by, &bz, NULL)… in DMCreateInterpolation_DA_3D_Q0()
623 …PetscCheck(Mz, PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, "Number of z coarse grid points %" PetscInt_… in DMCreateInterpolation_DA_3D_Q0()
627 ratiol = mz / Mz; in DMCreateInterpolation_DA_3D_Q0()
630 …PetscCheck(ratiol * Mz == mz, PetscObjectComm((PetscObject)daf), PETSC_ERR_ARG_WRONG, "Fine grid p… in DMCreateInterpolation_DA_3D_Q0()
659 col_shift = Mx * My * Mz * (rank_f / size_c); in DMCreateInterpolation_DA_3D_Q0()
697 …tSizes(mat, m_f * n_f * p_f, col_scale * m_c * n_c * p_c, mx * my * mz, col_scale * Mx * My * Mz)); in DMCreateInterpolation_DA_3D_Q0()
739 PetscInt m_ghost, n_ghost, m_ghost_c, n_ghost_c, Mz, mz; in DMCreateInterpolation_DA_3D_Q1() local
750 …PetscCall(DMDAGetInfo(dac, NULL, &Mx, &My, &Mz, NULL, NULL, NULL, NULL, NULL, &bx, &by, &bz, NULL)… in DMCreateInterpolation_DA_3D_Q1()
774 if (mz == Mz) { in DMCreateInterpolation_DA_3D_Q1()
[all …]
|
| /petsc/src/dm/tests/ |
| H A D | ex36.c | 480 PetscInt map_id, Mx, My, Mz; in da_test_RefineCoords3D() local
492 PetscCall(DMDAGetInfo(daf, 0, &Mx, &My, &Mz, 0, 0, 0, 0, 0, 0, 0, 0, 0)); in da_test_RefineCoords3D()
495 Mz--; in da_test_RefineCoords3D()
545 …Int_FMT " x %" PetscInt_FMT "], interp err = %1.4e\n", mx, my, mz, Mx, My, Mz, (double)(nrm / Pets… in da_test_RefineCoords3D()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex14.c | 1561 PetscInt Mx, My, Mz; in main() local
1563 PetscCall(DMDAGetInfo(da3, 0, &Mz, &My, &Mx, 0, 0, 0, 0, 0, 0, 0, 0, 0)); in main()
1564 …d), size (m) %g x %g x %g\n", i, Lx, Ly, Lz, Mx, My, Mz, Mx * My * Mz, Lx / Mx, Ly / My, 1000. / (… in main()
|