Actual source code: petscdmlabel.h90
petsc-3.15.0 2021-03-30
1: Interface
2: subroutine DMGetLabel(d,str,l,ierr)
3: import tDM,tDMLabel
4: DM, intent(in) :: d
5: character(*), intent(in) :: str
6: DMLabel, intent(out) :: l
7: PetscErrorCode, intent(out) :: ierr
8: end Subroutine DMGetLabel
9: end Interface
10: Interface
11: subroutine DMGetLabelSize(d,str,l,ierr)
12: import tDM
13: DM, intent(in) :: d
14: character(*), intent(in) :: str
15: PetscInt, intent(out) :: l
16: PetscErrorCode, intent(out) :: ierr
17: end Subroutine DMGetLabelSize
18: end Interface
19: Interface
20: subroutine DMGetLabelValue(d,str,p,v,ierr)
21: import tDM
22: DM, intent(in) :: d
23: character(*), intent(in) :: str
24: PetscInt, intent(in) :: p
25: PetscInt, intent(out) :: v
26: PetscErrorCode, intent(out) :: ierr
27: end Subroutine DMGetLabelValue
28: end Interface
29: Interface
30: subroutine DMGetLabelIdIS(d,str,i,ierr)
31: import tDM,tIS
32: DM, intent(in) :: d
33: character(*), intent(in) :: str
34: IS, intent(out) :: i
35: PetscErrorCode, intent(out) :: ierr
36: end Subroutine DMGetLabelIdIS
37: end Interface
38: Interface
39: subroutine DMSetLabelValue(d,str,p,v,ierr)
40: import tDM
41: DM, intent(in) :: d
42: character(*), intent(in) :: str
43: PetscInt, intent(in) :: p,v
44: PetscErrorCode, intent(out) :: ierr
45: end Subroutine DMSetLabelValue
46: end Interface