Sources Esope | Cast3M

inser2
C INSER2    SOURCE    CHAT      05/01/13    00:38:47     5004
      SUBROUTINE INSER2 (MLENTI,IEME,INTEGR)
************************************************************************
*
*                             I N S E R 2
*                             -----------
*
* FONCTION:
* ---------
*
*     INSERER UN ELEMENT EN I-EME POSITION (ET NON PAS APRES LA I-EME
*     POSITION) DANS UN OBJET DE TYPE 'LISTENTI'.
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE
* -----------
*
*     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "LISTENTI".
*     IEME    ENTIER    (E)  POSITION D'INSERTION DE L'ELEMENT DANS
*                            L'OBJET DE TYPE "LISTENTI".
*     INTEGR  ENTIER    (E)  ELEMENT INSERE.
*
* SOUS-PROGRAMMES APPELES:
* ------------------------
*
*     ERREUR
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     PASCAL MANIGOT     6 DECEMBRE 1984
*
* LANGAGE:
* --------
*
*     ESOPE + FORTRAN77
*
************************************************************************
*
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
*
      SEGACT,MLENTI
      LDIM = LECT(/1)
      LDIM1 = LDIM + 1
      JG=LDIM1
      SEGADJ MLENTI
*
      IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN
        IF ( IEME .LT .LDIM1)  THEN
         DO 110 I=  LDIM , IEME , -1
           MLENTI.LECT(I + 1 ) = MLENTI.LECT(I)
  110    CONTINUE
        ENDIF
        MLENTI.LECT(IEME) = INTEGR
      ELSE
         INTERR(1) = IEME
         NUMERR = 36
         CALL ERREUR (NUMERR)
*
      END IF
*
      SEGDES,MLENTI
*
      END