void dscal(long,double,double[],long);