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