void mess(long[],CHAR_INT,long[]);
void xerbla(STRING,long);