*+
*  Name:
*     EMS_SYS

*  Purpose:
*     Define the EMS_ private constants.

*  Language:
*     Starlink Fortran 77

*  Type of module:
*     Global constants include file.

*  Description:
*     This file contains the definitions of the global constants used 
*     internally by the EMS_ system.

*  Authors:
*     PCTR: P.C.T. Rees (STARLINK)
*     {enter_new_authors_here}

*  History:
*     24-JAN-1990 (PCTR):
*        Original version adapted from ERR_SYS and MSG_SYS.
*     8-DEC--1993 (PCTR):
*        Added EMS__VERSN and moved EMS__MXMSG to EMS_PAR.
*     {Enter_further_changes_here}

*-

*  Global Constants:
      INTEGER EMS__BASE                 ! Base error reporting level
      PARAMETER( EMS__BASE = 1 )

      INTEGER EMS__MXLEV                ! Maximum context level
      PARAMETER( EMS__MXLEV = 256 )

      INTEGER EMS__MXTOK                ! Maximum number of tokens
      PARAMETER( EMS__MXTOK = 64 )

      INTEGER EMS__SZFMT                ! Size of FORMAT text
      PARAMETER( EMS__SZFMT = 200 )

      INTEGER EMS__SZNAM                ! Size of message token name
      PARAMETER( EMS__SZNAM = 15 )

      INTEGER EMS__SZOUT                ! Size of an output string
      PARAMETER( EMS__SZOUT = 79 )

      CHARACTER * 5 EMS__VERSN          ! EMS version number
      PARAMETER( EMS__VERSN = '1.3-0' )

*.
