void ermsg(STRING,long,long,STRING,byte);
float sdot(long,float[],long,float[],long);
void sgeco(float*,long,long,long[],float*,float[]);
void sgei(float*,long,long,long[],float[]);
void surev(float*,float*,long,float*,long[],float*);