LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
#define LAPACK_Z2INT (   x)    (lapack_int)(*((double*)&x ))