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 DMCompositeGetAccess 34 Subroutine DMCompositeGetAccessvpvp(dm1, v,d1,d2,d3,d4,ierr) 35 import tDM,tVec 36 DM dm1 37 Vec v,d1,d3 38 PetscScalar,pointer :: d2(:) 39 PetscScalar,pointer :: d4(:) 40 PetscErrorCode ierr 41 End Subroutine 42 End Interface 43 44 Interface DMCompositeRestoreAccess 45 Subroutine DMCompositeRestoreAccessvpvp(dm1, v,d1,d2,d3,d4,ierr) 46 import tDM,tVec 47 DM dm1 48 Vec v,d1,d3 49 PetscScalar,pointer :: d2(:) 50 PetscScalar,pointer :: d4(:) 51 PetscErrorCode ierr 52 End Subroutine 53 End Interface 54 55 Interface DMCompositeRestoreGlobalISs 56 Subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 57 import tDM,tIS 58 DM dm 59 IS, pointer :: iss(:) 60 PetscErrorCode ierr 61 End Subroutine 62 End Interface 63 64 Interface DMCompositeRestoreLocalISs 65 Subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 66 import tDM,tIS 67 DM dm 68 IS, pointer :: iss(:) 69 PetscErrorCode ierr 70 End Subroutine 71 End Interface 72