Télécharger ecrree.eso

Retour à la liste

Numérotation des lignes :

ecrree
  1. C ECRREE SOURCE PV 18/10/17 11:49:09 9965
  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
  9. if (nbesc.ne.0) ith=oothrd
  10. if (ith.eq.0) then
  11. ITEMP(2)=0
  12. call posree (xxva,itemp(1))
  13. CALL ECPI(ITEMP,'FLOTTANT')
  14. RETURN
  15. else
  16. * cas de l'esclave
  17. mescla=imescl(ith)
  18. call ecresc(i)
  19. esoplu(i)=.false.
  20. esopty(i)='FLOTTANT'
  21. esopre(i)=xxva
  22. return
  23. endif
  24. END
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales