void ierm1(STRING,long,long,STRING,STRING,long,byte);
void sbi1k1(float,float*,float*,long,long*);
float scsevl(float,float[],long);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void sinits(float[],long,float,long*);