C POSLOG    SOURCE    GOUNAND   25/07/10    21:15:04     12312          
      subroutine poslog (ibool,iplace)
      implicit integer (I-N)
      implicit real*8 (a-h,o-z)
      logical ibool

-INC PPARAM
-INC CCOPTIO
-INC CCASSIS
-INC CCNOYAU
C
C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
C
      segact ipiloc
      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
      segact ipiloc*mod
      lmll = iplogi(/1)+1
      lmxx=xiflot(/1)
      lmcc=ipchar(/1)
      lmmm=ichara(/1)
      segadj ipiloc
      iplogi(lmll)=ibool
      iplace=lmll
      if(nbesc.ne.0) THEN
         SEGDES,IPILOC
      else
         SEGACT,IPILOC*NOMOD
      endif
      return
      end