1interface 2 subroutine PetscLayoutRestoreRanges(map, ranges, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tPetscLayout 5 PetscLayout map 6 PetscInt, pointer :: ranges(:) 7 PetscErrorCode, intent(out) :: ierr 8 end subroutine 9 10 subroutine PetscSectionRestoreConstraintIndices(s, point, indices, ierr) 11 use, intrinsic :: ISO_C_binding 12 import tPetscSection 13 PetscInt point 14 PetscInt, pointer :: indices(:) 15 PetscErrorCode, intent(out) :: ierr 16 PetscSection s 17 end subroutine 18 19 subroutine PetscSectionRestoreFieldConstraintIndices(s, point, field, indices, ierr) 20 use, intrinsic :: ISO_C_binding 21 import tPetscSection 22 PetscSection :: s 23 PetscInt :: point 24 PetscInt :: field 25 PetscInt, pointer :: indices(:) 26 PetscErrorCode, intent(out) :: ierr 27 end subroutine 28end interface 29 30#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 31!DEC$ ATTRIBUTES DLLEXPORT::PetscLayoutRestoreRanges 32!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreConstraintIndices 33!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreFieldConstraintIndices 34#endif 35