C EMPIL1    SOURCE    PV        22/06/16    21:15:01     11389          
C EMPIL1
C----------------------------------------------------------------
C Ce sous-programme saisit les objets dans la pile, cas particulier
C des tables
C----------------------------------------------------------------
      SUBROUTINE EMPIL1(IP1,MLITY,IRETOU,itab,iposi)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
-INC SMTABLE
-INC SMELEME
      SEGMENT MLITY
        CHARACTER*8 LITY2(NTY2)
      ENDSEGMENT
      CHARACTER*8 ITOPE,ity1
      SEGMENT IPILO(0)
      SEGMENT DSOBJ
        INTEGER INIPOI,INIFIN
        CHARACTER*8 LETYP
      ENDSEGMENT
      SEGMENT IPOSI
        Integer iposit(mlotab)
      ENDSEGMENT
      SEGMENT ICPR(nbpts)

c pile des arguments
      IRETOU = 0
      SEGINI IPILO
      IP1 = IPILO
      SEGACT MLITY
 203  CONTINUE
      ITOPE = ' '
      CALL QUETYP(ITOPE,0,IRETOU)
      IF (IERR.NE.0) RETURN
      IF (IRETOU.EQ.0) GOTO 700
      DO KMOT=1,LITY2(/2)
        IF (ITOPE.EQ.LITY2(KMOT)) GOTO 201
      ENDDO
      if( itope.eq.'TABLE   ') go to 201
c on continue le calcul avec les donnees deja entrees
      RETURN
 201  CONTINUE
      CALL LIROBJ(ITOPE,IPOIN1,1,IRETOU)
      If(itope.EQ.'TABLE  ') then
        if(itab.ne.0) then
          call erreur(21)
          return
        endif
        mtab1=ipoin1
        segini,mtable=mtab1
        itab=mtable
        segini iposi
        ib=0
        do ia=1,mlotab
          itope=mtabtv(ia)
          do kmot=1,lity2(/2)
            if(itope.eq.lity2(kmot) ) go to 204
          enddo
          go to 222
  204     continue
          ib=ib+1
          iposit(ib)=ia
          SEGINI DSOBJ
          IPILO(**) = DSOBJ
          INIPOI = mtabiv(ia)
          INIFIN = 0
          LETYP = mtabtv(ia)
          SEGDES DSOBJ
  222     continue
        enddo
       segdes mtable,iposi
      go to 203
      endif
      SEGINI DSOBJ
      IPILO(**) = DSOBJ
      INIPOI = IPOIN1
      LETYP = ITOPE
      INIFIN = 0
      SEGDES DSOBJ
      GOTO 203

 700  CONTINUE
      SEGDES MLITY,IPILO
      RETURN

      END