1*6dd63270SBarry Smith 2*6dd63270SBarry Smith Interface DMCompositeGetEntries 3*6dd63270SBarry Smith Subroutine DMCompositeGetEntries1(dm1, d1,ierr) 4*6dd63270SBarry Smith import tDM 5*6dd63270SBarry Smith DM dm1 6*6dd63270SBarry Smith DM d1 7*6dd63270SBarry Smith PetscErrorCode ierr 8*6dd63270SBarry Smith End Subroutine 9*6dd63270SBarry Smith 10*6dd63270SBarry Smith Subroutine DMCompositeGetEntries2(dm1, d1,d2,ierr) 11*6dd63270SBarry Smith import tDM 12*6dd63270SBarry Smith DM dm1 13*6dd63270SBarry Smith DM d1,d2 14*6dd63270SBarry Smith PetscErrorCode ierr 15*6dd63270SBarry Smith End Subroutine 16*6dd63270SBarry Smith 17*6dd63270SBarry Smith Subroutine DMCompositeGetEntries3(dm1, d1,d2,d3,ierr) 18*6dd63270SBarry Smith import tDM 19*6dd63270SBarry Smith DM dm1 20*6dd63270SBarry Smith DM d1,d2,d3 21*6dd63270SBarry Smith PetscErrorCode ierr 22*6dd63270SBarry Smith End Subroutine 23*6dd63270SBarry Smith 24*6dd63270SBarry Smith Subroutine DMCompositeGetEntries4(dm1, d1,d2,d3,d4,ierr) 25*6dd63270SBarry Smith import tDM 26*6dd63270SBarry Smith DM dm1 27*6dd63270SBarry Smith PetscInt d2,d4 28*6dd63270SBarry Smith DM d1,d3 29*6dd63270SBarry Smith PetscErrorCode ierr 30*6dd63270SBarry Smith End Subroutine 31*6dd63270SBarry Smith End Interface 32*6dd63270SBarry Smith 33*6dd63270SBarry Smith Interface DMCompositeGetAccess 34*6dd63270SBarry Smith Subroutine DMCompositeGetAccessvpvp(dm1, v,d1,d2,d3,d4,ierr) 35*6dd63270SBarry Smith import tDM,tVec 36*6dd63270SBarry Smith DM dm1 37*6dd63270SBarry Smith Vec v,d1,d3 38*6dd63270SBarry Smith PetscScalar,pointer :: d2(:) 39*6dd63270SBarry Smith PetscScalar,pointer :: d4(:) 40*6dd63270SBarry Smith PetscErrorCode ierr 41*6dd63270SBarry Smith End Subroutine 42*6dd63270SBarry Smith End Interface 43*6dd63270SBarry Smith 44*6dd63270SBarry Smith Interface DMCompositeRestoreAccess 45*6dd63270SBarry Smith Subroutine DMCompositeRestoreAccessvpvp(dm1, v,d1,d2,d3,d4,ierr) 46*6dd63270SBarry Smith import tDM,tVec 47*6dd63270SBarry Smith DM dm1 48*6dd63270SBarry Smith Vec v,d1,d3 49*6dd63270SBarry Smith PetscScalar,pointer :: d2(:) 50*6dd63270SBarry Smith PetscScalar,pointer :: d4(:) 51*6dd63270SBarry Smith PetscErrorCode ierr 52*6dd63270SBarry Smith End Subroutine 53*6dd63270SBarry Smith End Interface 54*6dd63270SBarry Smith 55*6dd63270SBarry Smith Interface DMCompositeRestoreGlobalISs 56*6dd63270SBarry Smith Subroutine DMCompositeRestoreGlobalISs(dm, iss, ierr) 57*6dd63270SBarry Smith import tDM,tIS 58*6dd63270SBarry Smith DM dm 59*6dd63270SBarry Smith IS, pointer :: iss(:) 60*6dd63270SBarry Smith PetscErrorCode ierr 61*6dd63270SBarry Smith End Subroutine 62*6dd63270SBarry Smith End Interface 63*6dd63270SBarry Smith 64*6dd63270SBarry Smith Interface DMCompositeRestoreLocalISs 65*6dd63270SBarry Smith Subroutine DMCompositeRestoreLocalISs(dm, iss, ierr) 66*6dd63270SBarry Smith import tDM,tIS 67*6dd63270SBarry Smith DM dm 68*6dd63270SBarry Smith IS, pointer :: iss(:) 69*6dd63270SBarry Smith PetscErrorCode ierr 70*6dd63270SBarry Smith End Subroutine 71*6dd63270SBarry Smith End Interface 72