Télécharger inser6.eso

Retour à la liste

Numérotation des lignes :

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

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