#include "petscsys.h"
#include "petscfix.h"
#include "petsc/private/fortranimpl.h"
/* taosolver_fg.c */
/* Fortran interface file */

/*
* This file was generated automatically by bfort from the C source
* file.  
 */

#ifdef PETSC_USE_POINTER_CONVERSION
#if defined(__cplusplus)
extern "C" { 
#endif 
extern void *PetscToPointer(void*);
extern int PetscFromPointer(void *);
extern void PetscRmPointer(void*);
#if defined(__cplusplus)
} 
#endif 

#else

#define PetscToPointer(a) (a ? *(PetscFortranAddr *)(a) : 0)
#define PetscFromPointer(a) (PetscFortranAddr)(a)
#define PetscRmPointer(a)
#endif

#include "petsctao.h"
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taosetsolution_ TAOSETSOLUTION
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taosetsolution_ taosetsolution
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taocomputegradient_ TAOCOMPUTEGRADIENT
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taocomputegradient_ taocomputegradient
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taocomputeobjective_ TAOCOMPUTEOBJECTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taocomputeobjective_ taocomputeobjective
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taocomputeobjectiveandgradient_ TAOCOMPUTEOBJECTIVEANDGRADIENT
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taocomputeobjectiveandgradient_ taocomputeobjectiveandgradient
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taosetresidualweights_ TAOSETRESIDUALWEIGHTS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taosetresidualweights_ taosetresidualweights
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taocomputeresidual_ TAOCOMPUTERESIDUAL
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taocomputeresidual_ taocomputeresidual
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taoisobjectivedefined_ TAOISOBJECTIVEDEFINED
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taoisobjectivedefined_ taoisobjectivedefined
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taoisgradientdefined_ TAOISGRADIENTDEFINED
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taoisgradientdefined_ taoisgradientdefined
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define taoisobjectiveandgradientdefined_ TAOISOBJECTIVEANDGRADIENTDEFINED
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define taoisobjectiveandgradientdefined_ taoisobjectiveandgradientdefined
#endif
/* Provide declarations for malloc/free if needed for strings */
#include <stdlib.h>


/* Definitions of Fortran Wrapper routines */
#if defined(__cplusplus)
extern "C" {
#endif
PETSC_EXTERN void  taosetsolution_(Tao tao,Vec x0, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(x0);
*ierr = TaoSetSolution(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((x0) ));
}
PETSC_EXTERN void  taocomputegradient_(Tao tao,Vec X,Vec G, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(X);
CHKFORTRANNULLOBJECT(G);
*ierr = TaoComputeGradient(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((X) ),
	(Vec)PetscToPointer((G) ));
}
PETSC_EXTERN void  taocomputeobjective_(Tao tao,Vec X,PetscReal *f, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(X);
CHKFORTRANNULLREAL(f);
*ierr = TaoComputeObjective(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((X) ),f);
}
PETSC_EXTERN void  taocomputeobjectiveandgradient_(Tao tao,Vec X,PetscReal *f,Vec G, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(X);
CHKFORTRANNULLREAL(f);
CHKFORTRANNULLOBJECT(G);
*ierr = TaoComputeObjectiveAndGradient(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((X) ),f,
	(Vec)PetscToPointer((G) ));
}
PETSC_EXTERN void  taosetresidualweights_(Tao tao,Vec sigma_v,PetscInt *n,PetscInt *rows,PetscInt *cols,PetscReal *vals, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(sigma_v);
CHKFORTRANNULLINTEGER(rows);
CHKFORTRANNULLINTEGER(cols);
CHKFORTRANNULLREAL(vals);
*ierr = TaoSetResidualWeights(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((sigma_v) ),*n,rows,cols,vals);
}
PETSC_EXTERN void  taocomputeresidual_(Tao tao,Vec X,Vec F, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
CHKFORTRANNULLOBJECT(X);
CHKFORTRANNULLOBJECT(F);
*ierr = TaoComputeResidual(
	(Tao)PetscToPointer((tao) ),
	(Vec)PetscToPointer((X) ),
	(Vec)PetscToPointer((F) ));
}
PETSC_EXTERN void  taoisobjectivedefined_(Tao tao,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
*ierr = TaoIsObjectiveDefined(
	(Tao)PetscToPointer((tao) ),flg);
}
PETSC_EXTERN void  taoisgradientdefined_(Tao tao,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
*ierr = TaoIsGradientDefined(
	(Tao)PetscToPointer((tao) ),flg);
}
PETSC_EXTERN void  taoisobjectiveandgradientdefined_(Tao tao,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(tao);
*ierr = TaoIsObjectiveAndGradientDefined(
	(Tao)PetscToPointer((tao) ),flg);
}
#if defined(__cplusplus)
}
#endif