void cquo(float[],float[],float[]);
void csqrtx(float[],float[]);
float scabs(float[]);
void scomqr(long,long,long,long,float*,float*,float[],
	long*);