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