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