float spval(long,long,float[],float*,float,long);
void ssfind(float[],long,long,float,long*,long*);