Télécharger la plaquette Cast3M


fr en

Télécharger inser1.eso

Retour à la liste

Numérotation des lignes : 

inser1

  1. C INSER1    SOURCE    FD218221  26/09/21    21:15:06     12652          
  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. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  15. * -----------
  16. *
  17. *     MLREEL  ENTIER    (E/S)  POINTEUR DE L'OBJET DE TYPE "LISTREEL".
  18. *     IEME    ENTIER    (E)    POSITION D'INSERTION DE L'ELEMENT DANS
  19. *                              L'OBJET DE TYPE "LISTREEL".
  20. *     REELDP  REEL DP   (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.  
  41. -INC PPARAM
  42. -INC CCOPTIO
  43. -INC SMLREEL
  44. *
  45.       REAL*8 REELDP
  46. *
  47.       SEGACT,MLREEL
  48.       LDIM = PROG(/1)
  49.       LDIM1 = LDIM + 1
  50.       JG = LDIM1
  51.       SEGADJ,MLREEL
  52.  
  53. *
  54. *
  55.       IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
  56.         IF ( IEME .LT .LDIM1)  THEN
  57.          DO 110 I= LDIM   , IEME , -1
  58.            PROG(I + 1 ) = PROG(I)
  59.   110    CONTINUE
  60.         ENDIF
  61.         PROG(IEME) = REELDP
  62.       ELSE
  63.          INTERR(1) = IEME
  64.          NUMERR = 36
  65.          CALL ERREUR (NUMERR)
  66. *
  67.       END IF
  68. *
  69.       SEGDES,MLREEL
  70. *
  71.       END
  72.  
  73.  
  74.  

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