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