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