numeric-linalg

Educational material on the SciPy implementation of numerical linear algebra algorithms

NameSizeMode
..
lapack/CBLAS/include/cblas_mangling_with_flags.h.in 444B -rw-r--r-- 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

#ifndef F77_HEADER_INCLUDED
#define F77_HEADER_INCLUDED

#ifndef F77_GLOBAL
#if defined(F77_GLOBAL_PATTERN_LC) || defined(ADD_)
#define F77_GLOBAL(lcname,UCNAME)  lcname##_
#elif defined(F77_GLOBAL_PATTERN_UC) || defined(UPPER)
#define F77_GLOBAL(lcname,UCNAME)  UCNAME
#elif defined(F77_GLOBAL_PATTERN_MC) || defined(NOCHANGE)
#define F77_GLOBAL(lcname,UCNAME)  lcname
#else
#define F77_GLOBAL(lcname,UCNAME)  lcname##_
#endif
#endif

#endif