Télécharger rempl3.eso

Retour à la liste

Numérotation des lignes :

  1. C REMPL3 SOURCE JC220346 12/05/15 21:15:04 7370
  2. *
  3. SUBROUTINE REMPL3 (IPOINT,IEME,LEMOT,IPLISM,IPOS)
  4. ************************************************************************
  5. *
  6. * R E M P L 3
  7. * -----------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *
  12. * REMPLACER LE I-EME ELEMENT D'UN OBJET DE TYPE 'LISTMOTS'.
  13. *
  14. * MODE D'APPEL:
  15. * -------------
  16. *
  17. * CALL REMPL3 (IPOINT,IEME,LEMOT)
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  20. * -----------
  21. *
  22. * IPOINT ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTMOTS".
  23. * IEME ENTIER (E) NUMERO D'ORDRE DE L'ELEMENT A REMPLACER
  24. * DANS L'OBJET DE TYPE "LISTMOTS".
  25. * LEMOT ENTIER (E) ELEMENT REMPLACANT (CONTIENT UNE CHAINE DE
  26. * CARACTERES).
  27. * IPLISM ENTIER (E) POINTEUR VERS UN "LISTMOTS" DE REMPLACANTS
  28. * IPOS ENTIER (E) SI NEGATIF, IEME EST UN POINTEUR "LISTENTI"
  29. *
  30. * SOUS-PROGRAMMES APPELES:
  31. * ------------------------
  32. *
  33. * ERREUR
  34. *
  35. * AUTEUR, DATE DE CREATION:
  36. * -------------------------
  37. *
  38. * PASCAL MANIGOT 5 DECEMBRE 1984
  39. *
  40. * LANGAGE:
  41. * --------
  42. *
  43. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  44. *
  45. ************************************************************************
  46. *
  47. IMPLICIT INTEGER(I-N)
  48. *
  49. -INC CCOPTIO
  50. -INC SMLENTI
  51. -INC SMLMOTS
  52. *
  53. CHARACTER*(*) LEMOT
  54. *
  55. MLMOTS=IPOINT
  56. SEGACT,MLMOTS*MOD
  57. *
  58. * Y a-t-il plusieurs remplacements a faire ?
  59. NBRMPL=1
  60. IF (IPOS.LT.0) THEN
  61. MLENT1=IEME
  62. SEGACT,MLENT1
  63. NBRMPL=MLENT1.LECT(/1)
  64. *
  65. * Y a-t-il des valeurs de remplacement distinctes ?
  66. IF (IPLISM.NE.0) THEN
  67. MLMOT1=IPLISM
  68. SEGACT,MLMOT1
  69. IF (MLMOT1.MOTS(/2).NE.NBRMPL) THEN
  70. MOTERR(1:8)='LISTxxxx'
  71. CALL ERREUR(1015)
  72. RETURN
  73. ENDIF
  74. ENDIF
  75. ENDIF
  76. *
  77. * Mise a jour du LISTMOTS
  78. DO II=1,NBRMPL
  79. IF (IPOS.LT.0) IEME=MLENT1.LECT(II)
  80. IF (IPLISM.NE.0) LEMOT=MLMOT1.MOTS(II)
  81. IF (0.LT.IEME.AND.IEME.LE.MOTS(/2)) THEN
  82. MOTS(IEME)=LEMOT
  83. ELSE
  84. INTERR(1)=IEME
  85. CALL ERREUR(36)
  86. ENDIF
  87. ENDDO
  88. *
  89. SEGDES,MLMOTS
  90. IF (IPOS.LT.0) SEGDES,MLENT1
  91. IF (IPLISM.NE.0) SEGDES,MLMOT1
  92. *
  93. END
  94.  
  95.  
  96.  
  97.  

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