float scsevl(float,float[],long);
float sgam1(float);
float sgamma(float);
void sinits(float[],long,float,long*);
float srcomp(float,float);
float srlog(float);
float sxparg(long);