Actual source code: petscdm.h90
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: subroutine DMDestroy(a,ierr)
19: import tDM
20: DM a
21: PetscErrorCode ierr
22: end subroutine
23: end Interface