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