C ECPI      SOURCE    CB215821  19/11/15    21:15:13     10378          
      SUBROUTINE ECPI( ITAMP , MTEM )
C
C  **** ECRITURE DANS LA PILE INTERNE D'UN OBJET DE TYPE MTEM
C  **** ITAMP(1) EST LE NUMERO DE LA PILE DEFINITIVE
C  **** ITAMP(2) EST LA PLACE DANS CETTE PILE DEFINITIVE

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCNOYAU

-INC PPARAM
-INC CCOPTIO

      DIMENSION ITAMP(2)
      CHARACTER*(*) MTEM
      CHARACTER*8 MTE,MTA

      IF (IERR.GT.1) RETURN

C  POUR INHIBER LA LECTURE DE CARTES
      NOMLU = 1
      IJDIM = JPOOB1(/1)
      INCIJD= MAX(INT(REAL(IJDIM)*0.2D0),50)
      DO 34 IAUX=IBPILE,IHPILE
        IF(JPOOB1(IAUX)) GOTO 36
  34  CONTINUE

      IAUX=IHPILE+1
  36  CONTINUE
      IBPILE=IAUX
      I=IBPILE-1
      IF (I.LT.1)  GOTO 30
      JPOOB1(I)= .TRUE.
      JPOOB2(I)= ITAMP(2)
      JPOOB4(I)= ITAMP(1)
      JTYOBJ(I)= MTEM
      IBPILE   = I
      RETURN

  30  CONTINUE
C*****************************    ON DOIT DECALER LA PILE POUR METTRE
C*****************************    LA NOUVELLE DONNEE EN PREMIER
      N=IHPILE+INCIJD
      IF(N.GT.IJDIM) SEGADJ,JPOOB

      DO 32 I=N,INCIJD+1,-1
        JPOOB1(I)=JPOOB1(I-INCIJD)
        JPOOB2(I)=JPOOB2(I-INCIJD)
        JPOOB4(I)=JPOOB4(I-INCIJD)
        JTYOBJ(I)=JTYOBJ(I-INCIJD)
   32 CONTINUE

      JPOOB1(INCIJD)=.TRUE.
      JPOOB2(INCIJD)=ITAMP(2)
      JPOOB4(INCIJD)=ITAMP(1)
      JTYOBJ(INCIJD)=MTEM
      IHPILE=N
      IBPILE=INCIJD

      END