Lines Matching refs:stw
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
93 PetscReal, intent(inout), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: f
95 call transform_us_petsc(array, f, stw)
98 subroutine transform_us_petsc(array, f, stw) argument
100 PetscInt, intent(in) :: stw
101 PetscReal, intent(inout), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: array
102 PetscReal, intent(in), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: f