C     EDIT DATE   14SEP78  15:09
C     SOURCE FILE SETCOMJHP.IN
C     AUTHOR      J H P
C     CLUSTER     X
      INTEGER     LDAZP, LDAABS, LDAIMM
      INTEGER     LDAABY, LDAINY
      INTEGER     LDYZP, LDYABS, LDYIMM
      INTEGER     SETNLX
      INTEGER     TS1, TS2
      INTEGER     SOPC, SWF, SWFOPN
      INTEGER     SETSTX, SSUBX, STBIAS
      INTEGER     STMODE, SSUBXB, SSUBXM
      INTEGER     SSUBOP, SWFSUB
      INTEGER     SLEFT, SRIGHT, SCTN
      LOGICAL     ZPFLAG, STLOC
      COMMON   /SCOM/   LDAZP, LDAABS, LDAIMM
      COMMON   /SCOM/   LDAABY, LDAINY
      COMMON   /SCOM/   LDYZP, LDYABS, LDYIMM
      COMMON   /SCOM/   SETNLX
      COMMON   /SCOM/   TS1, TS2
      COMMON   /SCOM/   SOPC, SWF, SWFOPN
      COMMON   /SCOM/   SETSTX, SSUBX, STBIAS
      COMMON   /SCOM/   STMODE, SSUBXB, SSUBXM
      COMMON   /SCOM/   SSUBOP, SWFSUB
      COMMON   /SCOM/   SLEFT, SRIGHT, SCTN
      COMMON   /SCOM/   ZPFLAG, STLOC