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