void smess(long[],CHAR_INT,long[],float[]);
void sxrk8g(float[],float[],float[],long[]);
void sxrk8i(float,float[],long[],float[]);
void szero(float*,float*,float*,float*,long*,float);