void dmess(long[],CHAR_INT,long[],double[]);
void dspge(long,long[],long[],double[],double[],double[]);
void mess(long[],CHAR_INT,long[]);