Télécharger la plaquette Cast3M


fr en

Télécharger eclmot.eso

Retour à la liste

Numérotation des lignes : 

eclmot

  1. C ECLMOT    SOURCE    CB215821  21/10/29    21:15:06     11157          
  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.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. -INC SMLMOTS
  40. *
  41.       MLMOTS = IPMOTS
  42.       SEGACT,MLMOTS
  43.       LONG = MOTS(/2)
  44.       LARG = MOTS(/1)
  45.       INTERR(1)=MLMOTS
  46.       INTERR(2)=LONG
  47.       INTERR(3)=LARG
  48.       CALL ERREUR(-109)
  49.  
  50.  
  51. *
  52.       WRITE (IOIMP,2010) LONG
  53.  2010 FORMAT (/,' NOMBRE DE MOTS =',I4,/)
  54.       IF (LONG .GT. 0) THEN
  55.          IF(LARG.LE.4) THEN
  56.             WRITE (IOIMP,2019) (MOTS(I),I=1,LONG)
  57.  2019       FORMAT (20(2X,A4) )
  58.          ELSEIF(LARG.LE.8) THEN
  59.             WRITE (IOIMP,2020) (MOTS(I),I=1,LONG)
  60.  2020       FORMAT (12(2X,A8) )
  61.          ELSEIF(LARG.LE.16) THEN
  62.             WRITE (IOIMP,2021) (MOTS(I),I=1,LONG)
  63.  2021       FORMAT (7(2X,A16) )
  64.          ELSEIF(LARG.LE.24) THEN
  65.             WRITE (IOIMP,2022) (MOTS(I),I=1,LONG)
  66.  2022       FORMAT (5(2X,A24) )
  67.          ELSEIF(LARG.LE.32) THEN
  68.             WRITE (IOIMP,2023) (MOTS(I),I=1,LONG)
  69.  2023       FORMAT (3(2X,A32) )
  70.          ELSEIF(LARG.LE.54) THEN
  71.             WRITE (IOIMP,2024) (MOTS(I),I=1,LONG)
  72.  2024       FORMAT (2(2X,A54) )
  73.          ELSEIF(LARG.LE.100) THEN
  74.             WRITE (IOIMP,2025) (MOTS(I),I=1,LONG)
  75.  2025       FORMAT (2X,A100 )
  76.          ELSE
  77.             WRITE (IOIMP,2026) (MOTS(I),I=1,LONG)
  78.  2026       FORMAT (2X,A512 )
  79.          ENDIF
  80.       END IF
  81. *
  82.       SEGDES,MLMOTS
  83. *
  84.       END
  85.  
  86.  
  87.  

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