LAPACK  3.7.0
LAPACK: Linear Algebra PACKage
#define F77_scopy   F77_GLOBAL(scopy,SCOPY)