16dd63270SBarry Smith 26dd63270SBarry Smith 36dd63270SBarry Smith Interface 46dd63270SBarry Smith subroutine KSPRestoreConvergenceHistory(ksp,r,na,ierr) 5*fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 66dd63270SBarry Smith import tKSP 76dd63270SBarry Smith KSP ksp 86dd63270SBarry Smith PetscInt na 96dd63270SBarry Smith PetscReal, pointer :: r(:) 106dd63270SBarry Smith PetscErrorCode, intent(out) :: ierr 116dd63270SBarry Smith end subroutine 126dd63270SBarry Smith end Interface 136dd63270SBarry Smith 14