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