void sxrk8f(float*,float[],float[],long[]);