long isamax(long,float[],long);
void saxpy(long,float,float[],long,float[],long);
void scopy(long,float[],long,float[],long);
void sdasco(float*,long,long,float[],float[]);
float sdot(long,float[],long,float[],long);
float snrm2(long,float[],long);
void srot(long,float[],long,float[],long,float,float);
void srotg(float*,float*,float*,float*);
void sscal(long,float,float[],long);
void sswap(long,float[],long,float[],long);