void dilup(double,double*,long,double[],double[],long,long*,
	long[],double[]);
void dilupm(long,double[],double*,long[],double[],double[],long[],
	long[],long[],double[]);
void dmess(long[],CHAR_INT,long[],double[]);
void mess(long[],CHAR_INT,long[]);
void optchk(long[],long[],STRING);