C     EDIT DATE   14SEP78  13:22
C     SOURCE FILE SETEQUAJH.IN
C     AUTHOR      A. J. HOWARD
      INTEGER     LNAMEX, LMODE, LOPC, LWFOP, LWFOPN
      INTEGER     RNAMEX, RMODE, ROPC, RWFOP, RWFOPN
      EQUIVALENCE (LNAMEX, NAMEX  (19))
      EQUIVALENCE (LMODE,  MODE   (19))
      EQUIVALENCE (LOPC,   OPCODE (19))
      EQUIVALENCE (LWFOP,  WFOP   (19))
      EQUIVALENCE (LWFOPN, WFOPND (19))
      EQUIVALENCE (RNAMEX, NAMEX  (20))
      EQUIVALENCE (RMODE,  MODE   (20))
      EQUIVALENCE (ROPC,   OPCODE (20))
      EQUIVALENCE (RWFOP,  WFOP   (20))
      EQUIVALENCE (RWFOPN, WFOPND (20))