102c639afSMartin Diehlinterface 2*0da4d79bSMartin Diehl subroutine SNESRestoreConvergenceHistory(snes, a, its, na, ierr) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tSNES 56dd63270SBarry Smith SNES snes 66dd63270SBarry Smith PetscInt na 7*0da4d79bSMartin Diehl PetscReal, pointer :: a(:) 86dd63270SBarry Smith PetscInt, pointer :: its(:) 96dd63270SBarry Smith PetscErrorCode, intent(out) :: ierr 106dd63270SBarry Smith end subroutine 1102c639afSMartin Diehlend interface 123d1372b2SMartin Diehl 133d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 143d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::SNESRestoreConvergenceHistory 153d1372b2SMartin Diehl#endif 16