void sscal(long,float,float[],long);