C ECRREE    SOURCE    PV        11/04/08    21:15:45     6934           
      SUBROUTINE ECRREE( XXVA)                                   
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                     
-INC CCASSIS
      REAL*8 XXVA                                                
      DIMENSION ITEMP(2)                                         
      ith=0
      if (nbesc.ne.0) call ooonth(ith)
      if (ith.eq.0) then
        ITEMP(2)=0                                               
        call posree (xxva,itemp(1))                              
        CALL ECPI(ITEMP,'FLOTTANT')                              
        RETURN                                                   
      else
*  cas de l'esclave
        mescla=imescl(ith)
        call ecresc(i)
        esoplu(i)=.false.
        esopty(i)='FLOTTANT'
        esopre(i)=xxva
        return
      endif
      END