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 import tPetscLayout 9 PetscLayout a 10 PetscInt, pointer :: b(:) 11 PetscErrorCode z 12 End Subroutine 13 End Interface 14 15 Interface 16 Subroutine PetscSectionRestoreConstraintIndices(s,p,a,ierr) 17 import tPetscSection 18 PetscInt p 19 PetscInt, pointer :: a(:) 20 PetscErrorCode ierr 21 PetscSection s 22 End Subroutine 23 End Interface 24 25 Interface 26 Subroutine PetscSectionRestoreFieldConstraintIndices(s,p,f,a,ierr) 27 import tPetscSection 28 PetscSection :: s 29 PetscInt :: p 30 PetscInt :: f 31 PetscInt, pointer :: a(:) 32 PetscErrorCode :: ierr 33 End Subroutine 34 End Interface 35