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