TRIQS/nda 1.3.0
Multi-dimensional array library for C++
Loading...
Searching...
No Matches
cblas_mangling_with_flags.h
1#ifndef F77_HEADER_INCLUDED
2#define F77_HEADER_INCLUDED
3
4#ifndef F77_GLOBAL
5#if defined(F77_GLOBAL_PATTERN_LC) || defined(ADD_)
6#define F77_GLOBAL(lcname, UCNAME) lcname##_
7#elif defined(F77_GLOBAL_PATTERN_UC) || defined(UPPER)
8#define F77_GLOBAL(lcname, UCNAME) UCNAME
9#elif defined(F77_GLOBAL_PATTERN_MC) || defined(NOCHANGE)
10#define F77_GLOBAL(lcname, UCNAME) lcname
11#else
12#define F77_GLOBAL(lcname, UCNAME) lcname##_
13#endif
14#endif
15
16#endif