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