esmc_appf.c

来自「CCSM Research Tools: Community Atmospher」· C语言 代码 · 共 67 行

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

#include "ESMC.h"

#include "conf.h"

#include "ESMC_App.h"

#include <stdarg.h>

#ifdef ESMC_HAVE_FORTRAN_UNDERSCORE
#define FORTRANUNDERSCORE
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_appnew_ PESMC_LOGAPPNEW
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_appnew_ pesmc_appnew__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_appnew_ pesmc_appnew
#else

#define esmc_appnew_ pesmc_appnew_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_appnew_ ESMC_LOGAPPNEW
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_appnew_ esmc_appnew__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_appnew_ esmc_appnew
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_appdelete_ PESMC_LOGAPPDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_appdelete_ pesmc_appdelete__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_appdelete_ pesmc_appdelete
#else

#define esmc_appdelete_ pesmc_appdelete_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_appdelete_ ESMC_LOGAPPDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_appdelete_ esmc_appdelete__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_appdelete_ esmc_appdelete
#endif
#endif

void esmc_appnew_(ESMC_App *app, int *rc)
{
  *rc = ESMC_AppNew(app);
}

void esmc_appdelete_(ESMC_App *app, int *rc)
{
  *rc = ESMC_AppDelete(*app);
}