Télécharger la plaquette Cast3M


fr en

Télécharger inser7.eso

Retour à la liste

Numérotation des lignes : 

inser7

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

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