LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
void F77_dcopy ( FINT  ,
const double *  ,
FINT  ,
double *  ,
FINT   
)