Télécharger inser8.eso

Retour à la liste

Numérotation des lignes :

  1. C INSER8 SOURCE CHAT 05/01/13 00:39:03 5004
  2. SUBROUTINE INSER8 (MLCHPO,IEME,IPCHPO,MLCHP1)
  3. ************************************************************************
  4. *
  5. * I N S E R 4
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * INSERER UN 'CHPOINT' EN I-EME POSITION (ET NON PAS APRES LA I-EME
  12. * POSITION) DANS LA SUITE DE TYPE 'LISTCHPO'.
  13. *
  14. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  15. * -----------
  16. *
  17. * IPOINT ENTIER (E) POINTEUR DE LA SUITE DE TYPE "LISTCHPO".
  18. * IEME ENTIER (E) POSITION D'INSERTION DU "CHPOINT" DANS
  19. * LA SUITE DE TYPE "LISTCHPO".
  20. * IPCHPO ENTIER (E) POINTEUR DU "CHPOINT" A INSERER.
  21. * MLCHP1 ENTIER (E) POINTEUR DE LA SUITE DE TYPE "LISTCHPO".
  22. *
  23. * SOUS-PROGRAMMES APPELES:
  24. * ------------------------
  25. *
  26. * ERREUR
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. * PASCAL MANIGOT 22 FEVRIER 1985
  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 SMLCHPO
  45. *
  46. SEGACT,MLCHPO
  47. LDIM = ICHPOI(/1)
  48. LDIM1 = LDIM + 1
  49. *
  50. *
  51. IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  52. N1 = LDIM1
  53. SEGINI MLCHP1
  54. MLCHP1.ICHPOI(IEME) = IPCHPO
  55. IF ( IEME .GT . 1 ) THEN
  56. DO 100 I=1 ,(IEME-1)
  57. MLCHP1.ICHPOI(I) = MLCHPO.ICHPOI(I)
  58. 100 CONTINUE
  59. ENDIF
  60. IF ( IEME .LT .LDIM1) THEN
  61. DO 110 I= IEME , LDIM
  62. MLCHP1.ICHPOI(I + 1 ) = MLCHPO.ICHPOI(I)
  63. 110 CONTINUE
  64. ENDIF
  65. SEGDES,MLCHP1
  66. ELSE
  67. INTERR(1) = IEME
  68. NUMERR = 36
  69. CALL ERREUR (NUMERR)
  70. *
  71. END IF
  72. *
  73. SEGDES,MLCHPO
  74. *
  75. END
  76.  
  77.  

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