void ermsg(STRING,long,long,STRING,byte);
void sqrbd(long*,float[],float[],long,float*,long,long,
	float*,long,long);
void srot(long,float[],long,float[],long,float,float);
void srotg(float*,float*,float*,float*);
void sswap(long,float[],long,float[],long);