1*3d1372b2SMartin 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(:) 76dd63270SBarry Smith PetscErrorCode 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(:) 156dd63270SBarry Smith PetscErrorCode ierr 1602c639afSMartin Diehl end subroutine 1702c639afSMartin Diehlend interface 18*3d1372b2SMartin Diehl 19*3d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 20*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMCompositeRestoreGlobalISs 21*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMCompositeRestoreLocalISs 22*3d1372b2SMartin Diehl#endif 23*3d1372b2SMartin Diehl 24*3d1372b2SMartin Diehlinterface DMCompositeGetEntries 25*3d1372b2SMartin Diehl subroutine DMCompositeGetEntries1(dm1, d1, ierr) 26*3d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 27*3d1372b2SMartin Diehl import tDM 28*3d1372b2SMartin Diehl DM dm1 29*3d1372b2SMartin Diehl DM d1 30*3d1372b2SMartin Diehl PetscErrorCode ierr 31*3d1372b2SMartin Diehl end subroutine 32*3d1372b2SMartin Diehl subroutine DMCompositeGetEntries2(dm1, d1, d2, ierr) 33*3d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 34*3d1372b2SMartin Diehl import tDM 35*3d1372b2SMartin Diehl DM dm1 36*3d1372b2SMartin Diehl DM d1, d2 37*3d1372b2SMartin Diehl PetscErrorCode ierr 38*3d1372b2SMartin Diehl end subroutine 39*3d1372b2SMartin Diehl subroutine DMCompositeGetEntries3(dm1, d1, d2, d3, ierr) 40*3d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 41*3d1372b2SMartin Diehl import tDM 42*3d1372b2SMartin Diehl DM dm1 43*3d1372b2SMartin Diehl DM d1, d2, d3 44*3d1372b2SMartin Diehl PetscErrorCode ierr 45*3d1372b2SMartin Diehl end subroutine 46*3d1372b2SMartin Diehl subroutine DMCompositeGetEntries4(dm1, d1, d2, d3, d4, ierr) 47*3d1372b2SMartin Diehl use, intrinsic :: ISO_C_binding 48*3d1372b2SMartin Diehl import tDM 49*3d1372b2SMartin Diehl DM dm1 50*3d1372b2SMartin Diehl PetscInt d2, d4 51*3d1372b2SMartin Diehl DM d1, d3 52*3d1372b2SMartin Diehl PetscErrorCode ierr 53*3d1372b2SMartin Diehl end subroutine 54*3d1372b2SMartin Diehlend interface DMCompositeGetEntries 55