LAPACK  3.7.0
LAPACK: Linear Algebra PACKage

§ LAPACK_C2INT

#define LAPACK_C2INT (   x)    (lapack_int)(*((float*)&x ))