13d1372b2SMartin Diehlinterface 2*0da4d79bSMartin Diehl subroutine DMPlexRestoreCone(dm, p, cone, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tDM 5*0da4d79bSMartin Diehl DM :: dm 6*0da4d79bSMartin Diehl PetscInt :: p 7*0da4d79bSMartin Diehl PetscInt, pointer :: cone(:) 8*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 96dd63270SBarry Smith end subroutine 106dd63270SBarry Smith 11*0da4d79bSMartin Diehl subroutine DMPlexRestoreSupport(dm, p, support, ierr) 12fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 136dd63270SBarry Smith import tDM 14*0da4d79bSMartin Diehl DM :: dm 15*0da4d79bSMartin Diehl PetscInt :: p 16*0da4d79bSMartin Diehl PetscInt, pointer :: support(:) 17*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 186dd63270SBarry Smith end subroutine 196dd63270SBarry Smith 206dd63270SBarry Smithend interface 213d1372b2SMartin Diehl 223d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 233d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreCone 243d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreSupport 253d1372b2SMartin Diehl#endif 26