BLOCK DATA 
 
      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) 
      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)) 
      DATA  BRACEX   /1/ 
      DATA  SELX     /1/ 
      DATA  LSX      /2/ , WHSTRT   /30*0/ 
      DATA  SELXB    /1/ 
      DATA  NRFLS    /6/ 
      END