void ermor(STRING,byte);
void ermsg(STRING,long,long,STRING,byte);
float scsevl(float,float[],long);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void serv1(STRING,float,byte);
void sinits(float[],long,float,long*);
float spsi(float);
void spsib(void);
void spsie(float*,long*);
void spsik(float,float,long);