C cstack.inc
C
C CSTACK structure
C
      INTEGER CSTKSI
      PARAMETER (CSTKSI=2*MAX_ATOM)
C
      INTEGER CLSTUS,CMAXUS
      CHARACTER*4 CSTACK(CSTKSI)
C
      COMMON /CSTACK/ CLSTUS,CMAXUS
      COMMON /CCSTAC/ CSTACK
      SAVE /CSTACK/
      SAVE /CCSTAC/