13 #ifndef _VT_FBINDINGS_H
14 #define _VT_FBINDINGS_H
17 # define EXTERN extern "C"
19 # define EXTERN extern
23 #define VT_GENERATE_F77_BINDINGS(lower_case, \
28 void lower_case signature; \
29 void lower_case signature { wrapper_function params; } \
30 void lower_case##_ signature; \
31 void lower_case##_ signature { wrapper_function params; } \
32 void lower_case##__ signature; \
33 void lower_case##__ signature { wrapper_function params; } \
34 void upper_case signature; \
35 void upper_case signature { wrapper_function params; }
38 EXTERN
void vt_string_f2c(
const char* fstr,
int len,
char** cstr);
41 EXTERN
void vt_string_c2f(
const char* cstr,
char* fstr,
int len);