float sdot(long,float[],long,float[],long);
void sevvun(float*,long,long,float[],float[],float*,long[],float[]);
void smatp(float*,long,long,long,STRING);
void svecp(float[],long,STRING);