Esope source files

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