Actual source code: petscdmlabel.h90

petsc-3.15.0 2021-03-30
Report Typos and Errors
  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