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