void ermor(STRING,byte);
void ermsg(STRING,long,long,STRING,byte);
void ierv1(STRING,long,byte);
void sbespq(float,float,float*,float*);
void sbesyn(float,float,long,float[]);
void serv1(STRING,float,byte);
float sgamma(float);
float slgama(float);