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