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 6*02c639afSMartin Diehl interface 7*02c639afSMartin Diehl subroutine PetscLayoutRestoreRanges(a, b, z) 8fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 96dd63270SBarry Smith import tPetscLayout 106dd63270SBarry Smith PetscLayout a 116dd63270SBarry Smith PetscInt, pointer :: b(:) 126dd63270SBarry Smith PetscErrorCode z 13*02c639afSMartin Diehl end subroutine 14*02c639afSMartin Diehl end interface 156dd63270SBarry Smith 16*02c639afSMartin Diehl interface 17*02c639afSMartin Diehl subroutine PetscSectionRestoreConstraintIndices(s, p, a, ierr) 18fe66ebccSMartin 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 24*02c639afSMartin Diehl end subroutine 25*02c639afSMartin Diehl end interface 266dd63270SBarry Smith 27*02c639afSMartin Diehl interface 28*02c639afSMartin Diehl subroutine PetscSectionRestoreFieldConstraintIndices(s, p, f, a, ierr) 29fe66ebccSMartin 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 36*02c639afSMartin Diehl end subroutine 37*02c639afSMartin Diehl end interface 38