void sprpl(float,byte,byte[],long,float,float,LOGICAL32);
void ssdif(long,long,float[],float[],long,float*);
void ssfitc(byte[][5],float[],float[],float[],long,long,float[],float[],float*,
      long[],long[],float[]);
float ssval(long,long,float[],float[],float,long);
void ssvala(long,long,float[],long,float*,float,float[]);