Télécharger inser1.eso

Retour à la liste

Numérotation des lignes :

  1. C INSER1 SOURCE CHAT 05/01/13 00:38:44 5004
  2. SUBROUTINE INSER1 (MLREEL,IEME,REELDP)
  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. *
  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
  37. *
  38. ************************************************************************
  39. *
  40. IMPLICIT INTEGER(I-N)
  41.  
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. -INC SMLREEL
  45. *
  46. REAL*8 REELDP
  47. *
  48. SEGACT,MLREEL
  49. LDIM = PROG(/1)
  50. LDIM1 = LDIM + 1
  51. JG = LDIM1
  52. SEGADJ,MLREEL
  53.  
  54. *
  55. *
  56. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  57. IF ( IEME .LT .LDIM1) THEN
  58. DO 110 I= LDIM , IEME , -1
  59. PROG(I + 1 ) = PROG(I)
  60. 110 CONTINUE
  61. ENDIF
  62. PROG(IEME) = REELDP
  63. ELSE
  64. INTERR(1) = IEME
  65. NUMERR = 36
  66. CALL ERREUR (NUMERR)
  67. *
  68. END IF
  69. *
  70. SEGDES,MLREEL
  71. *
  72. END
  73.  
  74.  

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