#ifndef _PETSC_COMPAT_SNES_H
#define _PETSC_COMPAT_SNES_H

#include "include/private/snesimpl.h"

#undef __FUNCT__
#define __FUNCT__ "SNESSetFunction_232"
static PETSC_UNUSED
PetscErrorCode SNESSetFunction_232(SNES snes,Vec r,PetscErrorCode (*func)(SNES,Vec,Vec,void*),void *ctx)
{
  PetscErrorCode ierr;
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  PetscValidHeaderSpecific(r,VEC_COOKIE,2);
  PetscCheckSameComm(snes,1,r,2);
  ierr = PetscObjectCompose((PetscObject)snes, "__vec_fun__", (PetscObject)r);CHKERRQ(ierr);
  ierr = SNESSetFunction(snes,r,func,ctx);CHKERRQ(ierr);
  PetscFunctionReturn(0);
}

#undef __FUNCT__
#define __FUNCT__ "SNESSolve_232"
static PETSC_UNUSED
PetscErrorCode SNESSolve_232(SNES snes,Vec b,Vec x)
{
  PetscErrorCode ierr;
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  PetscValidHeaderSpecific(x,VEC_COOKIE,3);
  PetscCheckSameComm(snes,1,x,3);
  if (b) PetscValidHeaderSpecific(b,VEC_COOKIE,2);
  if (b) PetscCheckSameComm(snes,1,b,2);
  ierr = PetscObjectCompose((PetscObject)snes, "__vec_sol__", (PetscObject)x);CHKERRQ(ierr);
  ierr = SNESSolve(snes,b,x);CHKERRQ(ierr);
  PetscFunctionReturn(0);
}

#undef __FUNCT__
#define __FUNCT__ "SNESSkipConverged_232"
static PETSC_UNUSED
PetscErrorCode SNESSkipConverged_232(SNES snes,PetscInt it,
				     PetscReal xnorm,PetscReal pnorm,PetscReal fnorm,
				     SNESConvergedReason *reason,void *dummy)
{
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  PetscValidPointer(reason,6);
  *reason = SNES_CONVERGED_ITERATING;
  PetscFunctionReturn(0);
}

#undef __FUNCT__
#define __FUNCT__ "SNESSetConvergenceTest_232"
static PETSC_UNUSED
PetscErrorCode SNESSetConvergenceTest_232(SNES snes,
					  PetscErrorCode (*converge)(SNES,PetscInt,PetscReal,PetscReal,PetscReal,
								     SNESConvergedReason*,void*),
					  void *cctx,
					  PetscErrorCode (*destroy)(void*))
{
  PetscContainer container = PETSC_NULL;
  PetscErrorCode ierr;
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  if (destroy) {
    ierr = PetscContainerCreate(((PetscObject)snes)->comm,&container);CHKERRQ(ierr);
    ierr = PetscContainerSetPointer(container,cctx);CHKERRQ(ierr);
    ierr = PetscContainerSetUserDestroy(container,destroy);CHKERRQ(ierr);
  }
  ierr = PetscObjectCompose((PetscObject)snes,"SNESConvTestCtx",(PetscObject)container);CHKERRQ(ierr);
  if (container) { ierr = PetscContainerDestroy(container);CHKERRQ(ierr); }
  ierr = SNESSetConvergenceTest(snes,converge,cctx);CHKERRQ(ierr);
  PetscFunctionReturn(0);
}

#undef __FUNCT__
#define __FUNCT__ "SNESKSPSetUseEW"
static PETSC_UNUSED
PetscErrorCode SNESKSPSetUseEW(SNES snes,PetscTruth flag)
{
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  snes->ksp_ewconv = flag;
  PetscFunctionReturn(0);
}
#undef __FUNCT__
#define __FUNCT__ "SNESKSPGetUseEW"
static PETSC_UNUSED
PetscErrorCode SNESKSPGetUseEW(SNES snes, PetscTruth *flag)
{
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  PetscValidPointer(flag,2);
  *flag = snes->ksp_ewconv;
  PetscFunctionReturn(0);
}
#undef __FUNCT__
#define __FUNCT__ "SNESKSPGetParametersEW"
static PETSC_UNUSED
PetscErrorCode SNESKSPGetParametersEW(SNES snes,PetscInt *version,PetscReal *rtol_0,PetscReal *rtol_max,
				      PetscReal *gamma,PetscReal *alpha,PetscReal *alpha2,PetscReal *threshold)
{
  SNES_KSP_EW_ConvCtx *kctx;
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  kctx = (SNES_KSP_EW_ConvCtx*)snes->kspconvctx;
  if (!kctx) SETERRQ(PETSC_ERR_ARG_WRONGSTATE,"No Eisenstat-Walker context existing");
  if(version)   *version   = kctx->version;
  if(rtol_0)    *rtol_0    = kctx->rtol_0;
  if(rtol_max)  *rtol_max  = kctx->rtol_max;
  if(gamma)     *gamma     = kctx->gamma;
  if(alpha)     *alpha     = kctx->alpha;
  if(alpha2)    *alpha2    = kctx->alpha2;
  if(threshold) *threshold = kctx->threshold;
  PetscFunctionReturn(0);
}
#undef __FUNCT__
#define __FUNCT__ "SNESKSPSetParametersEW"
static PETSC_UNUSED
PetscErrorCode SNESKSPSetParametersEW(SNES snes,PetscInt version,PetscReal rtol_0,PetscReal rtol_max,
				      PetscReal gamma,PetscReal alpha,PetscReal alpha2,PetscReal threshold)
{
  PetscErrorCode ierr;
  PetscFunctionBegin;
  PetscValidHeaderSpecific(snes,SNES_COOKIE,1);
  ierr = SNES_KSP_SetParametersEW(snes,version,rtol_0,rtol_max,gamma,alpha,alpha2,threshold);CHKERRQ(ierr);
  PetscFunctionReturn(0);

}

#undef __FUNCT__
#define __FUNCT__ "SNESLineSearchSetParams_232"
static PETSC_UNUSED
PetscErrorCode SNESLineSearchSetParams_232(SNES snes,PetscReal alpha,PetscReal maxstep)
{
  PetscReal steptol;
  SNESGetTolerances(snes,PETSC_NULL,PETSC_NULL,&steptol,PETSC_NULL,PETSC_NULL);
  return SNESLineSearchSetParams(snes,alpha,maxstep,steptol);
}

#undef __FUNCT__
#define __FUNCT__ "SNESLineSearchGetParams_232"
static PETSC_UNUSED
PetscErrorCode SNESLineSearchGetParams_232(SNES snes,PetscReal *alpha,PetscReal *maxstep)
{
  return SNESLineSearchGetParams(snes,alpha,maxstep,PETSC_NULL);
}

#define SNESSetFunction SNESSetFunction_232
#define SNESSolve       SNESSolve_232

#define SNES_CONVERGED_ITS 5
#define SNESDefaultConverged   SNESConverged_LS
#define SNESSkipConverged      SNESSkipConverged_232
#define SNESSetConvergenceTest SNESSetConvergenceTest_232

#define SNESGetNonlinearStepFailures SNESGetNumberUnsuccessfulSteps
#define SNESSetMaxNonlinearStepFailures SNESSetMaximumUnsuccessfulSteps
#define SNESGetMaxNonlinearStepFailures SNESGetMaximumUnsuccessfulSteps
#define SNESGetLinearSolveIterations SNESGetNumberLinearIterations

#define MatMFFD MatSNESMFCtx
#define MATMFFD_COOKIE MATSNESMFCTX_COOKIE
#define MatMFFDSetFromOptions MatSNESMFSetFromOptions
#define MatMFFDComputeJacobian MatSNESMFComputeJacobian
#define MatCreateSNESMF(snes,J) MatCreateSNESMF((snes),(snes)->vec_func,(J))

#define SNESMonitorSet SNESSetMonitor
#define SNESMonitorCancel SNESClearMonitor
#define SNESMonitorDefault SNESDefaultMonitor
#define SNESMonitorResidual SNESVecViewResidualMonitor
#define SNESMonitorSolution SNESVecViewMonitor
#define SNESMonitorSolutionUpdate SNESVecViewUpdateMonitor
#define SNESMonitorLG SNESLGMonitor

#define SNESLineSearchGetParams SNESLineSearchGetParams_232
#define SNESLineSearchSetParams SNESLineSearchSetParams_232

#endif /* _PETSC_COMPAT_SNES_H */