C ESEINT    SOURCE    CHAT      05/01/12    23:45:31     5004           
C
C
      SUBROUTINE ESEINT(IO,LABEL,IENTIE,NBI)
C     *****************************************************************
C     OBJET  : ECRIT UN OU PLUSIEURS ENTIER(S) SUR LE STANDARD OUTPUT
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      CHARACTER*(*) LABEL
      INTEGER IO
      INTEGER IENTIE(*),NBI
C
      INTEGER    IECR,J
      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)),(IENTIE(J),J=1,NBI)     
      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
  999 END