void mess(long[],CHAR_INT,long[]);
void silupmd(long,float[],float,long[],float[],float[],long[],
	long[],long[],float[]);
void smess(long[],CHAR_INT,long[],float[]);