C ECRLOG    SOURCE    PV        11/04/08    21:15:37     6934           
      SUBROUTINE ECRLOG(BRET)                                  
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                   
-INC CCASSIS
      DIMENSION ITEMP(2)                                       
      LOGICAL BRET                                             
      ith=0
      if (nbesc.ne.0) call ooonth(ith)
      if (ith.eq.0) then
      ITEMP(2)=0                                               
C                                                              
C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                    
C  
      call poslog(bret,itemp(1))                               
  60  CALL ECPI(ITEMP,'LOGIQUE ')                              
      RETURN                                                   
      else
*  cas de l'esclave
      mescla=imescl(ith)
      call ecresc(i)
      esoplu(i)=.false.
      esopty(i)='LOGIQUE'
      esoplo(i)=bret
      endif
      END