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