#include "petscsys.h"
#include "petscfix.h"
#include "petsc/private/fortranimpl.h"
/* hdf5v.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 "petscviewerhdf5.h"
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5setbasedimension2_ PETSCVIEWERHDF5SETBASEDIMENSION2
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5setbasedimension2_ petscviewerhdf5setbasedimension2
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5getbasedimension2_ PETSCVIEWERHDF5GETBASEDIMENSION2
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5getbasedimension2_ petscviewerhdf5getbasedimension2
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5setspoutput_ PETSCVIEWERHDF5SETSPOUTPUT
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5setspoutput_ petscviewerhdf5setspoutput
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5getspoutput_ PETSCVIEWERHDF5GETSPOUTPUT
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5getspoutput_ petscviewerhdf5getspoutput
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5setcollective_ PETSCVIEWERHDF5SETCOLLECTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5setcollective_ petscviewerhdf5setcollective
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5getcollective_ PETSCVIEWERHDF5GETCOLLECTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5getcollective_ petscviewerhdf5getcollective
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5setdefaulttimestepping_ PETSCVIEWERHDF5SETDEFAULTTIMESTEPPING
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5setdefaulttimestepping_ petscviewerhdf5setdefaulttimestepping
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5getdefaulttimestepping_ PETSCVIEWERHDF5GETDEFAULTTIMESTEPPING
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5getdefaulttimestepping_ petscviewerhdf5getdefaulttimestepping
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5popgroup_ PETSCVIEWERHDF5POPGROUP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5popgroup_ petscviewerhdf5popgroup
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5pushtimestepping_ PETSCVIEWERHDF5PUSHTIMESTEPPING
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5pushtimestepping_ petscviewerhdf5pushtimestepping
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5poptimestepping_ PETSCVIEWERHDF5POPTIMESTEPPING
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5poptimestepping_ petscviewerhdf5poptimestepping
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5istimestepping_ PETSCVIEWERHDF5ISTIMESTEPPING
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5istimestepping_ petscviewerhdf5istimestepping
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5incrementtimestep_ PETSCVIEWERHDF5INCREMENTTIMESTEP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5incrementtimestep_ petscviewerhdf5incrementtimestep
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5settimestep_ PETSCVIEWERHDF5SETTIMESTEP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5settimestep_ petscviewerhdf5settimestep
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5gettimestep_ PETSCVIEWERHDF5GETTIMESTEP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5gettimestep_ petscviewerhdf5gettimestep
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscviewerhdf5hasobject_ PETSCVIEWERHDF5HASOBJECT
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscviewerhdf5hasobject_ petscviewerhdf5hasobject
#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  petscviewerhdf5setbasedimension2_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5SetBaseDimension2(PetscPatchDefaultViewers((PetscViewer*)viewer),*flg);
}
PETSC_EXTERN void  petscviewerhdf5getbasedimension2_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5GetBaseDimension2(PetscPatchDefaultViewers((PetscViewer*)viewer),flg);
}
PETSC_EXTERN void  petscviewerhdf5setspoutput_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5SetSPOutput(PetscPatchDefaultViewers((PetscViewer*)viewer),*flg);
}
PETSC_EXTERN void  petscviewerhdf5getspoutput_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5GetSPOutput(PetscPatchDefaultViewers((PetscViewer*)viewer),flg);
}
PETSC_EXTERN void  petscviewerhdf5setcollective_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5SetCollective(PetscPatchDefaultViewers((PetscViewer*)viewer),*flg);
}
PETSC_EXTERN void  petscviewerhdf5getcollective_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5GetCollective(PetscPatchDefaultViewers((PetscViewer*)viewer),flg);
}
PETSC_EXTERN void  petscviewerhdf5setdefaulttimestepping_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5SetDefaultTimestepping(PetscPatchDefaultViewers((PetscViewer*)viewer),*flg);
}
PETSC_EXTERN void  petscviewerhdf5getdefaulttimestepping_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5GetDefaultTimestepping(PetscPatchDefaultViewers((PetscViewer*)viewer),flg);
}
PETSC_EXTERN void  petscviewerhdf5popgroup_(PetscViewer viewer, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5PopGroup(PetscPatchDefaultViewers((PetscViewer*)viewer));
}
PETSC_EXTERN void  petscviewerhdf5pushtimestepping_(PetscViewer viewer, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5PushTimestepping(PetscPatchDefaultViewers((PetscViewer*)viewer));
}
PETSC_EXTERN void  petscviewerhdf5poptimestepping_(PetscViewer viewer, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5PopTimestepping(PetscPatchDefaultViewers((PetscViewer*)viewer));
}
PETSC_EXTERN void  petscviewerhdf5istimestepping_(PetscViewer viewer,PetscBool *flg, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5IsTimestepping(PetscPatchDefaultViewers((PetscViewer*)viewer),flg);
}
PETSC_EXTERN void  petscviewerhdf5incrementtimestep_(PetscViewer viewer, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5IncrementTimestep(PetscPatchDefaultViewers((PetscViewer*)viewer));
}
PETSC_EXTERN void  petscviewerhdf5settimestep_(PetscViewer viewer,PetscInt *timestep, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
*ierr = PetscViewerHDF5SetTimestep(PetscPatchDefaultViewers((PetscViewer*)viewer),*timestep);
}
PETSC_EXTERN void  petscviewerhdf5gettimestep_(PetscViewer viewer,PetscInt *timestep, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
CHKFORTRANNULLINTEGER(timestep);
*ierr = PetscViewerHDF5GetTimestep(PetscPatchDefaultViewers((PetscViewer*)viewer),timestep);
}
PETSC_EXTERN void  petscviewerhdf5hasobject_(PetscViewer viewer,PetscObject obj,PetscBool *has, int *ierr)
{
CHKFORTRANNULLOBJECT(viewer);
CHKFORTRANNULLOBJECT(obj);
*ierr = PetscViewerHDF5HasObject(PetscPatchDefaultViewers((PetscViewer*)viewer),
	(PetscObject)PetscToPointer((obj) ),has);
}
#if defined(__cplusplus)
}
#endif