namesetime.h

来自「数学算法的实现库。可以实现常见的线性计算。」· C头文件 代码 · 共 42 行

#ifndef _NAMESETIME_H
#define _NAMESETIME_H

#include <f2c.h>

/* on several architectures names of fortran routines are passed to C in 
   different ways. To cover this different architectures use in C only lower
   letters for the fortran names. Dependent on the switch you use they are
   replaced by the correct function name
*/

/* only use capital letters */
#if defined __CAPS__ && !defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define etime          ETIME


/* no capital letters */
#elif defined __UNDERSCORE__ && !defined __CAPS__ && !defined __2UNDERSCORES__
#define etime          etime_


/* both are defined */
#elif defined __CAPS__ && defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define etime          ETIME_


/* CAPS and 2 underscores are defined */
#elif defined __CAPS__ && defined __2UNDERSCORES__
#define etime          ETIME__


/* no capital letters but 2 underscores */
#elif defined __2UNDERSCORES__ && !defined __CAPS__
#define etime          etime__


#endif /* defined __CAPS__ && ... */

#endif /* _NAMESETIME_H */