new-materials

aka_fortran_mangling.hh
View Options

			#ifndef AKA_FC_HEADER_INCLUDED
			#define AKA_FC_HEADER_INCLUDED

			/* Mangling for Fortran global symbols without underscores. */
			#define AKA_FC_GLOBAL(name,NAME) name##_

			/* Mangling for Fortran global symbols with underscores. */
			#define AKA_FC_GLOBAL_(name,NAME) name##_

			/* Mangling for Fortran module symbols without underscores. */
			#define AKA_FC_MODULE(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name

			/* Mangling for Fortran module symbols with underscores. */
			#define AKA_FC_MODULE_(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name

			#endif