void saxpy(long,float,float[],long,float[],long);
void scopy(long,float[],long,float[],long);
void srotm(long,float[],long,float[],long,float[]);
void srotmg(float*,float*,float*,float,float[]);
void svecp(float[],long,STRING);