Esope source files

   1 : C POSLOG    SOURCE    CHAT      06/03/16    21:23:32     5336           
   2 :       subroutine poslog (ibool,iplace)
   3 :       implicit integer (I-N)
   4 :       implicit real*8 (a-h,o-z)
   5 :       logical ibool
   6 : -INC CCOPTIO
   7 : -INC CCASSIS
   8 : -INC CCNOYAU
   9 : C                                                                               
  10 : C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                                     
  11 : C 
  12 :       if(nbesc.ne.0) segact ipiloc*mod                                 
  13 :       il= iplogi(/1)
  14 :       if(il.ne.0) then
  15 :          DO 55 J=1,iplogi(/1)
  16 :            if(ibool.neqv.iplogi(j) ) go to 55
  17 :             iplace=j
  18 :             if(nbesc.ne.0) segdes ipiloc
  19 :              return
  20 :   55     continue
  21 :       endif
  22 :       lmll = iplogi(/1)+1
  23 :       lmxx=xiflot(/1)
  24 :       lmcc=ipchar(/1)
  25 :       lmmm=ichara(/1)    
  26 :       segadj ipiloc
  27 :       iplogi(lmll)=ibool
  28 :       iplace=lmll
  29 :       if(nbesc.ne.0) segdes ipiloc
  30 :       return
  31 :       end
  32 :