void derv1(STRING,double,byte);
void ermor(STRING,byte);
void ermsg(STRING,long,long,STRING,byte);
void zwofz(double[],double[],long*);