LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
#define LAPACK_C2INT (   x)    (lapack_int)(*((float*)&x ))