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
|