9 #if OMPI_PROFILING_DEFINES
10 #define F77_STAMP_PROFILE_FN(fn_name_core, fn_name_lower, fn_name_upper, fn_args, pass_args) \
11 static void fn_name_core fn_args; \
13 OMPI_DECLSPEC void P##fn_name_upper fn_args; \
14 OMPI_DECLSPEC void p##fn_name_lower fn_args; \
15 OMPI_DECLSPEC void p##fn_name_lower##_ fn_args; \
16 OMPI_DECLSPEC void p##fn_name_lower##__ fn_args; \
18 void P##fn_name_upper fn_args { \
19 fn_name_core pass_args; \
21 void p##fn_name_lower fn_args { \
22 fn_name_core pass_args; \
24 void p##fn_name_lower##_ fn_args { \
25 fn_name_core pass_args; \
27 void p##fn_name_lower##__ fn_args { \
28 fn_name_core pass_args; \
30 #define F77_STAMP_FN(fn_name_core, fn_name_lower, fn_name_upper, fn_args, pass_args) \
31 F77_STAMP_PROFILE_FN(fn_name_core, fn_name_lower, fn_name_upper, fn_args, pass_args)
34 #define F77_STAMP_FN(fn_name_core, fn_name_lower, fn_name_upper, fn_args, pass_args) \
35 static void fn_name_core fn_args; \
37 OMPI_DECLSPEC void fn_name_upper fn_args; \
38 OMPI_DECLSPEC void fn_name_lower fn_args; \
39 OMPI_DECLSPEC void fn_name_lower##_ fn_args; \
40 OMPI_DECLSPEC void fn_name_lower##__ fn_args; \
42 void fn_name_upper fn_args { \
43 fn_name_core pass_args; \
45 void fn_name_lower fn_args { \
46 fn_name_core pass_args; \
48 void fn_name_lower##_ fn_args { \
49 fn_name_core pass_args; \
51 void fn_name_lower##__ fn_args { \
52 fn_name_core pass_args; \