Actual source code: petscdm.h90
petsc-3.15.0 2021-03-30
1: Interface
2: subroutine DMGetStratumIS(d,str,v,i,ierr)
3: import tDM,tIS
4: type(tDM), intent(in) :: d
5: character(*), intent(in) :: str
6: PetscInt, intent(in) :: v
7: type(tIS), intent(out) :: i
8: PetscErrorCode, intent(out) :: ierr
9: end Subroutine DMGetStratumIS
10: subroutine DMGetStratumSize(d,str,v,s,ierr)
11: import tDM
12: type(tDM), intent(in) :: d
13: character(*), intent(in) :: str
14: PetscInt, intent(in) :: v
15: PetscInt, intent(out) :: s
16: PetscErrorCode, intent(out) :: ierr
17: end Subroutine DMGetStratumSize
18: end Interface