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