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)
      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
      EQUIVALENCE (WHSTRT, LOOPT) 
      EQUIVALENCE (WHLOW,  LOOPE, WHSTRT (11)) 
      EQUIVALENCE (WHHIGH, LOOPF, WHSTRT (21))