void ermsg(STRING,long,long,STRING,byte);
void scdiv(float,float,float,float,float*,float*);
void sevbh(float*,long,long,long*,long*,long[],float[]);
void sevvun(float*,long,long,float[],float[],float*,long[],
	float[]);
float snrm2(long,float[],long);
void sscal(long,float,float[],long);