1interface 2 subroutine DMPlexRestoreCone(dm, p, cone, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tDM 5 DM :: dm 6 PetscInt :: p 7 PetscInt, pointer :: cone(:) 8 PetscErrorCode, intent(out) :: ierr 9 end subroutine 10 11 subroutine DMPlexRestoreSupport(dm, p, support, ierr) 12 use, intrinsic :: ISO_C_binding 13 import tDM 14 DM :: dm 15 PetscInt :: p 16 PetscInt, pointer :: support(:) 17 PetscErrorCode, intent(out) :: ierr 18 end subroutine 19 20end interface 21 22#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 23!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreCone 24!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreSupport 25#endif 26