1*6dd63270SBarry Smith 2*6dd63270SBarry Smith 3*6dd63270SBarry Smith Interface 4*6dd63270SBarry Smith subroutine KSPRestoreConvergenceHistory(ksp,r,na,ierr) 5*6dd63270SBarry Smith import tKSP 6*6dd63270SBarry Smith KSP ksp 7*6dd63270SBarry Smith PetscInt na 8*6dd63270SBarry Smith PetscReal, pointer :: r(:) 9*6dd63270SBarry Smith PetscErrorCode, intent(out) :: ierr 10*6dd63270SBarry Smith end subroutine 11*6dd63270SBarry Smith end Interface 12*6dd63270SBarry Smith 13