void ermsg(STRING,long,long,STRING,byte);
void spolz2(float[],float[]);