PARAMETER (MLEVL=100,LCTYP=1,LCOPD=512,LOPER=6)
      COMMON /STACK/ CTYP(MLEVL),COPD(MLEVL),COPT(MLEVL)
      COMMON /STACK1/NLEVL,IPOP(MLEVL),IPOS(MLEVL),LOPD(MLEVL)
      CHARACTER*(LCTYP) CTYP
      CHARACTER*(LCOPD) COPD
      CHARACTER*(LOPER) COPT