*+
*  Name:
*     EMSTB_CMN

*  Purpose:
*     Define the error message table.

*  Language:
*     Starlink Fortran 77

*  Type of module:
*     Global variables include file.

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

*  Authors:
*     SLW: Sid Wright (UCL)
*     RFWS: R.F. Warren-Smith (STARLINK)
*     PCTR: P.C.T. Rees (STARLINK)
*     {enter_new_authors_here}

*  History:
*     1984 (SLW):
*        Original version.
*     20-JUN-1989 (RFWS):
*        Added prologue and improved layout.
*     11-SEP-1989 (PCTR):
*        Completed code tidy-up.
*     7-DEC-1989 (PCTR):
*        EMS_ version taken from ERRTB_CMN.
*     25-SEP-1990 (PCTR):
*        Added MSGPAR, MSGPLN arrays.
*     23-OCT-1990 (PCTR):
*        Corrected declared size of MSGCNT, added MSGLEV pointer.
*     16-JAN-1991 (PCTR):
*        Added MSGLST and MSGDEF variables.
*     14-AUG-1991 (PCTR):
*        Added MSGBGS for EMS_BEGIN/EMS_END.
*     8-JUN-1992 (PCTR):
*        Added MSGSTT and MSGRVT for EMS_TUNE global variables.
*     6-DEC-1993 (PCTR):
*        Added MSGSLT for EMS_TUNE global variables.
*     {enter_further_changes_here}

*-

*  Common Blocks:
      INTEGER MSGDEF                    ! Default error reporting context
      INTEGER MSGLEV                    ! Error context level
      INTEGER MSGLST                    ! Last reported status (level 1 only)
      INTEGER MSGMRK                    ! Number of markers
      INTEGER MSGCNT( EMS__MXLEV )      ! Number of messages in table by level
      INTEGER MSGPLN( EMS__MXMSG )      ! Error parameter string lengths
      INTEGER MSGLEN( EMS__MXMSG )      ! Error message string lengths
      INTEGER MSGSTA( EMS__MXMSG )      ! Status values with messages

      COMMON / EMSTB1 / MSGDEF, MSGLEV, MSGLST, MSGMRK, 
     :                 MSGCNT, MSGPLN, MSGLEN, MSGSTA

      CHARACTER * ( EMS__SZPAR ) MSGPAR( EMS__MXMSG ) ! Error parameter strings

      COMMON / EMSTB2 / MSGPAR

      CHARACTER * ( EMS__SZMSG ) MSGSTR( EMS__MXMSG ) ! Error message strings

      COMMON / EMSTB3 / MSGSTR

      INTEGER MSGBGS( EMS__MXLEV )      ! Given status values to EMS_BEGIN

      COMMON / EMSTB4 / MSGBGS

      LOGICAL MSGRVT                    ! Whether EMS tuning is REVEAL
      LOGICAL MSGSLT                    ! Whether EMS tuning is SILENT
      LOGICAL MSGSTT                    ! Whether EMS tuning is STREAM

      COMMON / EMSTB5 / MSGRVT, MSGSLT, MSGSTT

*.
