Go to the documentation of this file.
41 #define EXTERN_C extern "C"
46 #if defined(__cplusplus)
50 #define RESTRICT restrict
53 #if !defined(__CVERSION)
72 #define FSYM(a) a ## _
73 #if defined(VAR_G77) || defined(HAVE_GCPP)
74 #define FSYM2(a) a ## __
76 #define FSYM2(a) a ## _
80 #if defined(VAR_PGF77)
81 #define __FUNCTION__ "PGI_does_not_define__FUNCTION__"
84 #define __FUNCTION__ "SUNs CC compiler_does_not_define__FUNCTION__"
87 #define __FUNCTION__ "SGIs CC compiler_does_not_define__FUNCTION__"
90 #define __FUNCTION__ "DEC CC compiler does not define __FUNCTION__"
93 #define ELEMENTS(arr) (sizeof(arr)/sizeof(arr[0]))
110 const real* dmata,
const real *dmatb,
120 extern int (*
fort_print)(
const char* format, ...);
123 #if !defined __inline__