blob: d833979d29402f3a6369779169fa7bb781e079cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#ifndef F77_HEADER_INCLUDED
#define F77_HEADER_INCLUDED
/* Mangling for Fortran global symbols without underscores. */
#define F77_GLOBAL(name,NAME) name##_
/* Mangling for Fortran global symbols with underscores. */
#define F77_GLOBAL_(name,NAME) name##_
/* Mangling for Fortran module symbols without underscores. */
#define F77_MODULE(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
/* Mangling for Fortran module symbols with underscores. */
#define F77_MODULE_(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
#endif
|