Sources Esope | Cast3M

ecrree
C ECRREE    SOURCE    PV        18/10/17    11:49:09     9965           
      SUBROUTINE ECRREE( XXVA)
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC CCASSIS
      REAL*8 XXVA
      DIMENSION ITEMP(2)
      ith=0
      if (nbesc.ne.0) ith=oothrd
      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