Go to the documentation of this file.
36 #ifndef OPENRS_FORTRAN_HEADER
37 #define OPENRS_FORTRAN_HEADER
47 #define F77_FUNC(lcase,UCASE) lcase ## _
53 #define F77_NAME(lcase,UCASE) F77_FUNC(lcase,UCASE)
58 #define F77_NAME_(lcase,UCASE) F77_FUNC_(lcase,UCASE)
60 #ifdef F77_CHARACTER_TYPE
61 #undef F77_CHARACTER_TYPE
63 #define F77_CHARACTER_TYPE const char*
68 #define F77_CHARACTER(c) &c
70 #endif // OPENRS_FORTRAN_HEADER
|