/* MF_TimeMgrF.c *//* Fortran interface file */#include "MF.h"#include "MF_TimeMgr.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_timemgrinitis_ PMF_TIMEMGRINITIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitis_ pmf_timemgrinitis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitis_ pmf_timemgrinitis#else#define mf_timemgrinitis_ pmf_timemgrinitis_#endif#else#ifdef FORTRANCAPS#define mf_timemgrinitis_ MF_TIMEMGRINITIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitis_ mf_timemgrinitis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitis_ mf_timemgrinitis#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrinitnobaseis_ PMF_TIMEMGRINITNOBASEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitnobaseis_ pmf_timemgrinitnobaseis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitnobaseis_ pmf_timemgrinitnobaseis#else#define mf_timemgrinitnobaseis_ pmf_timemgrinitnobaseis_#endif#else#ifdef FORTRANCAPS#define mf_timemgrinitnobaseis_ MF_TIMEMGRINITNOBASEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitnobaseis_ mf_timemgrinitnobaseis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitnobaseis_ mf_timemgrinitnobaseis#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrinit_ PMF_TIMEMGRINIT#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinit_ pmf_timemgrinit__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinit_ pmf_timemgrinit#else#define mf_timemgrinit_ pmf_timemgrinit_#endif#else#ifdef FORTRANCAPS#define mf_timemgrinit_ MF_TIMEMGRINIT#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinit_ mf_timemgrinit__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinit_ mf_timemgrinit#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrinitnobase_ PMF_TIMEMGRINITNOBASE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitnobase_ pmf_timemgrinitnobase__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitnobase_ pmf_timemgrinitnobase#else#define mf_timemgrinitnobase_ pmf_timemgrinitnobase_#endif#else#ifdef FORTRANCAPS#define mf_timemgrinitnobase_ MF_TIMEMGRINITNOBASE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrinitnobase_ mf_timemgrinitnobase__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrinitnobase_ mf_timemgrinitnobase#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgradvance_ PMF_TIMEMGRADVANCE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgradvance_ pmf_timemgradvance__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgradvance_ pmf_timemgradvance#else#define mf_timemgradvance_ pmf_timemgradvance_#endif#else#ifdef FORTRANCAPS#define mf_timemgradvance_ MF_TIMEMGRADVANCE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgradvance_ mf_timemgradvance__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgradvance_ mf_timemgradvance#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrlaststep_ PMF_TIMEMGRLASTSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrlaststep_ pmf_timemgrlaststep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrlaststep_ pmf_timemgrlaststep#else#define mf_timemgrlaststep_ pmf_timemgrlaststep_#endif#else#ifdef FORTRANCAPS#define mf_timemgrlaststep_ MF_TIMEMGRLASTSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrlaststep_ mf_timemgrlaststep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrlaststep_ mf_timemgrlaststep#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetstepsizestd_ PMF_TIMEMGRGETSTEPSIZESTD#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstepsizestd_ pmf_timemgrgetstepsizestd__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstepsizestd_ pmf_timemgrgetstepsizestd#else#define mf_timemgrgetstepsizestd_ pmf_timemgrgetstepsizestd_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetstepsizestd_ MF_TIMEMGRGETSTEPSIZESTD#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstepsizestd_ mf_timemgrgetstepsizestd__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstepsizestd_ mf_timemgrgetstepsizestd#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetstepsizeis_ PMF_TIMEMGRGETSTEPSIZEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstepsizeis_ pmf_timemgrgetstepsizeis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstepsizeis_ pmf_timemgrgetstepsizeis#else#define mf_timemgrgetstepsizeis_ pmf_timemgrgetstepsizeis_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetstepsizeis_ MF_TIMEMGRGETSTEPSIZEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstepsizeis_ mf_timemgrgetstepsizeis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstepsizeis_ mf_timemgrgetstepsizeis#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetnstep_ PMF_TIMEMGRGETNSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetnstep_ pmf_timemgrgetnstep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetnstep_ pmf_timemgrgetnstep#else#define mf_timemgrgetnstep_ pmf_timemgrgetnstep_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetnstep_ MF_TIMEMGRGETNSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetnstep_ mf_timemgrgetnstep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetnstep_ mf_timemgrgetnstep#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrsetnstep_ PMF_TIMEMGRSETNSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetnstep_ pmf_timemgrsetnstep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetnstep_ pmf_timemgrsetnstep#else#define mf_timemgrsetnstep_ pmf_timemgrsetnstep_#endif#else#ifdef FORTRANCAPS#define mf_timemgrsetnstep_ MF_TIMEMGRSETNSTEP#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetnstep_ mf_timemgrsetnstep__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetnstep_ mf_timemgrsetnstep#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrsetstepsizeis_ PMF_TIMEMGRSETSTEPSIZEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetstepsizeis_ pmf_timemgrsetstepsizeis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetstepsizeis_ pmf_timemgrsetstepsizeis#else#define mf_timemgrsetstepsizeis_ pmf_timemgrsetstepsizeis_#endif#else#ifdef FORTRANCAPS#define mf_timemgrsetstepsizeis_ MF_TIMEMGRSETSTEPSIZEIS#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetstepsizeis_ mf_timemgrsetstepsizeis__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetstepsizeis_ mf_timemgrsetstepsizeis#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrsetstepsizestd_ PMF_TIMEMGRSETSTEPSIZESTD#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetstepsizestd_ pmf_timemgrsetstepsizestd__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetstepsizestd_ pmf_timemgrsetstepsizestd#else#define mf_timemgrsetstepsizestd_ pmf_timemgrsetstepsizestd_#endif#else#ifdef FORTRANCAPS#define mf_timemgrsetstepsizestd_ MF_TIMEMGRSETSTEPSIZESTD#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrsetstepsizestd_ mf_timemgrsetstepsizestd__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrsetstepsizestd_ mf_timemgrsetstepsizestd#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetstartdate_ PMF_TIMEMGRGETSTARTDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstartdate_ pmf_timemgrgetstartdate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstartdate_ pmf_timemgrgetstartdate#else#define mf_timemgrgetstartdate_ pmf_timemgrgetstartdate_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetstartdate_ MF_TIMEMGRGETSTARTDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstartdate_ mf_timemgrgetstartdate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstartdate_ mf_timemgrgetstartdate#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetstopdate_ PMF_TIMEMGRGETSTOPDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstopdate_ pmf_timemgrgetstopdate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstopdate_ pmf_timemgrgetstopdate#else#define mf_timemgrgetstopdate_ pmf_timemgrgetstopdate_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetstopdate_ MF_TIMEMGRGETSTOPDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetstopdate_ mf_timemgrgetstopdate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetstopdate_ mf_timemgrgetstopdate#endif#endif#ifdef MPI_BUILD_PROFILING#ifdef FORTRANCAPS#define mf_timemgrgetbasedate_ PMF_TIMEMGRGETBASEDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetbasedate_ pmf_timemgrgetbasedate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetbasedate_ pmf_timemgrgetbasedate#else#define mf_timemgrgetbasedate_ pmf_timemgrgetbasedate_#endif#else#ifdef FORTRANCAPS#define mf_timemgrgetbasedate_ MF_TIMEMGRGETBASEDATE#elif defined(FORTRANDOUBLEUNDERSCORE)#define mf_timemgrgetbasedate_ mf_timemgrgetbasedate__#elif !defined(FORTRANUNDERSCORE)#define mf_timemgrgetbasedate_ mf_timemgrgetbasedate#endif#endif