common /cstack/ sp # stack pointer for parser. integer*2 sp