13d1372b2SMartin Diehlinterface 202c639afSMartin Diehl subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tDM, tIS 56dd63270SBarry Smith DM dm 66dd63270SBarry Smith IS, pointer :: iss(:) 7*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 802c639afSMartin Diehl end subroutine 96dd63270SBarry Smith 1002c639afSMartin Diehl subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 11fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 126dd63270SBarry Smith import tDM, tIS 136dd63270SBarry Smith DM dm 146dd63270SBarry Smith IS, pointer :: iss(:) 15*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 1602c639afSMartin Diehl end subroutine 1702c639afSMartin Diehlend interface 183d1372b2SMartin Diehl 193d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 203d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMCompositeRestoreGlobalISs 213d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMCompositeRestoreLocalISs 223d1372b2SMartin Diehl#endif 233d1372b2SMartin Diehl 243d1372b2SMartin Diehlinterface DMCompositeGetEntries 25*0da4d79bSMartin Diehl subroutine DMCompositeGetEntries1(dm, d1, ierr) 263d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 273d1372b2SMartin Diehl import tDM 28*0da4d79bSMartin Diehl DM dm 293d1372b2SMartin Diehl DM d1 30*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 313d1372b2SMartin Diehl end subroutine 32*0da4d79bSMartin Diehl subroutine DMCompositeGetEntries2(dm, d1, d2, ierr) 333d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 343d1372b2SMartin Diehl import tDM 35*0da4d79bSMartin Diehl DM dm 363d1372b2SMartin Diehl DM d1, d2 37*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 383d1372b2SMartin Diehl end subroutine 39*0da4d79bSMartin Diehl subroutine DMCompositeGetEntries3(dm, d1, d2, d3, ierr) 403d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 413d1372b2SMartin Diehl import tDM 42*0da4d79bSMartin Diehl DM dm 433d1372b2SMartin Diehl DM d1, d2, d3 44*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 453d1372b2SMartin Diehl end subroutine 46*0da4d79bSMartin Diehl subroutine DMCompositeGetEntries4(dm, d1, d2, d3, d4, ierr) 473d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 483d1372b2SMartin Diehl import tDM 49*0da4d79bSMartin Diehl DM dm 50*0da4d79bSMartin Diehl DM d1, d2, d4, d3 51*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 523d1372b2SMartin Diehl end subroutine 533d1372b2SMartin Diehlend interface DMCompositeGetEntries 54