2010-06-07 11:28:35 +00:00
|
|
|
#ifdef FORTRAN_
|
|
|
|
|
#define FORNAME(x) x##_
|
|
|
|
|
#else
|
|
|
|
|
#define FORNAME(x) x
|
|
|
|
|
#endif
|
|
|
|
|
|
2010-09-08 13:30:20 +00:00
|
|
|
#ifdef LONG_FORTRAN_INT
|
|
|
|
|
#define FORINT
|
|
|
|
|
#define FINT long
|
|
|
|
|
#else
|
|
|
|
|
#undef FORINT
|
|
|
|
|
#define FINT int
|
|
|
|
|
#endif
|
2013-11-04 14:56:39 +00:00
|
|
|
|
|
|
|
|
#define BLAS_FORTRANCASE(x) toupper(x)
|
|
|
|
|
#define LAPACK_FORTRANCASE(x) toupper(x)
|
