void serm1(STRING,long,long,STRING,STRING,float,byte);
void serv1(STRING,float,byte);
float sgamma(float);
float slgama(float);
float srat1(float);