Esope source files

   1 : C ESEINT    SOURCE    CHAT      05/01/12    23:45:31     5004           
   2 : C
   3 : C
   4 :       SUBROUTINE ESEINT(IO,LABEL,IENTIE,NBI)
   5 : C     *****************************************************************
   6 : C     OBJET  : ECRIT UN OU PLUSIEURS ENTIER(S) SUR LE STANDARD OUTPUT
   7 : C     *****************************************************************
   8 :       IMPLICIT INTEGER(I-N)
   9 :       CHARACTER*(*) LABEL
  10 :       INTEGER IO
  11 :       INTEGER IENTIE(*),NBI
  12 : C
  13 :       INTEGER    IECR,J
  14 :       PARAMETER (IECR = 6)
  15 :       INTEGER    ESLGCH
  16 :       EXTERNAL   ESLGCH
  17 : C
  18 :       IF( IO.EQ. 1 )THEN
  19 : C     --- STANDARD INPUT --- 
  20 :         WRITE ( UNIT = IECR, FMT = *, ERR = 999) 
  21 :      >        LABEL(:ESLGCH(LABEL)),(IENTIE(J),J=1,NBI)     
  22 :       ELSE
  23 :         IF( IO .EQ. 2 )THEN
  24 : C       --- ECRITURE DANS UN FICHIER ESPION ---
  25 :         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'   
  26 :         ELSE
  27 :           IF( IO.EQ. 3 )THEN
  28 : C         --- AFFICHAGE VIA INTERFACE GRAPHIQUE ---
  29 :         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'   
  30 :           ENDIF
  31 :         ENDIF
  32 :       ENDIF
  33 : C
  34 :   999 END
  35 :  
  36 :