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