Esope source files

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