BLOCK DATA
    
      INTEGER     MSTACK(30), MX, MSTKSZ
      COMMON      /STACKS/ MSTACK, MX, MSTKSZ   
      DATA     MX /1/   
      DATA     MSTKSZ /30/  
      END