Sources Esope | Cast3M

poslog
C POSLOG    SOURCE    PV        19/01/17    21:15:12     10078          
      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) SEGDES,IPILOC
      return
      end