102c639afSMartin Diehlinterface 2*0da4d79bSMartin Diehl subroutine PetscLayoutRestoreRanges(map, ranges, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tPetscLayout 5*0da4d79bSMartin Diehl PetscLayout map 6*0da4d79bSMartin Diehl PetscInt, pointer :: ranges(:) 7*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 802c639afSMartin Diehl end subroutine 96dd63270SBarry Smith 10*0da4d79bSMartin Diehl subroutine PetscSectionRestoreConstraintIndices(s, point, indices, ierr) 11fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 126dd63270SBarry Smith import tPetscSection 13*0da4d79bSMartin Diehl PetscInt point 14*0da4d79bSMartin Diehl PetscInt, pointer :: indices(:) 15*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 166dd63270SBarry Smith PetscSection s 1702c639afSMartin Diehl end subroutine 186dd63270SBarry Smith 19*0da4d79bSMartin Diehl subroutine PetscSectionRestoreFieldConstraintIndices(s, point, field, indices, ierr) 20fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 216dd63270SBarry Smith import tPetscSection 226dd63270SBarry Smith PetscSection :: s 23*0da4d79bSMartin Diehl PetscInt :: point 24*0da4d79bSMartin Diehl PetscInt :: field 25*0da4d79bSMartin Diehl PetscInt, pointer :: indices(:) 26*0da4d79bSMartin Diehl PetscErrorCode, intent(out) :: ierr 2702c639afSMartin Diehl end subroutine 2802c639afSMartin Diehlend interface 293d1372b2SMartin Diehl 303d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 313d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscLayoutRestoreRanges 323d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreConstraintIndices 333d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreFieldConstraintIndices 343d1372b2SMartin Diehl#endif 35