Lines Matching refs:array
68 subroutine petsc_to_local(da, vec, array, f, dof, stw) argument
72 PetscReal, pointer :: array(:, :, :, :)
77 PetscCall(DMDAVecGetArray(da, vec, array, ierr))
78 call transform_petsc_us(array, f, stw)
80 subroutine transform_petsc_us(array, f, stw) argument
83 PetscReal, intent(in), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: array
85 f(:, :, :, :) = array(:, :, :, :)
87 subroutine local_to_petsc(da, vec, array, f, dof, stw) argument
91 PetscReal, pointer :: array(:, :, :, :)
95 call transform_us_petsc(array, f, stw)
96 PetscCall(DMDAVecRestoreArray(da, vec, array, ierr))
98 subroutine transform_us_petsc(array, f, stw) argument
101 PetscReal, intent(inout), dimension(:, 1 - stw:, 1 - stw:, 1 - stw:) :: array
103 array(:, :, :, :) = f(:, :, :, :)