void saccum(float*,long,long,float*,long,long,long*,long,long*);
void scopy(long,float[],long,float[],long);
void shfti(float*,long,long,long,float*,long,long,float,long*,float[],float[],
      long[]);
float smpval(float[],long,float);