float sbesj1(float);
void sbmp1(float,float*,float*);
float scsevl(float,float[],long);
void sinits(float[],long,float,long*);