void ddasf(double,double[],double[],double[],double[],long,double,
	long,double[],long[]);
void mess(long[],CHAR_INT,long[]);