float scpval(float[],long,float);
float ssi(float);