 
 # -cmacro- common block
 # put on a file called 'cmacro'
 # Used only by the macro tool
 
 common /cmacro/ cp, ep, evalst(EVALSIZE), defcnt, defstk(DEFSTACKSIZE)
    integer cp         # current call stack pointer
    integer ep         # next free position in evalst
    character evalst   # evaluation stack
    logical defcnt     # depth of _ifdef nesting
    logical defstk     # remembers status of _ifdef levels

 common /cmacro/ ap, argstk(ARGSIZE), callst(CALLSIZE), plev(CALLSIZE)
    integer ap	       # pointer to next available space in argstk
    integer argstk     # pointers to evalst
    integer callst     # points to invocation frames in argstk
    integer plev       # parenthesis level at current invocation frame

