LAPACK  3.7.0
LAPACK: Linear Algebra PACKage
#define F77_dcopy   F77_GLOBAL(dcopy,DCOPY)