void divadb(long,double[],double[],double[],long[],STRING);
void dmess(long[],CHAR_INT,long[],double[]);
void mess(long[],CHAR_INT,long[]);
void messft(long[],STRING);