float spquad(long,long,float[],float*,float,float);
void sprpl(float,byte,byte[],long,float,float,LOGICAL32);
float spval(long,long,float[],float*,float,long);
void ssfit(float[],float[],float[],long,long,long,float[],float[],float*,long*,
      long,float*);
float ssquad(long,long,float[],float[],float,float);
void sstop(long,long,float[],float[],float*,long*,float[],float*);
float ssval(long,long,float[],float[],float,long);