Télécharger eclmot.eso

Retour à la liste

Numérotation des lignes :

  1. C ECLMOT SOURCE CHAT 05/01/12 23:23:31 5004
  2. SUBROUTINE ECLMOT (IPMOTS)
  3. ************************************************************************
  4. *
  5. * E C L M O T
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * IMPRESSION D'UN OBJET 'LISTMOTS'.
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL ECLMOT (IPMOTS)
  17. *
  18. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  19. * -----------
  20. *
  21. * IPMOTS ENTIER (E) POINTEUR SUR L'OBJET DE TYPE 'LISTMOTS'.
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. *
  26. * PASCAL MANIGOT 26 OCTOBRE 1984
  27. *
  28. * LANGAGE:
  29. * --------
  30. *
  31. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  32. *
  33. ************************************************************************
  34. *
  35. IMPLICIT INTEGER(I-N)
  36. -INC CCOPTIO
  37. -INC SMLMOTS
  38. *
  39. MLMOTS = IPMOTS
  40. SEGACT,MLMOTS
  41. LONG = MOTS(/2)
  42. LARG=MOTS(/1)
  43. INTERR(1)=MLMOTS
  44. INTERR(2)=LONG
  45. INTERR(3)=LARG
  46. CALL ERREUR(-109)
  47.  
  48.  
  49. *
  50. WRITE (IOIMP,2010) LONG
  51. 2010 FORMAT (/,' NOMBRE DE MOTS =',I4,/)
  52. IF (LONG .GT. 0) THEN
  53. IF(LARG.LE.4) THEN
  54. WRITE (IOIMP,2019) (MOTS(I),I=1,LONG)
  55. 2019 FORMAT (20(2X,A4) )
  56. ELSEIF(LARG.LE.8) THEN
  57. WRITE (IOIMP,2020) (MOTS(I),I=1,LONG)
  58. 2020 FORMAT (12(2X,A8) )
  59. ELSEIF(LARG.LE.16) THEN
  60. WRITE (IOIMP,2021) (MOTS(I),I=1,LONG)
  61. 2021 FORMAT (7(2X,A16) )
  62. ELSEIF(LARG.LE.24) THEN
  63. WRITE (IOIMP,2022) (MOTS(I),I=1,LONG)
  64. 2022 FORMAT (5(2X,A24) )
  65. ELSEIF(LARG.LE.32) THEN
  66. WRITE (IOIMP,2023) (MOTS(I),I=1,LONG)
  67. 2023 FORMAT (3(2X,A32) )
  68. ELSEIF(LARG.LE.54) THEN
  69. WRITE (IOIMP,2024) (MOTS(I),I=1,LONG)
  70. 2024 FORMAT (2(2X,A54) )
  71. ELSEIF(LARG.LE.100) THEN
  72. WRITE (IOIMP,2025) (MOTS(I),I=1,LONG)
  73. 2025 FORMAT (2X,A100 )
  74. ENDIF
  75. END IF
  76. *
  77. SEGDES,MLMOTS
  78. *
  79. END
  80.  
  81.  

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