void cwofz(float[],float[],long*);
void ermor(STRING,byte);
void ermsg(STRING,long,long,STRING,byte);
void serv1(STRING,float,byte);