Actual source code: petscdmlabel.h90
petsc-3.12.5 2020-03-29
1: Interface
2: subroutine DMGetLabel(d,str,l,ierr)
3: use petscdmdef
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: use petscdmdef
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: use petscdmdef
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: use petscdmdef
32: use petscisdef
33: DM, intent(in) :: d
34: character(*), intent(in) :: str
35: IS, intent(out) :: i
36: PetscErrorCode, intent(out) :: ierr
37: end Subroutine DMGetLabelIdIS
38: end Interface
39: Interface
40: subroutine DMSetLabelValue(d,str,p,v,ierr)
41: use petscdmdef
42: DM, intent(in) :: d
43: character(*), intent(in) :: str
44: PetscInt, intent(in) :: p,v
45: PetscErrorCode, intent(out) :: ierr
46: end Subroutine DMSetLabelValue
47: end Interface