C     EDIT DATE   22MAR78  11:09
C     SOURCE FILE   CRUCOMJHP.IN
C     AUTHOR        J.H.PERINE
C     DEFINE OP CODE TABLES IN COMMON FOR CRUTCH & LIST
      INTEGER  GROUP1
      INTEGER  IMPLID
      INTEGER  NGROUP
      INTEGER  NIMPLI
      INTEGER  NOTHER
      INTEGER  NRELTI
      INTEGER  OTHERS
      INTEGER  RELTIV
      INTEGER  STAX
      INTEGER  CSOW
      INTEGER  CSWFA
      INTEGER  CSOFF
      INTEGER  CSNLX
      INTEGER  CSWFB
      COMMON   /CRUCH/  GROUP1 (24)
      COMMON   /CRUCH/  IMPLID (75)
      COMMON   /CRUCH/  NGROUP
      COMMON   /CRUCH/  NIMPLI
      COMMON   /CRUCH/  NOTHER
      COMMON   /CRUCH/  NRELTI
      COMMON   /CRUCH/  OTHERS (165)
      COMMON   /CRUCH/  RELTIV (24)
      COMMON   /CRUCH/  STAX
      COMMON   /CRUCH/  CSOW, CSWFA, CSOFF, CSNLX, CSWFB