void mess(long[],CHAR_INT,long[]);
void messft(long[],STRING);
void smatpr(float*,long,long,long,STRING,long,long,
	long);
void smess(long[],CHAR_INT,long[],float[]);