void ermsg(STRING,long,long,STRING,byte);
float serf(float);
float serfc(float);
float serfce(float);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void serv1(STRING,float,byte);
float sgam1(float);
void sgami(float,float,float*,float*,long*);
void sgamib(void);
void sgamie(float*);
void sgamik(float,float,float,long);
void sgr17(float,float,float*);
void sgr29(float,float,float*);
float srcomp(float,float);
float srexp(float);
float srlog(float);
float srlog1(float);