C ESERRO    SOURCE    CHAT      06/03/29    21:20:39     5360
C
C
      SUBROUTINE ESERRO(IO,NUM,MODULE,IMESS)
C     *****************************************************************
C     OBJET  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      CHARACTER*(*) IMESS,MODULE
      INTEGER NUM
      INTEGER IO
C
      IF( NUM .EQ. -1 )THEN
        CALL ESECHA(IO,
     >      'ERR -1  DONNEES INCORRECTES DANS :',MODULE)
      ELSE
        IF( NUM .EQ. -2 )THEN
          CALL ESECHA(IO,
     >         'ERR -2  PROBLEME MEMOIRE DANS :',MODULE)
        ELSE
          IF( NUM .EQ. -3 )THEN
            CALL ESECHA(IO,
     >           'ERR -3  NON ENCORE IMPLEMENTE DANS :',MODULE)
          ELSE
            PRINT *,NUM
          ENDIF
        ENDIF
      ENDIF
      call erreur(21)
      CALL ESECHA(IO,IMESS,' ')
      END