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