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