BLOCK DATA 
 
      INTEGER  PLEVEL, STOPS (20) 
      INTEGER  CNLSID (9), CNLTLI (9), CNLEND (9) 
      INTEGER  CLX, CPLOC (30) 
      INTEGER  NESTX, PNESTX 
      INTEGER  RELLEV, RELCNT, TRUEF 
      LOGICAL  RELPAS 
      INTEGER  CMPFLG 
      INTEGER  ILB 
      INTEGER  BRCT, BROK, TNESTX 
      COMMON   /COMP/   PLEVEL, STOPS 
      COMMON   /COMP/   CNLSID, CNLTLI, CNLEND 
      COMMON   /COMP/   CLX, CPLOC 
      COMMON   /COMP/   NESTX, PNESTX 
      COMMON   /COMP/   RELLEV, RELCNT, TRUEF 
      COMMON   /COMP/   RELPAS 
      COMMON   /COMP/   CMPFLG 
      COMMON   /COMP/   ILB 
      COMMON   /COMP/   BRCT, BROK, TNESTX 
      DATA     NESTX    / 1/ 
      DATA     PNESTX   / 1/ 
      DATA     CLX      / 2/ 
      DATA     BRCT     / 0/ 
      DATA     BROK     / 0/ 
      END