C ECRENT    SOURCE    PV        11/04/08    21:15:30     6934           
      SUBROUTINE ECRENT( IRET )                                                 
      IMPLICIT INTEGER(I-N)
-INC CCASSIS
      DIMENSION ITEMP(2)                                                        
      ith=0
      if (nbesc.ne.0) call ooonth(ith)
      if (ith.eq.0) then
C  POUR INHIBER LA LECTURE DE CARTES                                            
      ITEMP(2)=0                                                                
C                                                                               
      ITEMP(1)=IRET                                                             
  60  CALL ECPI(ITEMP,'ENTIER  ')                                               
      RETURN                                                                    
      else
*  cas de l'esclave
      call ooonth(ith)
      mescla=imescl(ith)
      call ecresc(i)
      esoplu(i)=.false.
      esopty(i)='ENTIER'
      esopva(i)=iret
      endif
      END