LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
void F77_dasum_sub ( FINT  ,
const double *  ,
FINT  ,
double *   
)