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