1*6dd63270SBarry Smith interface DMPlexRestoreCone 2*6dd63270SBarry Smith subroutine DMPlexRestoreCone(a,b,c, z) 3*6dd63270SBarry Smith import tDM 4*6dd63270SBarry Smith DM :: a 5*6dd63270SBarry Smith PetscInt :: b 6*6dd63270SBarry Smith PetscInt, pointer :: c(:) 7*6dd63270SBarry Smith PetscErrorCode z 8*6dd63270SBarry Smith end subroutine 9*6dd63270SBarry Smith end interface 10*6dd63270SBarry Smith 11*6dd63270SBarry Smith interface DMPlexRestoreSupport 12*6dd63270SBarry Smith subroutine DMPlexRestoreSupport(a,b,c, z) 13*6dd63270SBarry Smith import tDM 14*6dd63270SBarry Smith DM :: a 15*6dd63270SBarry Smith PetscInt :: b 16*6dd63270SBarry Smith PetscInt, pointer :: c(:) 17*6dd63270SBarry Smith PetscErrorCode z 18*6dd63270SBarry Smith end subroutine 19*6dd63270SBarry Smith end interface 20*6dd63270SBarry Smith 21*6dd63270SBarry Smith interface DMPlexRestoreFullMeet 22*6dd63270SBarry Smith subroutine DMPlexRestoreFullMeet(a,b,c,d,e, z) 23*6dd63270SBarry Smith import tDM 24*6dd63270SBarry Smith DM :: a 25*6dd63270SBarry Smith PetscInt :: b 26*6dd63270SBarry Smith PetscInt :: c(*) 27*6dd63270SBarry Smith PetscInt :: d 28*6dd63270SBarry Smith PetscInt, pointer :: e(:) 29*6dd63270SBarry Smith PetscErrorCode z 30*6dd63270SBarry Smith end subroutine 31*6dd63270SBarry Smith end interface