void mess(long[],CHAR_INT,long[]);
void messft(long[],STRING);
void sivadb(long,float[],float[],float[],long[],STRING);
void smess(long[],CHAR_INT,long[],float[]);