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