1interface 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 11 subroutine DMPlexRestoreSupport(a, b, c, z) 12 use, intrinsic :: ISO_C_binding 13 import tDM 14 DM :: a 15 PetscInt :: b 16 PetscInt, pointer :: c(:) 17 PetscErrorCode z 18 end subroutine 19 20 subroutine DMPlexRestoreFullMeet(a, b, c, d, e, z) 21 use, intrinsic :: ISO_C_binding 22 import tDM 23 DM :: a 24 PetscInt :: b 25 PetscInt :: c(*) 26 PetscInt :: d 27 PetscInt, pointer :: e(:) 28 PetscErrorCode z 29 end subroutine 30end interface 31 32#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 33!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreCone 34!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreSupport 35!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreFullMeet 36#endif 37