void saxpy(long,float,float[],long,float[],long);
void scopy(long,float[],long,float[],long);
void srot(long,float[],long,float[],long,float,float);
void srotg(float*,float*,float*,float*);