1! 2! These are Fortran interfaces that are custom hand coded because 3! they cannot currently be generated automatically 4! 5 6 interface 7 subroutine PetscLayoutRestoreRanges(a, b, z) 8 use, intrinsic :: ISO_C_binding 9 import tPetscLayout 10 PetscLayout a 11 PetscInt, pointer :: b(:) 12 PetscErrorCode z 13 end subroutine 14 end interface 15 16 interface 17 subroutine PetscSectionRestoreConstraintIndices(s, p, a, ierr) 18 use, intrinsic :: ISO_C_binding 19 import tPetscSection 20 PetscInt p 21 PetscInt, pointer :: a(:) 22 PetscErrorCode ierr 23 PetscSection s 24 end subroutine 25 end interface 26 27 interface 28 subroutine PetscSectionRestoreFieldConstraintIndices(s, p, f, a, ierr) 29 use, intrinsic :: ISO_C_binding 30 import tPetscSection 31 PetscSection :: s 32 PetscInt :: p 33 PetscInt :: f 34 PetscInt, pointer :: a(:) 35 PetscErrorCode :: ierr 36 end subroutine 37 end interface 38