void sc2fit(float[],float[],float[],long,float[],long,float*,long,float[],float[],
      float*,long*);
float shint(float,long,long,float[],float[],float[]);