Actual source code: petscdm.h90

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