# define IMPAIRE(a)	(((a) & 1) ? TRUE : FALSE)
# define JOG_LENGTH(a)  ((long ) (IMPAIRE(a) ? ((a+1) >> 2) : ((a) >> 2)))
# define MINJOG_LENGTH ((long ) 1)
# define LEADPATTERN   6     
extern long EndPattern;
long TabRout[MAXCOL][MAXLINE]; 

BOOLEAN TOPNOTROUT, BOTNOTROUT;

#define PREVHNET(I)   TabRout[0][I]
#define HNET(I)       TabRout[1][I]
#define SPLIT(I)      TabRout[2][I]
#define SFRT(I)       TabRout[3][I] 
#define WEIGHT(I)     TabRout[4][I] 
#define VNET(I)       TabRout[5][I] 
#define COMBI(I,J)    TabRout[I][J]
#define TOP           TabRout[1][0] 
#define BOTTOM(I)     TabRout[1][I]  

#define SNC           ((long ) 1000)
#define TERMINAL      ((long ) 0)    
#define NOTTERMINAL   ((long ) 1)
#define STEADY        ((long ) 2)
#define FALLING       ((long ) 3)
#define RISING        ((long ) 4)
