C ECROBJ    SOURCE    PV        11/04/08    21:15:40     6934           
      SUBROUTINE ECROBJ( MCH,IRET)                                              
      IMPLICIT INTEGER(I-N)
-INC CCASSIS
      CHARACTER*(*) MCH                                                         
      CHARACTER*8 MTEM                                                          
      DIMENSION ITEMP(2)                                                        
      ith=0
      if (nbesc.ne.0) call ooonth(ith)
      if (ith.eq.0) then
      MTEM=MCH                                                                  
      ITEMP(2)=0                                                                
C                                                                               
C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                                     
C                                                                               
      ITEMP(1)=IRET                                                             
      CALL ECPI(ITEMP,MTEM)
      RETURN                                                                    
      else
*  cas de l'esclave
      mescla=imescl(ith)
      call ecresc(i)
      esoplu(i)=.false.
      esopty(i)=mch
      esopva(i)=iret
      endif
      END