16dd63270SBarry Smith! 26dd63270SBarry Smith! These are Fortran interfaces that are custom hand coded because 36dd63270SBarry Smith! they cannot currently be generated automatically 46dd63270SBarry Smith! 56dd63270SBarry Smith 66dd63270SBarry Smith Interface 76dd63270SBarry Smith Subroutine PetscLayoutRestoreRanges(a,b,z) 8*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 96dd63270SBarry Smith import tPetscLayout 106dd63270SBarry Smith PetscLayout a 116dd63270SBarry Smith PetscInt, pointer :: b(:) 126dd63270SBarry Smith PetscErrorCode z 136dd63270SBarry Smith End Subroutine 146dd63270SBarry Smith End Interface 156dd63270SBarry Smith 166dd63270SBarry Smith Interface 176dd63270SBarry Smith Subroutine PetscSectionRestoreConstraintIndices(s,p,a,ierr) 18*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 196dd63270SBarry Smith import tPetscSection 206dd63270SBarry Smith PetscInt p 216dd63270SBarry Smith PetscInt, pointer :: a(:) 226dd63270SBarry Smith PetscErrorCode ierr 236dd63270SBarry Smith PetscSection s 246dd63270SBarry Smith End Subroutine 256dd63270SBarry Smith End Interface 266dd63270SBarry Smith 276dd63270SBarry Smith Interface 286dd63270SBarry Smith Subroutine PetscSectionRestoreFieldConstraintIndices(s,p,f,a,ierr) 29*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 306dd63270SBarry Smith import tPetscSection 316dd63270SBarry Smith PetscSection :: s 326dd63270SBarry Smith PetscInt :: p 336dd63270SBarry Smith PetscInt :: f 346dd63270SBarry Smith PetscInt, pointer :: a(:) 356dd63270SBarry Smith PetscErrorCode :: ierr 366dd63270SBarry Smith End Subroutine 376dd63270SBarry Smith End Interface 38