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