#include "petscsys.h"
#include "petscfix.h"
#include "petsc/private/fortranimpl.h"
/* plog.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) (*(PetscFortranAddr *)(a))
#define PetscFromPointer(a) (PetscFortranAddr)(a)
#define PetscRmPointer(a)
#endif

#include "petscsys.h"
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscloggetdefaulthandler_ PETSCLOGGETDEFAULTHANDLER
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscloggetdefaulthandler_ petscloggetdefaulthandler
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscloggetstate_ PETSCLOGGETSTATE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscloggetstate_ petscloggetstate
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscloghandlerstart_ PETSCLOGHANDLERSTART
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscloghandlerstart_ petscloghandlerstart
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petscloghandlerstop_ PETSCLOGHANDLERSTOP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petscloghandlerstop_ petscloghandlerstop
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogactions_ PETSCLOGACTIONS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogactions_ petsclogactions
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogobjects_ PETSCLOGOBJECTS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogobjects_ petsclogobjects
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogstagesetactive_ PETSCLOGSTAGESETACTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogstagesetactive_ petsclogstagesetactive
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogstagegetactive_ PETSCLOGSTAGEGETACTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogstagegetactive_ petsclogstagegetactive
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogstagesetvisible_ PETSCLOGSTAGESETVISIBLE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogstagesetvisible_ petsclogstagesetvisible
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogstagegetvisible_ PETSCLOGSTAGEGETVISIBLE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogstagegetvisible_ petsclogstagegetvisible
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventsetcollective_ PETSCLOGEVENTSETCOLLECTIVE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventsetcollective_ petsclogeventsetcollective
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventincludeclass_ PETSCLOGEVENTINCLUDECLASS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventincludeclass_ petsclogeventincludeclass
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventexcludeclass_ PETSCLOGEVENTEXCLUDECLASS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventexcludeclass_ petsclogeventexcludeclass
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventactivate_ PETSCLOGEVENTACTIVATE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventactivate_ petsclogeventactivate
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventdeactivate_ PETSCLOGEVENTDEACTIVATE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventdeactivate_ petsclogeventdeactivate
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventdeactivatepush_ PETSCLOGEVENTDEACTIVATEPUSH
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventdeactivatepush_ petsclogeventdeactivatepush
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventdeactivatepop_ PETSCLOGEVENTDEACTIVATEPOP
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventdeactivatepop_ petsclogeventdeactivatepop
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventsetactiveall_ PETSCLOGEVENTSETACTIVEALL
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventsetactiveall_ petsclogeventsetactiveall
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventactivateclass_ PETSCLOGEVENTACTIVATECLASS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventactivateclass_ petsclogeventactivateclass
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventdeactivateclass_ PETSCLOGEVENTDEACTIVATECLASS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventdeactivateclass_ petsclogeventdeactivateclass
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventspause_ PETSCLOGEVENTSPAUSE
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventspause_ petsclogeventspause
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogeventsresume_ PETSCLOGEVENTSRESUME
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogeventsresume_ petsclogeventsresume
#endif
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define petsclogsetthreshold_ PETSCLOGSETTHRESHOLD
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
#define petsclogsetthreshold_ petsclogsetthreshold
#endif


/* Definitions of Fortran Wrapper routines */
#if defined(__cplusplus)
extern "C" {
#endif
PETSC_EXTERN void  petscloggetdefaulthandler_(PetscLogHandler *handler, int *__ierr)
{
*__ierr = PetscLogGetDefaultHandler(
	(PetscLogHandler* )PetscToPointer((handler) ));
}
PETSC_EXTERN void  petscloggetstate_(PetscLogState *state, int *__ierr)
{
*__ierr = PetscLogGetState(
	(PetscLogState* )PetscToPointer((state) ));
}
PETSC_EXTERN void  petscloghandlerstart_(PetscLogHandler *h, int *__ierr)
{
*__ierr = PetscLogHandlerStart(*h);
}
PETSC_EXTERN void  petscloghandlerstop_(PetscLogHandler *h, int *__ierr)
{
*__ierr = PetscLogHandlerStop(*h);
}
PETSC_EXTERN void  petsclogactions_(PetscBool *flag, int *__ierr)
{
*__ierr = PetscLogActions(*flag);
}
PETSC_EXTERN void  petsclogobjects_(PetscBool *flag, int *__ierr)
{
*__ierr = PetscLogObjects(*flag);
}
PETSC_EXTERN void  petsclogstagesetactive_(PetscLogStage *stage,PetscBool *isActive, int *__ierr)
{
*__ierr = PetscLogStageSetActive(*stage,*isActive);
}
PETSC_EXTERN void  petsclogstagegetactive_(PetscLogStage *stage,PetscBool *isActive, int *__ierr)
{
*__ierr = PetscLogStageGetActive(*stage,isActive);
}
PETSC_EXTERN void  petsclogstagesetvisible_(PetscLogStage *stage,PetscBool *isVisible, int *__ierr)
{
*__ierr = PetscLogStageSetVisible(*stage,*isVisible);
}
PETSC_EXTERN void  petsclogstagegetvisible_(PetscLogStage *stage,PetscBool *isVisible, int *__ierr)
{
*__ierr = PetscLogStageGetVisible(*stage,isVisible);
}
PETSC_EXTERN void  petsclogeventsetcollective_(PetscLogEvent *event,PetscBool *collective, int *__ierr)
{
*__ierr = PetscLogEventSetCollective(*event,*collective);
}
PETSC_EXTERN void  petsclogeventincludeclass_(PetscClassId *classid, int *__ierr)
{
*__ierr = PetscLogEventIncludeClass(*classid);
}
PETSC_EXTERN void  petsclogeventexcludeclass_(PetscClassId *classid, int *__ierr)
{
*__ierr = PetscLogEventExcludeClass(*classid);
}
PETSC_EXTERN void  petsclogeventactivate_(PetscLogEvent *event, int *__ierr)
{
*__ierr = PetscLogEventActivate(*event);
}
PETSC_EXTERN void  petsclogeventdeactivate_(PetscLogEvent *event, int *__ierr)
{
*__ierr = PetscLogEventDeactivate(*event);
}
PETSC_EXTERN void  petsclogeventdeactivatepush_(PetscLogEvent *event, int *__ierr)
{
*__ierr = PetscLogEventDeactivatePush(*event);
}
PETSC_EXTERN void  petsclogeventdeactivatepop_(PetscLogEvent *event, int *__ierr)
{
*__ierr = PetscLogEventDeactivatePop(*event);
}
PETSC_EXTERN void  petsclogeventsetactiveall_(PetscLogEvent *event,PetscBool *isActive, int *__ierr)
{
*__ierr = PetscLogEventSetActiveAll(*event,*isActive);
}
PETSC_EXTERN void  petsclogeventactivateclass_(PetscClassId *classid, int *__ierr)
{
*__ierr = PetscLogEventActivateClass(*classid);
}
PETSC_EXTERN void  petsclogeventdeactivateclass_(PetscClassId *classid, int *__ierr)
{
*__ierr = PetscLogEventDeactivateClass(*classid);
}
PETSC_EXTERN void  petsclogeventspause_(int *__ierr)
{
*__ierr = PetscLogEventsPause();
}
PETSC_EXTERN void  petsclogeventsresume_(int *__ierr)
{
*__ierr = PetscLogEventsResume();
}
PETSC_EXTERN void  petsclogsetthreshold_(PetscLogDouble *newThresh,PetscLogDouble *oldThresh, int *__ierr)
{
*__ierr = PetscLogSetThreshold(*newThresh,oldThresh);
}
#if defined(__cplusplus)
}
#endif
