Télécharger eseint.eso

Retour à la liste

Numérotation des lignes :

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

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