void scpdrv(float[],long,float[],long*);
void scpint(float[],long,float[],long*);
float scpval(float[],long,float);