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