float scsevl(float,float[],long);
float serf(float);
float serf1(float);
float serfc(float);
float serfc1(float);
float serfce(float);
float serfe1(float);
float serfe2(float);
void serfsp(LOGICAL32*,float*,float*,float*,float*);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void sinits(float[],long,float,long*);