Esope source files

   1 : C ECRLOG    SOURCE    PV        11/04/08    21:15:37     6934           
   2 :       SUBROUTINE ECRLOG(BRET)                                  
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                   
   5 : -INC CCASSIS
   6 :       DIMENSION ITEMP(2)                                       
   7 :       LOGICAL BRET                                             
   8 :       ith=0
   8 :       if (nbesc.ne.0) call ooonth(ith)
   9 :       if (ith.eq.0) then
  10 :       ITEMP(2)=0                                               
  11 : C                                                              
  12 : C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                    
  13 : C  
  13 :       call poslog(bret,itemp(1))                               
  13 :   60  CALL ECPI(ITEMP,'LOGIQUE ')                              
  14 :       RETURN                                                   
  15 :       else
  16 : *  cas de l'esclave
  17 :       mescla=imescl(ith)
  17 :       call ecresc(i)
  18 :       esoplu(i)=.false.
  19 :       esopty(i)='LOGIQUE'
  20 :       esoplo(i)=bret
  21 :       endif
  22 :       END                                                      
  23 :  
  24 :  
  25 :