Télécharger la plaquette Cast3M


fr en

Télécharger inser5.eso

Retour à la liste

Numérotation des lignes : 

inser5

  1. C INSER5    SOURCE    CHAT      05/01/13    00:38:55     5004
  2.       SUBROUTINE INSER5 (MLREEL,IEME,REELDP,MLREE1)
  3. ************************************************************************
  4. *
  5. *                             I N S E R 1
  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 'LISTREEL'.
  13. *
  14. *
  15. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  16. * -----------
  17. *
  18. *     MLREEL  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTREEL".
  19. *     IEME    ENTIER    (E)  POSITION D'INSERTION DE L'ELEMENT DANS
  20. *                            L'OBJET DE TYPE "LISTREEL".
  21. *     REELDP  REEL DP   (E)  ELEMENT INSERE.
  22. *     MLREE1  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTREEL" CREE
  23. *
  24. * SOUS-PROGRAMMES APPELES:
  25. * ------------------------
  26. *
  27. *     ERREUR
  28. *
  29. * AUTEUR, DATE DE CREATION:
  30. * -------------------------
  31. *
  32. *     PASCAL MANIGOT     6 DECEMBRE 1984
  33. *
  34. * LANGAGE:
  35. * --------
  36. *
  37. *     ESOPE + FORTRAN77
  38. *
  39. ************************************************************************
  40. *
  41.       IMPLICIT INTEGER(I-N)
  42.  
  43. -INC PPARAM
  44. -INC CCOPTIO
  45. -INC SMLREEL
  46. *
  47.       REAL*8 REELDP
  48. *
  49.       SEGACT,MLREEL
  50.       LDIM = PROG(/1)
  51.       LDIM1 = LDIM + 1
  52. *
  53. *
  54.       IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  55.         JG = LDIM1
  56.         SEGINI MLREE1
  57.         MLREE1.PROG(IEME) = REELDP
  58.         IF ( IEME .GT . 1 )  THEN
  59.            DO 100 I=1   ,(IEME-1)
  60.              MLREE1.PROG(I) = MLREEL.PROG(I)
  61.   100      CONTINUE
  62.         ENDIF
  63.         IF ( IEME .LT .LDIM1)  THEN
  64.          DO 110 I= IEME   , LDIM
  65.            MLREE1.PROG(I + 1 ) = MLREEL.PROG(I)
  66.   110    CONTINUE
  67.         ENDIF
  68.         SEGDES,MLREE1
  69.       ELSE
  70.          INTERR(1) = IEME
  71.          NUMERR = 36
  72.          CALL ERREUR (NUMERR)
  73. *
  74.       END IF
  75. *
  76.       SEGDES,MLREEL
  77. *
  78.       END
  79.  
  80.  

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