void ermsg(STRING,long,long,STRING,byte);
void saxpy(long,float,float[],long,float[],long);
void sgei(float*,long,long,long[],float[]);
void sscal(long,float,float[],long);
void sswap(long,float[],long,float[],long);