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