Esope source files

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