Sources Esope | Cast3M

ecrlog
C ECRLOG    SOURCE    PV        18/10/17    11:49:08     9965           
      SUBROUTINE ECRLOG(BRET)
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC CCASSIS
      DIMENSION ITEMP(2)
      LOGICAL BRET
      ith=0
      if (nbesc.ne.0) ith=oothrd
      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