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