C POSLOG    SOURCE    CHAT      06/03/16    21:23:32     5336           
      subroutine poslog (ibool,iplace)
      implicit integer (I-N)
      implicit real*8 (a-h,o-z)
      logical ibool
-INC CCOPTIO
-INC CCASSIS
-INC CCNOYAU
C                                                                               
C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                                     
C 
      if(nbesc.ne.0) segact ipiloc*mod                                 
      il= iplogi(/1)
      if(il.ne.0) then
         DO 55 J=1,iplogi(/1)
           if(ibool.neqv.iplogi(j) ) go to 55
            iplace=j
            if(nbesc.ne.0) segdes ipiloc
             return
  55     continue
      endif
      lmll = iplogi(/1)+1
      lmxx=xiflot(/1)
      lmcc=ipchar(/1)
      lmmm=ichara(/1)    
      segadj ipiloc
      iplogi(lmll)=ibool
      iplace=lmll
      if(nbesc.ne.0) segdes ipiloc
      return
      end