void dimql(double*,long,long,double[],double[],long*);
void ermsg(STRING,long,long,STRING,byte);