void ermsg(STRING,long,long,STRING,byte);
float sdot(long,float[],long,float[],long);
void sgeslt(float*,long,long,long[],float[]);