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.  
  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