C ESECHA    SOURCE    CHAT      05/01/12    23:45:27     5004           
C
      SUBROUTINE ESECHA(IO,LABEL,NOM)
C     *****************************************************************
C     OBJET  : ECRIT UNE CHAINE SUR LE STANDARD OUTPUT
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      CHARACTER*(*) NOM,LABEL
      INTEGER IO
C
      INTEGER    IECR
      PARAMETER (IECR = 6)
      INTEGER    ESLGCH
      EXTERNAL   ESLGCH
C
      IF( IO.EQ. 1 )THEN
C     --- STANDARD INPUT --- 
        WRITE ( UNIT = IECR, FMT = *, ERR = 999) 
     >  LABEL(:ESLGCH(LABEL)),NOM(:ESLGCH(NOM))
      ELSE
        IF( IO .EQ. 2 )THEN
C       --- ECRITURE DANS UN FICHIER ESPION ---
        WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'   
        ELSE
          IF( IO.EQ. 3 )THEN
C         --- AFFICHAGE VIA INTERFACE GRAPHIQUE ---
        WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'   
          ENDIF
        ENDIF
      ENDIF
C   10 FORMAT(A)
  999 END