! ! These are Fortran interfaces that are custom hand coded because ! they cannot currently be generated automatically ! Interface Subroutine PetscLayoutRestoreRanges(a, b, z) use, intrinsic :: ISO_C_binding import tPetscLayout PetscLayout a PetscInt, pointer :: b(:) PetscErrorCode z End Subroutine End Interface Interface Subroutine PetscSectionRestoreConstraintIndices(s, p, a, ierr) use, intrinsic :: ISO_C_binding import tPetscSection PetscInt p PetscInt, pointer :: a(:) PetscErrorCode ierr PetscSection s End Subroutine End Interface Interface Subroutine PetscSectionRestoreFieldConstraintIndices(s, p, f, a, ierr) use, intrinsic :: ISO_C_binding import tPetscSection PetscSection :: s PetscInt :: p PetscInt :: f PetscInt, pointer :: a(:) PetscErrorCode :: ierr End Subroutine End Interface