16dd63270SBarry Smith interface DMPlexRestoreCone 26dd63270SBarry Smith subroutine DMPlexRestoreCone(a,b,c, z) 3*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tDM 56dd63270SBarry Smith DM :: a 66dd63270SBarry Smith PetscInt :: b 76dd63270SBarry Smith PetscInt, pointer :: c(:) 86dd63270SBarry Smith PetscErrorCode z 96dd63270SBarry Smith end subroutine 106dd63270SBarry Smith end interface 116dd63270SBarry Smith 126dd63270SBarry Smith interface DMPlexRestoreSupport 136dd63270SBarry Smith subroutine DMPlexRestoreSupport(a,b,c, z) 14*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 156dd63270SBarry Smith import tDM 166dd63270SBarry Smith DM :: a 176dd63270SBarry Smith PetscInt :: b 186dd63270SBarry Smith PetscInt, pointer :: c(:) 196dd63270SBarry Smith PetscErrorCode z 206dd63270SBarry Smith end subroutine 216dd63270SBarry Smith end interface 226dd63270SBarry Smith 236dd63270SBarry Smith interface DMPlexRestoreFullMeet 246dd63270SBarry Smith subroutine DMPlexRestoreFullMeet(a,b,c,d,e, z) 25*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 266dd63270SBarry Smith import tDM 276dd63270SBarry Smith DM :: a 286dd63270SBarry Smith PetscInt :: b 296dd63270SBarry Smith PetscInt :: c(*) 306dd63270SBarry Smith PetscInt :: d 316dd63270SBarry Smith PetscInt, pointer :: e(:) 326dd63270SBarry Smith PetscErrorCode z 336dd63270SBarry Smith end subroutine 346dd63270SBarry Smith end interface