/* MF_AlarmF.c *//* Fortran interface file */#include "MF.h"#include "MF_Alarm.h"#ifdef MF_HAVE_FORTRAN_UNDERSCORE#define FORTRANUNDERSCORE#endif#ifdef POINTER_64_BITS#if defined(__cplusplus)extern "C" { #endif extern void *MF_ToPointer();extern int MF_FromPointer();extern void MF_RmPointer();#if defined(__cplusplus)} #endif #else#define MF_ToPointer(a) ((long*)(a))#define MF_FromPointer(a) (long)(a)#define MF_RmPointer(a)#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmnewperiodic_ PMF_ALARMNEWPERIODIC#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewperiodic_ pmf_alarmnewperiodic__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewperiodic_ pmf_alarmnewperiodic#else#define mf_alarmnewperiodic_ pmf_alarmnewperiodic_#endif#else#ifdef FORTRANCAPS#define mf_alarmnewperiodic_ MF_ALARMNEWPERIODIC#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewperiodic_ mf_alarmnewperiodic__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewperiodic_ mf_alarmnewperiodic#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmnewmonthly_ PMF_ALARMNEWMONTHLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewmonthly_ pmf_alarmnewmonthly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewmonthly_ pmf_alarmnewmonthly#else#define mf_alarmnewmonthly_ pmf_alarmnewmonthly_#endif#else#ifdef FORTRANCAPS#define mf_alarmnewmonthly_ MF_ALARMNEWMONTHLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewmonthly_ mf_alarmnewmonthly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewmonthly_ mf_alarmnewmonthly#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmnewyearly_ PMF_ALARMNEWYEARLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewyearly_ pmf_alarmnewyearly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewyearly_ pmf_alarmnewyearly#else#define mf_alarmnewyearly_ pmf_alarmnewyearly_#endif#else#ifdef FORTRANCAPS#define mf_alarmnewyearly_ MF_ALARMNEWYEARLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmnewyearly_ mf_alarmnewyearly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmnewyearly_ mf_alarmnewyearly#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarminitperiodic_ PMF_ALARMINITPERIODIC#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminitperiodic_ pmf_alarminitperiodic__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminitperiodic_ pmf_alarminitperiodic#else#define mf_alarminitperiodic_ pmf_alarminitperiodic_#endif#else#ifdef FORTRANCAPS#define mf_alarminitperiodic_ MF_ALARMINITPERIODIC#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminitperiodic_ mf_alarminitperiodic__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminitperiodic_ mf_alarminitperiodic#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarminitmonthly_ PMF_ALARMINITMONTHLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminitmonthly_ pmf_alarminitmonthly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminitmonthly_ pmf_alarminitmonthly#else#define mf_alarminitmonthly_ pmf_alarminitmonthly_#endif#else#ifdef FORTRANCAPS#define mf_alarminitmonthly_ MF_ALARMINITMONTHLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminitmonthly_ mf_alarminitmonthly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminitmonthly_ mf_alarminitmonthly#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarminityearly_ PMF_ALARMINITYEARLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminityearly_ pmf_alarminityearly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminityearly_ pmf_alarminityearly#else#define mf_alarminityearly_ pmf_alarminityearly_#endif#else#ifdef FORTRANCAPS#define mf_alarminityearly_ MF_ALARMINITYEARLY#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarminityearly_ mf_alarminityearly__#elif !defined(FORTRANUNDERSCORE)#define mf_alarminityearly_ mf_alarminityearly#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmison_ PMF_ALARMISON#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmison_ pmf_alarmison__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmison_ pmf_alarmison#else#define mf_alarmison_ pmf_alarmison_#endif#else#ifdef FORTRANCAPS#define mf_alarmison_ MF_ALARMISON#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmison_ mf_alarmison__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmison_ mf_alarmison#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmgettype_ PMF_ALARMGETTYPE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmgettype_ pmf_alarmgettype__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmgettype_ pmf_alarmgettype#else#define mf_alarmgettype_ pmf_alarmgettype_#endif#else#ifdef FORTRANCAPS#define mf_alarmgettype_ MF_ALARMGETTYPE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmgettype_ mf_alarmgettype__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmgettype_ mf_alarmgettype#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_alarmset_ PMF_ALARMSET#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmset_ pmf_alarmset__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmset_ pmf_alarmset#else#define mf_alarmset_ pmf_alarmset_#endif#else#ifdef FORTRANCAPS#define mf_alarmset_ MF_ALARMSET#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_alarmset_ mf_alarmset__#elif !defined(FORTRANUNDERSCORE)#define mf_alarmset_ mf_alarmset#endif#endif/* Definitions of Fortran Wrapper routines */#if defined(__cplusplus)extern "C" {#endifvoid   mf_alarminitperiodic_(MF_Alarm this, MF_Time period, MF_Time offset, int *rc){  *rc = MF_AlarmConstructPeriodic(this, period, offset);}void  mf_alarminitmonthly_(MF_Alarm this, int *rc){  *rc = MF_AlarmConstructMonthly(this);}void  mf_alarminityearly_(MF_Alarm this, int *rc){  *rc = MF_AlarmConstructYearly(this);}void mf_alarmison_(MF_Alarm this, MF_TimeMgr timeMgr, MF_Bool *alarmOn, int *rc){  *rc = MF_AlarmIsOn(this, timeMgr, alarmOn);}void mf_alarmset_(MF_Alarm this, MF_Bool *alarmOn, int *rc){  *rc = MF_AlarmSet(this, *alarmOn);}void mf_alarmgettype_(MF_Alarm this, MF_AlarmType *type, int *rc){  *rc = MF_AlarmGetType(this, type);}