void dcomqr(long,long,long,long,double*,double*,double[],
	long*);
void ermsg(STRING,long,long,STRING,byte);
void zpolz(double[][2],long,double[][2],double*,long*);
void zquo(double[],double[],double[]);