1*3d1372b2SMartin Diehlinterface 26dd63270SBarry Smith subroutine DMPlexRestoreCone(a, b, c, z) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tDM 56dd63270SBarry Smith DM :: a 66dd63270SBarry Smith PetscInt :: b 76dd63270SBarry Smith PetscInt, pointer :: c(:) 86dd63270SBarry Smith PetscErrorCode z 96dd63270SBarry Smith end subroutine 106dd63270SBarry Smith 116dd63270SBarry Smith subroutine DMPlexRestoreSupport(a, b, c, z) 12fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 136dd63270SBarry Smith import tDM 146dd63270SBarry Smith DM :: a 156dd63270SBarry Smith PetscInt :: b 166dd63270SBarry Smith PetscInt, pointer :: c(:) 176dd63270SBarry Smith PetscErrorCode z 186dd63270SBarry Smith end subroutine 196dd63270SBarry Smith 206dd63270SBarry Smith subroutine DMPlexRestoreFullMeet(a, b, c, d, e, z) 21fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 226dd63270SBarry Smith import tDM 236dd63270SBarry Smith DM :: a 246dd63270SBarry Smith PetscInt :: b 256dd63270SBarry Smith PetscInt :: c(*) 266dd63270SBarry Smith PetscInt :: d 276dd63270SBarry Smith PetscInt, pointer :: e(:) 286dd63270SBarry Smith PetscErrorCode z 296dd63270SBarry Smith end subroutine 306dd63270SBarry Smithend interface 31*3d1372b2SMartin Diehl 32*3d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 33*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreCone 34*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreSupport 35*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::DMPlexRestoreFullMeet 36*3d1372b2SMartin Diehl#endif 37