xref: /phasta/phSolver/common/tmrc.h (revision 8746ab438bbda91291f8cdd62b94f8385f2d26f1)
1*20fccb6eSCameron Smith #ifndef COMMON_TMRC_H
2*20fccb6eSCameron Smith #define COMMON_TMRC_H
3*20fccb6eSCameron Smith 
4*20fccb6eSCameron Smith #include <FCMangle.h>
5*20fccb6eSCameron Smith #define TMRC FortranCInterface_GLOBAL_(tmrc, TMRC)
6*20fccb6eSCameron Smith 
7*20fccb6eSCameron Smith #ifdef __cplusplus
8*20fccb6eSCameron Smith extern "C" {
9*20fccb6eSCameron Smith #endif
10*20fccb6eSCameron Smith 
11*20fccb6eSCameron Smith double TMRC(void);
12*20fccb6eSCameron Smith 
13*20fccb6eSCameron Smith #ifdef __cplusplus
14*20fccb6eSCameron Smith }
15*20fccb6eSCameron Smith #endif
16*20fccb6eSCameron Smith 
17*20fccb6eSCameron Smith #endif
18