C     EDIT DATE   09OCT78  11:11
C     SOURCE FILE BRACEFTM.IN
C     AUTHOR      F. T. MICKEY
C     CLUSTER     X
      INTEGER     BRACEX, SELX,    LSX,     SELXB
      INTEGER     FUNCNT, FSCNT,   FRCNT,   FUNVAL
      INTEGER     NRFLS,  ARGSIZ,  PARCNT
      INTEGER     BSTACK (10), SUBENT (40)
      INTEGER     FLS (6),     PARSAV,      FLSAVE (6)
C     EQUIVALENCES FOR LOOP AND WHILE STACK
      INTEGER     WHSTRT (30), WHLOW (10), WHHIGH (10)
      INTEGER     LOOPT  (10), LOOPE (10),  LOOPF (10)
      EQUIVALENCE (WHSTRT, LOOPT)
      EQUIVALENCE (WHLOW,  LOOPE, WHSTRT (11))
      EQUIVALENCE (WHHIGH, LOOPF, WHSTRT (21))
      COMMON   /BRACE/  BRACEX, SELX,   LSX,    SELXB
      COMMON   /BRACE/  FUNCNT, FSCNT,  FRCNT,  FUNVAL
      COMMON   /BRACE/  NRFLS,  ARGSIZ, PARCNT
      COMMON   /BRACE/  WHSTRT, BSTACK, SUBENT
      COMMON   /BRACE/  FLS,    PARSAV, FLSAVE