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