18 lines
444 B
C
18 lines
444 B
C
#ifndef F77_HEADER_INCLUDED
|
|
#define F77_HEADER_INCLUDED
|
|
|
|
#ifndef F77_GLOBAL
|
|
#if defined(F77_GLOBAL_PATTERN_LC) || defined(ADD_)
|
|
#define F77_GLOBAL(lcname,UCNAME) lcname##_
|
|
#elif defined(F77_GLOBAL_PATTERN_UC) || defined(UPPER)
|
|
#define F77_GLOBAL(lcname,UCNAME) UCNAME
|
|
#elif defined(F77_GLOBAL_PATTERN_MC) || defined(NOCHANGE)
|
|
#define F77_GLOBAL(lcname,UCNAME) lcname
|
|
#else
|
|
#define F77_GLOBAL(lcname,UCNAME) lcname##_
|
|
#endif
|
|
#endif
|
|
|
|
#endif
|
|
|