1interface 2 subroutine PetscLayoutRestoreRanges(a, b, z) 3 use, intrinsic :: ISO_C_binding 4 import tPetscLayout 5 PetscLayout a 6 PetscInt, pointer :: b(:) 7 PetscErrorCode z 8 end subroutine 9 10 subroutine PetscSectionRestoreConstraintIndices(s, p, a, ierr) 11 use, intrinsic :: ISO_C_binding 12 import tPetscSection 13 PetscInt p 14 PetscInt, pointer :: a(:) 15 PetscErrorCode ierr 16 PetscSection s 17 end subroutine 18 19 subroutine PetscSectionRestoreFieldConstraintIndices(s, p, f, a, ierr) 20 use, intrinsic :: ISO_C_binding 21 import tPetscSection 22 PetscSection :: s 23 PetscInt :: p 24 PetscInt :: f 25 PetscInt, pointer :: a(:) 26 PetscErrorCode :: 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