BLOCK DATA
C     EDIT DATE   19AUG78  08:07
C     SOURCE FILE OBJECTAJH.IN
C     AUTHOR      A. J. HOWARD
C     CLUSTER     90
      INTEGER  AREAID (15), BCARD (41)
      INTEGER  RWORD1, RWORD2, RWORD3, RWORD (3)
      INTEGER  BTYPE
      INTEGER  EXTDX, ERRFLG
      INTEGER  NEWLCI
      INTEGER  OFFSET, OW
      INTEGER  RBITS, RCT
      INTEGER  TWI
      INTEGER  WF
      COMMON   /OBJCOM/ AREAID, BCARD, RWORD
      COMMON   /OBJCOM/ BTYPE
      COMMON   /OBJCOM/ EXTDX
      COMMON   /OBJCOM/ OFFSET, OW
      COMMON   /OBJCOM/ RBITS
      COMMON   /OBJCOM/ TWI
      COMMON   /OBJCOM/ WF
      EQUIVALENCE (RWORD1, RWORD (1))
      EQUIVALENCE (RWORD2, RWORD (2))
      EQUIVALENCE (RWORD3, RWORD (3))
      DATA OFFSET /0/
      END