Télécharger la plaquette Cast3M


fr en

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.  
  50. -INC PPARAM
  51. -INC CCOPTIO
  52. -INC SMLENTI
  53. -INC SMLMOTS
  54. *
  55.       CHARACTER*(*) LEMOT
  56. *
  57.       MLMOTS=IPOINT
  58.       SEGACT,MLMOTS*MOD
  59. *
  60. *     Y a-t-il plusieurs remplacements a faire ?
  61.       NBRMPL=1
  62.       IF (IPOS.LT.0) THEN
  63.           MLENT1=IEME
  64.           SEGACT,MLENT1
  65.           NBRMPL=MLENT1.LECT(/1)
  66. *
  67. *         Y a-t-il des valeurs de remplacement distinctes ?
  68.           IF (IPLISM.NE.0) THEN
  69.               MLMOT1=IPLISM
  70.               SEGACT,MLMOT1
  71.               IF (MLMOT1.MOTS(/2).NE.NBRMPL) THEN
  72.                   MOTERR(1:8)='LISTxxxx'
  73.                   CALL ERREUR(1015)
  74.                   RETURN
  75.               ENDIF
  76.           ENDIF
  77.       ENDIF
  78. *
  79. *     Mise a jour du LISTMOTS
  80.       DO II=1,NBRMPL
  81.           IF (IPOS.LT.0) IEME=MLENT1.LECT(II)
  82.           IF (IPLISM.NE.0) LEMOT=MLMOT1.MOTS(II)
  83.           IF (0.LT.IEME.AND.IEME.LE.MOTS(/2)) THEN
  84.               MOTS(IEME)=LEMOT
  85.           ELSE
  86.               INTERR(1)=IEME
  87.               CALL ERREUR(36)
  88.           ENDIF
  89.       ENDDO
  90. *
  91.       SEGDES,MLMOTS
  92.       IF (IPOS.LT.0) SEGDES,MLENT1
  93.       IF (IPLISM.NE.0) SEGDES,MLMOT1
  94. *
  95.       END
  96.  
  97.  
  98.  
  99.  

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