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    FD218221  26/09/21    21:15:13     12652          
  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. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  15. * -----------
  16. *
  17. *     MLMOTS  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTMOTS".
  18. *     IEME    ENTIER    (E)  POSITION D'INSERTION DE L'ELEMENT DANS
  19. *                            L'OBJET DE TYPE "LISTMOTS".
  20. *     LEMOT   ENTIER    (E)  ELEMENT INSERE (CHAINE DE 4 CARACTERES).
  21. *     MLMOT1  ENTIER    (S)  POINTEUR DE L'OBJET DE TYPE "LISTMOTS" CREE.
  22. *
  23. * SOUS-PROGRAMMES APPELES:
  24. * ------------------------
  25. *
  26. *     ERREUR
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. *     PASCAL MANIGOT     6 DECEMBRE 1984
  32. *
  33. * LANGAGE:
  34. * --------
  35. *
  36. *     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  37. *
  38. ************************************************************************
  39. *
  40.       IMPLICIT INTEGER(I-N)
  41.  
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. -INC SMLMOTS
  45.       CHARACTER*(*) LEMOT
  46. *
  47.       SEGACT,MLMOTS
  48.       LDIM = MOTS(/2)
  49.       LDIM1 = LDIM + 1
  50. *
  51. *
  52. *
  53.       IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  54.         JGM=LDIM1
  55.         JGN=MOTS(/1)
  56.         SEGINI MLMOT1
  57.         MLMOT1.MOTS(IEME) = LEMOT
  58.         IF ( IEME .GT . 1 )  THEN
  59.            DO 100 I=1   ,(IEME-1)
  60.              MLMOT1.MOTS(I) = MLMOTS.MOTS(I)
  61.   100      CONTINUE
  62.         ENDIF
  63.         IF ( IEME .LT .LDIM1)  THEN
  64.          DO 110 I= IEME   , LDIM
  65.            MLMOT1.MOTS(I + 1 ) = MLMOTS.MOTS(I)
  66.   110    CONTINUE
  67.         ENDIF
  68.         SEGDES,MLMOT1
  69.       ELSE
  70. *
  71.          INTERR(1) = IEME
  72.          NUMERR = 36
  73.          CALL ERREUR (NUMERR)
  74. *
  75.       END IF
  76. *
  77.       SEGDES,MLMOTS
  78. *
  79.       END
  80.  
  81.  
  82.  

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