Télécharger inser3.eso

Retour à la liste

Numérotation des lignes :

  1. C INSER3 SOURCE CHAT 05/01/13 00:38:50 5004
  2. SUBROUTINE INSER3 (MLMOTS,IEME,LEMOT)
  3. ************************************************************************
  4. *
  5. * I N S E R 3
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * INSERER UN ELEMENT EN I-EME POSITION (ET NON PAS APRES LA I-EME
  12. * POSITION) DANS UN OBJET DE TYPE 'LISTMOTS'.
  13. *
  14. * MODE D'APPEL:
  15. * -------------
  16. *
  17. * CALL INSER3 (IPOINT,IEME,LEMOT)
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  20. * -----------
  21. *
  22. * MLMOTS ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTMOTS".
  23. * IEME ENTIER (E) POSITION D'INSERTION DE L'ELEMENT DANS
  24. * L'OBJET DE TYPE "LISTMOTS".
  25. * LEMOT ENTIER (E) ELEMENT INSERE (CHAINE DE 4 CARACTERES).
  26. *
  27. * SOUS-PROGRAMMES APPELES:
  28. * ------------------------
  29. *
  30. * ERREUR
  31. *
  32. * AUTEUR, DATE DE CREATION:
  33. * -------------------------
  34. *
  35. * PASCAL MANIGOT 6 DECEMBRE 1984
  36. *
  37. * LANGAGE:
  38. * --------
  39. *
  40. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  41. *
  42. ************************************************************************
  43. *
  44. IMPLICIT INTEGER(I-N)
  45.  
  46. -INC PPARAM
  47. -INC CCOPTIO
  48. -INC SMLMOTS
  49. CHARACTER*(*) LEMOT
  50. *
  51. SEGACT,MLMOTS
  52. LDIM = MOTS(/2)
  53. LDIM1 = LDIM + 1
  54. JGM=LDIM1
  55. JGN=MOTS(/1)
  56. SEGADJ MLMOTS
  57. *
  58. *
  59. *
  60. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  61. IF ( IEME .LT .LDIM1) THEN
  62. DO 110 I= LDIM , IEME , -1
  63. MLMOTS.MOTS(I + 1 ) = MLMOTS.MOTS(I)
  64. 110 CONTINUE
  65. ENDIF
  66. MLMOTS.MOTS(IEME) = LEMOT
  67. ELSE
  68. *
  69. INTERR(1) = IEME
  70. NUMERR = 36
  71. CALL ERREUR (NUMERR)
  72. *
  73. END IF
  74. *
  75. SEGDES,MLMOTS
  76. *
  77. END
  78.  
  79.  

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