1 2 Interface DMCompositeGetEntries 3 Subroutine DMCompositeGetEntries1(dm1, d1,ierr) 4 import tDM 5 DM dm1 6 DM d1 7 PetscErrorCode ierr 8 End Subroutine 9 10 Subroutine DMCompositeGetEntries2(dm1, d1,d2,ierr) 11 import tDM 12 DM dm1 13 DM d1,d2 14 PetscErrorCode ierr 15 End Subroutine 16 17 Subroutine DMCompositeGetEntries3(dm1, d1,d2,d3,ierr) 18 import tDM 19 DM dm1 20 DM d1,d2,d3 21 PetscErrorCode ierr 22 End Subroutine 23 24 Subroutine DMCompositeGetEntries4(dm1, d1,d2,d3,d4,ierr) 25 import tDM 26 DM dm1 27 PetscInt d2,d4 28 DM d1,d3 29 PetscErrorCode ierr 30 End Subroutine 31 End Interface 32 33 Interface DMCompositeRestoreGlobalISs 34 Subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 35 import tDM,tIS 36 DM dm 37 IS, pointer :: iss(:) 38 PetscErrorCode ierr 39 End Subroutine 40 End Interface 41 42 Interface DMCompositeRestoreLocalISs 43 Subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 44 import tDM,tIS 45 DM dm 46 IS, pointer :: iss(:) 47 PetscErrorCode ierr 48 End Subroutine 49 End Interface 50