1*02c639afSMartin Diehl interface DMCompositeGetEntries 2*02c639afSMartin Diehl subroutine DMCompositeGetEntries1(dm1, d1, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tDM 56dd63270SBarry Smith DM dm1 66dd63270SBarry Smith DM d1 76dd63270SBarry Smith PetscErrorCode ierr 8*02c639afSMartin Diehl end subroutine 96dd63270SBarry Smith 10*02c639afSMartin Diehl subroutine DMCompositeGetEntries2(dm1, d1, d2, ierr) 11fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 126dd63270SBarry Smith import tDM 136dd63270SBarry Smith DM dm1 146dd63270SBarry Smith DM d1, d2 156dd63270SBarry Smith PetscErrorCode ierr 16*02c639afSMartin Diehl end subroutine 176dd63270SBarry Smith 18*02c639afSMartin Diehl subroutine DMCompositeGetEntries3(dm1, d1, d2, d3, ierr) 19fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 206dd63270SBarry Smith import tDM 216dd63270SBarry Smith DM dm1 226dd63270SBarry Smith DM d1, d2, d3 236dd63270SBarry Smith PetscErrorCode ierr 24*02c639afSMartin Diehl end subroutine 256dd63270SBarry Smith 26*02c639afSMartin Diehl subroutine DMCompositeGetEntries4(dm1, d1, d2, d3, d4, ierr) 27fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 286dd63270SBarry Smith import tDM 296dd63270SBarry Smith DM dm1 306dd63270SBarry Smith PetscInt d2, d4 316dd63270SBarry Smith DM d1, d3 326dd63270SBarry Smith PetscErrorCode ierr 33*02c639afSMartin Diehl end subroutine 34*02c639afSMartin Diehl end interface 356dd63270SBarry Smith 36*02c639afSMartin Diehl interface DMCompositeRestoreGlobalISs 37*02c639afSMartin Diehl subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 38fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 396dd63270SBarry Smith import tDM, tIS 406dd63270SBarry Smith DM dm 416dd63270SBarry Smith IS, pointer :: iss(:) 426dd63270SBarry Smith PetscErrorCode ierr 43*02c639afSMartin Diehl end subroutine 44*02c639afSMartin Diehl end interface 456dd63270SBarry Smith 46*02c639afSMartin Diehl interface DMCompositeRestoreLocalISs 47*02c639afSMartin Diehl subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 48fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 496dd63270SBarry Smith import tDM, tIS 506dd63270SBarry Smith DM dm 516dd63270SBarry Smith IS, pointer :: iss(:) 526dd63270SBarry Smith PetscErrorCode ierr 53*02c639afSMartin Diehl end subroutine 54*02c639afSMartin Diehl end interface 55