void cpolz(float[][2],long,float[][2],float*,long*);
void cquo(float[],float[],float[]);
void ermsg(STRING,long,long,STRING,byte);
void scomqr(long,long,long,long,float*,float*,float[],
	long*);