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