esmc_timemgrf.c

CCSM Research Tools: Community Atmosphere Model (CAM)

/* $Id: ESMC_TimeMgrF.c,v 1.1.6.1 2002/04/24 03:25:45 erik Exp $ */

/* Fortran interface file */

#include "ESMC.h"
#include "ESMC_TimeMgr.h"

#ifdef ESMC_HAVE_FORTRAN_UNDERSCORE
#define FORTRANUNDERSCORE
#endif

#ifdef POINTER_64_BITS
#if defined(__cplusplus)
extern "C" { 
#endif 
extern void *ESMC_ToPointer();
extern int ESMC_FromPointer();
extern void ESMC_RmPointer();
#if defined(__cplusplus)
} 
#endif 

#else

#define ESMC_ToPointer(a) ((long*)(a))
#define ESMC_FromPointer(a) (long)(a)
#define ESMC_RmPointer(a)
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrinitis_ PESMC_TIMEMGRINITIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitis_ pesmc_timemgrinitis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitis_ pesmc_timemgrinitis
#else

#define esmc_timemgrinitis_ pesmc_timemgrinitis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrinitis_ ESMC_TIMEMGRINITIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitis_ esmc_timemgrinitis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitis_ esmc_timemgrinitis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrinitnobaseis_ PESMC_TIMEMGRINITNOBASEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitnobaseis_ pesmc_timemgrinitnobaseis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitnobaseis_ pesmc_timemgrinitnobaseis
#else

#define esmc_timemgrinitnobaseis_ pesmc_timemgrinitnobaseis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrinitnobaseis_ ESMC_TIMEMGRINITNOBASEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitnobaseis_ esmc_timemgrinitnobaseis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitnobaseis_ esmc_timemgrinitnobaseis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrinit_ PESMC_TIMEMGRINIT
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinit_ pesmc_timemgrinit__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinit_ pesmc_timemgrinit
#else

#define esmc_timemgrinit_ pesmc_timemgrinit_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrinit_ ESMC_TIMEMGRINIT
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinit_ esmc_timemgrinit__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinit_ esmc_timemgrinit
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrinitnobase_ PESMC_TIMEMGRINITNOBASE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitnobase_ pesmc_timemgrinitnobase__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitnobase_ pesmc_timemgrinitnobase
#else

#define esmc_timemgrinitnobase_ pesmc_timemgrinitnobase_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrinitnobase_ ESMC_TIMEMGRINITNOBASE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrinitnobase_ esmc_timemgrinitnobase__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrinitnobase_ esmc_timemgrinitnobase
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgradvance_ PESMC_TIMEMGRADVANCE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgradvance_ pesmc_timemgradvance__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgradvance_ pesmc_timemgradvance
#else

#define esmc_timemgradvance_ pesmc_timemgradvance_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgradvance_ ESMC_TIMEMGRADVANCE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgradvance_ esmc_timemgradvance__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgradvance_ esmc_timemgradvance
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrlaststep_ PESMC_TIMEMGRLASTSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrlaststep_ pesmc_timemgrlaststep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrlaststep_ pesmc_timemgrlaststep
#else

#define esmc_timemgrlaststep_ pesmc_timemgrlaststep_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrlaststep_ ESMC_TIMEMGRLASTSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrlaststep_ esmc_timemgrlaststep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrlaststep_ esmc_timemgrlaststep
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetstepsizestd_ PESMC_TIMEMGRGETSTEPSIZESTD
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstepsizestd_ pesmc_timemgrgetstepsizestd__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstepsizestd_ pesmc_timemgrgetstepsizestd
#else

#define esmc_timemgrgetstepsizestd_ pesmc_timemgrgetstepsizestd_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetstepsizestd_ ESMC_TIMEMGRGETSTEPSIZESTD
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstepsizestd_ esmc_timemgrgetstepsizestd__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstepsizestd_ esmc_timemgrgetstepsizestd
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetstepsizeis_ PESMC_TIMEMGRGETSTEPSIZEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstepsizeis_ pesmc_timemgrgetstepsizeis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstepsizeis_ pesmc_timemgrgetstepsizeis
#else

#define esmc_timemgrgetstepsizeis_ pesmc_timemgrgetstepsizeis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetstepsizeis_ ESMC_TIMEMGRGETSTEPSIZEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstepsizeis_ esmc_timemgrgetstepsizeis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstepsizeis_ esmc_timemgrgetstepsizeis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetnstep_ PESMC_TIMEMGRGETNSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetnstep_ pesmc_timemgrgetnstep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetnstep_ pesmc_timemgrgetnstep
#else

#define esmc_timemgrgetnstep_ pesmc_timemgrgetnstep_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetnstep_ ESMC_TIMEMGRGETNSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetnstep_ esmc_timemgrgetnstep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetnstep_ esmc_timemgrgetnstep
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrsetnstep_ PESMC_TIMEMGRSETNSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetnstep_ pesmc_timemgrsetnstep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetnstep_ pesmc_timemgrsetnstep
#else

#define esmc_timemgrsetnstep_ pesmc_timemgrsetnstep_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrsetnstep_ ESMC_TIMEMGRSETNSTEP
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetnstep_ esmc_timemgrsetnstep__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetnstep_ esmc_timemgrsetnstep
#endif
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrsetstepsizeis_ PESMC_TIMEMGRSETSTEPSIZEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetstepsizeis_ pesmc_timemgrsetstepsizeis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetstepsizeis_ pesmc_timemgrsetstepsizeis
#else

#define esmc_timemgrsetstepsizeis_ pesmc_timemgrsetstepsizeis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrsetstepsizeis_ ESMC_TIMEMGRSETSTEPSIZEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetstepsizeis_ esmc_timemgrsetstepsizeis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetstepsizeis_ esmc_timemgrsetstepsizeis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrsetstepsizestd_ PESMC_TIMEMGRSETSTEPSIZESTD
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetstepsizestd_ pesmc_timemgrsetstepsizestd__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetstepsizestd_ pesmc_timemgrsetstepsizestd
#else

#define esmc_timemgrsetstepsizestd_ pesmc_timemgrsetstepsizestd_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrsetstepsizestd_ ESMC_TIMEMGRSETSTEPSIZESTD
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetstepsizestd_ esmc_timemgrsetstepsizestd__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetstepsizestd_ esmc_timemgrsetstepsizestd
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetstartdate_ PESMC_TIMEMGRGETSTARTDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstartdate_ pesmc_timemgrgetstartdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstartdate_ pesmc_timemgrgetstartdate
#else

#define esmc_timemgrgetstartdate_ pesmc_timemgrgetstartdate_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetstartdate_ ESMC_TIMEMGRGETSTARTDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstartdate_ esmc_timemgrgetstartdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstartdate_ esmc_timemgrgetstartdate
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetstopdate_ PESMC_TIMEMGRGETSTOPDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstopdate_ pesmc_timemgrgetstopdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstopdate_ pesmc_timemgrgetstopdate
#else

#define esmc_timemgrgetstopdate_ pesmc_timemgrgetstopdate_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetstopdate_ ESMC_TIMEMGRGETSTOPDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetstopdate_ esmc_timemgrgetstopdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetstopdate_ esmc_timemgrgetstopdate
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetbasedate_ PESMC_TIMEMGRGETBASEDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetbasedate_ pesmc_timemgrgetbasedate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetbasedate_ pesmc_timemgrgetbasedate
#else

#define esmc_timemgrgetbasedate_ pesmc_timemgrgetbasedate_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetbasedate_ ESMC_TIMEMGRGETBASEDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetbasedate_ esmc_timemgrgetbasedate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetbasedate_ esmc_timemgrgetbasedate
#endif
#endif