16dd63270SBarry Smith 26dd63270SBarry Smith Interface DMCompositeGetEntries 36dd63270SBarry Smith Subroutine DMCompositeGetEntries1(dm1, d1,ierr) 4*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 56dd63270SBarry Smith import tDM 66dd63270SBarry Smith DM dm1 76dd63270SBarry Smith DM d1 86dd63270SBarry Smith PetscErrorCode ierr 96dd63270SBarry Smith End Subroutine 106dd63270SBarry Smith 116dd63270SBarry Smith Subroutine DMCompositeGetEntries2(dm1, d1,d2,ierr) 12*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 136dd63270SBarry Smith import tDM 146dd63270SBarry Smith DM dm1 156dd63270SBarry Smith DM d1,d2 166dd63270SBarry Smith PetscErrorCode ierr 176dd63270SBarry Smith End Subroutine 186dd63270SBarry Smith 196dd63270SBarry Smith Subroutine DMCompositeGetEntries3(dm1, d1,d2,d3,ierr) 20*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 216dd63270SBarry Smith import tDM 226dd63270SBarry Smith DM dm1 236dd63270SBarry Smith DM d1,d2,d3 246dd63270SBarry Smith PetscErrorCode ierr 256dd63270SBarry Smith End Subroutine 266dd63270SBarry Smith 276dd63270SBarry Smith Subroutine DMCompositeGetEntries4(dm1, d1,d2,d3,d4,ierr) 28*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 296dd63270SBarry Smith import tDM 306dd63270SBarry Smith DM dm1 316dd63270SBarry Smith PetscInt d2,d4 326dd63270SBarry Smith DM d1,d3 336dd63270SBarry Smith PetscErrorCode ierr 346dd63270SBarry Smith End Subroutine 356dd63270SBarry Smith End Interface 366dd63270SBarry Smith 376dd63270SBarry Smith Interface DMCompositeRestoreGlobalISs 386dd63270SBarry Smith Subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 39*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 406dd63270SBarry Smith import tDM,tIS 416dd63270SBarry Smith DM dm 426dd63270SBarry Smith IS, pointer :: iss(:) 436dd63270SBarry Smith PetscErrorCode ierr 446dd63270SBarry Smith End Subroutine 456dd63270SBarry Smith End Interface 466dd63270SBarry Smith 476dd63270SBarry Smith Interface DMCompositeRestoreLocalISs 486dd63270SBarry Smith Subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 49*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 506dd63270SBarry Smith import tDM,tIS 516dd63270SBarry Smith DM dm 526dd63270SBarry Smith IS, pointer :: iss(:) 536dd63270SBarry Smith PetscErrorCode ierr 546dd63270SBarry Smith End Subroutine 556dd63270SBarry Smith End Interface 56