Date: 2022-03-31T04:47:41+00:00

Actual source code: petscdmlabel.h90

      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