Searched refs:stw (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/dm/tutorials/ |
| H A D | ex13f90aux.F90 | 68 subroutine petsc_to_local(da, vec, array, f, dof, stw) argument
73 PetscInt, intent(in) :: dof, stw
74 PetscReal, intent(inout), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: f
78 call transform_petsc_us(array, f, stw)
80 subroutine transform_petsc_us(array, f, stw) argument
82 PetscInt, intent(in) :: stw
83 PetscReal, intent(in), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: array
84 PetscReal, intent(inout), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: f
87 subroutine local_to_petsc(da, vec, array, f, dof, stw) argument
92 PetscInt, intent(in) :: dof, stw
[all …]
|
| H A D | ex13f90.F90 | 37 …max, kgmax, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, itime, maxstep, nscreen, dof, stw, ndim
61 stw = 1 ! stencil width
67 …_STAR, igmax, jgmax, kgmax, PETSC_DECIDE, PETSC_DECIDE, PETSC_DECIDE, dof, stw, PETSC_NULL_INTEGER…
84 ib1 = 1 - stw
85 jb1 = 1 - stw
86 kb1 = 1 - stw
87 ibn = imax + stw
88 jbn = jmax + stw
89 kbn = kmax + stw
100 call petsc_to_local(CoordDM, coords, array, grid, ndim, stw)
[all …]
|