void mess(long[],CHAR_INT,long[]);
void scopy(long,float[],long,float[],long);
void sinta(float*,float[],long[]);
void sintf(float*,float[],long[]);
void sintma(float*,float[],long[]);