*+
*  Name:
*     EMSTK_CMN

*  Purpose:
*     Define the message token table.

*  Language:
*     Starlink Fortran 77

*  Type of module:
*     Global variables include file.

*  Description:
*     Define the common blocks holding the message token table for the 
*     EMS_ subroutine library.

*  Authors:
*     SLW: Sid Wright (UCL)
*     PCTR: P.C.T. Rees (STARLINK)
*     {enter_new_authors_here}

*  History:
*     1983 (SLW):
*        Original version.
*     13-SEP-1989 (PCTR):
*        Added prologue and improved layout.
*     7-DEC-1989 (PCTR):
*        EMS_ version taken from MSGTK_CMN.
*     23-OCT-1990 (PCTR):
*        Added TOKLEV pointer.
*     19-JUN-1991 (PCTR):
*        Added token persistence flag.
*     {enter_further_changes_here}


*-

*  Common Blocks:
      INTEGER TOKLEV                  ! Token context level
      INTEGER TOKMRK                  ! Number of markers
      INTEGER TOKCNT( EMS__MXLEV )    ! Number of messages in table
      INTEGER TOKHIW( EMS__MXLEV )    ! Token table high water mark
      INTEGER TOKLEN( EMS__MXTOK )    ! Token string lengths

      COMMON /EMSTK1/ TOKLEV, TOKMRK, TOKCNT, TOKHIW, TOKLEN

      CHARACTER * ( EMS__SZNAM ) TOKNAM( EMS__MXTOK ) ! Token names
      CHARACTER * ( EMS__SZTOK ) TOKSTR( EMS__MXTOK ) ! Token strings

      COMMON /EMSTK2/ TOKNAM, TOKSTR

*.
