*+
*  Name:
*     EMS_PAR

*  Purpose:
*     Define the EMS_ public constants.

*  Language:
*     Starlink Fortran 77

*  Type of module:
*     Global constants include file.

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

*  Copyright:
*     Copyright (C) 1990, 1992, 1993 Science & Engineering Research Council.
*     Copyright (C) 2001 Central Laboratory of the Research Councils.
*     All Rights Reserved.

*  Licence:
*     This program is free software; you can redistribute it and/or
*     modify it under the terms of the GNU General Public License as
*     published by the Free Software Foundation; either version 2 of
*     the License, or (at your option) any later version.
*
*     This program is distributed in the hope that it will be
*     useful,but WITHOUT ANY WARRANTY; without even the implied
*     warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
*     PURPOSE. See the GNU General Public License for more details.
*
*     You should have received a copy of the GNU General Public License
*     along with this program; if not, write to the Free Software
*     Foundation, Inc., 51 Franklin Street,Fifth Floor, Boston, MA
*     02110-1301, USA

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

*  History:
*     24-JAN-1990 (PCTR):
*        Original version adapted from MSG_SYS.
*     25-SEP-1990 (PCTR):
*        Added EMS__SZPAR.
*     25-AUG-1992 (PCTR):
*        Added EMS__MXOUT.
*     8-DEC-1993 (PCTR):
*        Moved EMS__MXMSG from EMS_SYS.
*     22-MAR-2001 (AJC):
*        Add EMS__BASE
*     {enter_further_changes_here}

*-

*  Global Constants:
      INTEGER EMS__MXMSG                ! Maximum number of messages
      PARAMETER( EMS__MXMSG = 32 )

      INTEGER EMS__MXOUT                ! Maximum length of output text
      PARAMETER( EMS__MXOUT = 133 )

      INTEGER EMS__SZMSG                ! Maximum length of error message text
      PARAMETER ( EMS__SZMSG = 200 )

      INTEGER EMS__SZPAR                ! Maximum length of error message name
      PARAMETER ( EMS__SZPAR = 15 )

      INTEGER EMS__SZTOK                ! Maximum length of message token text
      PARAMETER( EMS__SZTOK = 200 )

      INTEGER EMS__BASE                 ! Base context number
      PARAMETER ( EMS__BASE = 1 )

      CHARACTER EMS__TOKEC              ! Message token escape character
      PARAMETER( EMS__TOKEC = '^' )

*.
