1interface 2 subroutine SNESRestoreConvergenceHistory(snes, a, its, na, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tSNES 5 SNES snes 6 PetscInt na 7 PetscReal, pointer :: a(:) 8 PetscInt, pointer :: its(:) 9 PetscErrorCode, intent(out) :: ierr 10 end subroutine 11end interface 12 13#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 14!DEC$ ATTRIBUTES DLLEXPORT::SNESRestoreConvergenceHistory 15#endif 16