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. -INC CCOPTIO
  46. -INC SMLMOTS
  47. CHARACTER*(*) LEMOT
  48. *
  49. SEGACT,MLMOTS
  50. LDIM = MOTS(/2)
  51. LDIM1 = LDIM + 1
  52. JGM=LDIM1
  53. JGN=MOTS(/1)
  54. SEGADJ MLMOTS
  55. *
  56. *
  57. *
  58. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  59. IF ( IEME .LT .LDIM1) THEN
  60. DO 110 I= LDIM , IEME , -1
  61. MLMOTS.MOTS(I + 1 ) = MLMOTS.MOTS(I)
  62. 110 CONTINUE
  63. ENDIF
  64. MLMOTS.MOTS(IEME) = LEMOT
  65. ELSE
  66. *
  67. INTERR(1) = IEME
  68. NUMERR = 36
  69. CALL ERREUR (NUMERR)
  70. *
  71. END IF
  72. *
  73. SEGDES,MLMOTS
  74. *
  75. END
  76.  
  77.  

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