1 2 #ifndef __f77_function_definition__ 3 #define __f77_function_definition__ 4 5 6 /* f77 name is uppercase */ 7 /* #define _F77_FUNC_UPPERCASE_ */ 8 9 /* f77 name has a underscore */ 10 /* #define _F77_FUNC_UNDERSCORE1_ */ 11 12 /* f77 name has two undrescores */ 13 /*#define _F77_FUNC_UNDERSCORE2_ */ 14 15 16 /* _F77_FUNC_UNDERSCORE1_ and _F77_FUNC_UNDERSCORE2_ are mutually exclusive. */ 17 18 #ifdef f77 19 #endif 20 21 #ifdef f77_ 22 #define _F77_FUNC_UNDERSCORE1_ 23 #endif 24 25 #ifdef f77__ 26 #define _F77_FUNC_UNDERSCORE2_ 27 #endif 28 29 #ifdef F77 30 #define _F77_FUNC_UPPERCASE_ 31 #endif 32 33 #ifdef F77_ 34 #define _F77_FUNC_UPPERCASE_ 35 #define _F77_FUNC_UNDERSCORE1_ 36 #endif 37 38 #ifdef F77__ 39 #define _F77_FUNC_UPPERCASE_ 40 #define _F77_FUNC_UNDERSCORE2_ 41 #endif 42 43 #if !defined(f77) && !defined(f77_) && !defined(f77__) && !defined(F77) && !defined(F77_) && !defined(F77__) 44 #define _F77_FUNC_UNDERSCORE1_ 45 #endif 46 47 /*********************************************************************/ 48 49 50 #if defined ( _F77_FUNC_UPPERCASE_ ) && !defined(_F77_FUNC_UNDERSCORE1_) && defined(_F77_FUNC_UNDERSCORE2_) 51 #define F77_NAME(a,A) A ## __ 52 #endif 53 54 #if !defined ( _F77_FUNC_UPPERCASE_ ) && !defined(_F77_FUNC_UNDERSCORE1_) && defined(_F77_FUNC_UNDERSCORE2_) 55 #define F77_NAME(a,A) a ## __ 56 #endif 57 58 #if defined ( _F77_FUNC_UPPERCASE_ ) && defined(_F77_FUNC_UNDERSCORE1_) && !defined(_F77_FUNC_UNDERSCORE2_) 59 #define F77_NAME(a,A) A ## _ 60 #endif 61 62 #if !defined ( _F77_FUNC_UPPERCASE_ ) && defined(_F77_FUNC_UNDERSCORE1_) && !defined(_F77_FUNC_UNDERSCORE2_) 63 #define F77_NAME(a,A) a ## _ 64 #endif 65 66 #if defined ( _F77_FUNC_UPPERCASE_ ) && !defined(_F77_FUNC_UNDERSCORE1_) && !defined(_F77_FUNC_UNDERSCORE2_) 67 #define F77_NAME(a,A) A 68 #endif 69 70 #if !defined ( _F77_FUNC_UPPERCASE_ ) && !defined(_F77_FUNC_UNDERSCORE1_) && !defined(_F77_FUNC_UNDERSCORE2_) 71 #define F77_NAME(a,A) a 72 #endif 73 74 75 76 #endif 77