Télécharger inser5.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  43. -INC SMLREEL
  44. *
  45. REAL*8 REELDP
  46. *
  47. SEGACT,MLREEL
  48. LDIM = PROG(/1)
  49. LDIM1 = LDIM + 1
  50. *
  51. *
  52. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  53. JG = LDIM1
  54. SEGINI MLREE1
  55. MLREE1.PROG(IEME) = REELDP
  56. IF ( IEME .GT . 1 ) THEN
  57. DO 100 I=1 ,(IEME-1)
  58. MLREE1.PROG(I) = MLREEL.PROG(I)
  59. 100 CONTINUE
  60. ENDIF
  61. IF ( IEME .LT .LDIM1) THEN
  62. DO 110 I= IEME , LDIM
  63. MLREE1.PROG(I + 1 ) = MLREEL.PROG(I)
  64. 110 CONTINUE
  65. ENDIF
  66. SEGDES,MLREE1
  67. ELSE
  68. INTERR(1) = IEME
  69. NUMERR = 36
  70. CALL ERREUR (NUMERR)
  71. *
  72. END IF
  73. *
  74. SEGDES,MLREEL
  75. *
  76. END
  77.  
  78.  

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