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