Télécharger esecha.eso

Retour à la liste

Numérotation des lignes :

  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.  
  35.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales