*+
*  Name:
*     ERR_SYS

*  Purpose:
*     Define the ERR_ 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 ERR_ system.

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

*  History:
*     10-JUN-1991 (PCTR):
*        Original version.
*     25-JUN-1991 (PCTR):
*        Added new constant for ADAM error stream attribute.
*     {enter_further_changes_here}

*-

*  Global Constants:
      LOGICAL ERR__NEWFL                ! Create a new error file
      PARAMETER( ERR__NEWFL = .TRUE. )

      LOGICAL ERR__NOBEL                ! Do not send a bell character
      PARAMETER( ERR__NOBEL = .FALSE. )

      INTEGER ERR__MXUNT                ! Maximum allowed logical unit
      PARAMETER( ERR__MXUNT = 119 )

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

*.
