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