void ssdif(long,long,float[],float[],long,float*);
void sstop(long,long,float[],float[],float*,long*,float[],
	float*);
void ssvala(long,long,float[],long,float*,float,float[]);