C     EDIT DATE   16NOV78  10:36
C     SOURCE FILE CPAREAJH.IN
C     AUTHOR      A. J. HOWARD
      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