Télécharger inser7.eso

Retour à la liste

Numérotation des lignes :

  1. C INSER7 SOURCE CHAT 05/01/13 00:39:00 5004
  2. SUBROUTINE INSER7 (MLMOTS,IEME,LEMOT,MLMOT1)
  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. * MLMOT1 ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTMOTS".
  27. *
  28. * SOUS-PROGRAMMES APPELES:
  29. * ------------------------
  30. *
  31. * ERREUR
  32. *
  33. * AUTEUR, DATE DE CREATION:
  34. * -------------------------
  35. *
  36. * PASCAL MANIGOT 6 DECEMBRE 1984
  37. *
  38. * LANGAGE:
  39. * --------
  40. *
  41. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  42. *
  43. ************************************************************************
  44. *
  45. IMPLICIT INTEGER(I-N)
  46. -INC CCOPTIO
  47. -INC SMLMOTS
  48. CHARACTER*(*) LEMOT
  49. *
  50. SEGACT,MLMOTS
  51. LDIM = MOTS(/2)
  52. LDIM1 = LDIM + 1
  53. *
  54. *
  55. *
  56. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  57. JGM=LDIM1
  58. JGN=MOTS(/1)
  59. SEGINI MLMOT1
  60. MLMOT1.MOTS(IEME) = LEMOT
  61. IF ( IEME .GT . 1 ) THEN
  62. DO 100 I=1 ,(IEME-1)
  63. MLMOT1.MOTS(I) = MLMOTS.MOTS(I)
  64. 100 CONTINUE
  65. ENDIF
  66. IF ( IEME .LT .LDIM1) THEN
  67. DO 110 I= IEME , LDIM
  68. MLMOT1.MOTS(I + 1 ) = MLMOTS.MOTS(I)
  69. 110 CONTINUE
  70. ENDIF
  71. SEGDES,MLMOT1
  72. ELSE
  73. *
  74. INTERR(1) = IEME
  75. NUMERR = 36
  76. CALL ERREUR (NUMERR)
  77. *
  78. END IF
  79. *
  80. SEGDES,MLMOTS
  81. *
  82. END
  83.  
  84.  

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