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 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 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(dm1, d1, ierr) 26 use, intrinsic :: ISO_C_binding 27 import tDM 28 DM dm1 29 DM d1 30 PetscErrorCode ierr 31 end subroutine 32 subroutine DMCompositeGetEntries2(dm1, d1, d2, ierr) 33 use, intrinsic :: ISO_C_binding 34 import tDM 35 DM dm1 36 DM d1, d2 37 PetscErrorCode ierr 38 end subroutine 39 subroutine DMCompositeGetEntries3(dm1, d1, d2, d3, ierr) 40 use, intrinsic :: ISO_C_binding 41 import tDM 42 DM dm1 43 DM d1, d2, d3 44 PetscErrorCode ierr 45 end subroutine 46 subroutine DMCompositeGetEntries4(dm1, d1, d2, d3, d4, ierr) 47 use, intrinsic :: ISO_C_binding 48 import tDM 49 DM dm1 50 PetscInt d2, d4 51 DM d1, d3 52 PetscErrorCode ierr 53 end subroutine 54end interface DMCompositeGetEntries 55