Télécharger lirree.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRREE SOURCE PV 11/04/08 21:16:12 6934
  2. SUBROUTINE LIRREE(XVAL , ICODE , IRETOU )
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCOPTIO
  6. -INC CCASSIS
  7. REAL*8 XVAL
  8. CHARACTER*(8) IFL
  9. ith=0
  10. if (nbesc.ne.0) then
  11. call ooonth(ith)
  12. endif
  13. lotesc=.false.
  14. if (ith.ne.0) lotesc=.true.
  15. IFL='FLOTTANT'
  16. ICOD=ICODE
  17. CALL LIRABJ(IFL,IRAT,ICOD,IRETOU)
  18. IF(IERR.NE.0) RETURN
  19. IF(IRETOU.EQ.0) RETURN
  20. if(nbesc.ne.0) segact ipiloc
  21. IF(IFL.EQ.'FLOTTANT'.AND. (.not. lotesc)) THEN
  22. XVAL=XIFLOT(IRAT)
  23. ELSEIF(IFL.EQ.'FLOTTANT'.AND. lotesc) THEN
  24. call ooonth(ith)
  25. mescla=imescl(ith)
  26. XVAL=ESOPRE(IRAT)
  27. ELSEIF(IFL.EQ.'ENTIER ') THEN
  28. XVAL=IRAT
  29. ENDIF
  30. if(nbesc.ne.0) segdes ipiloc
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  

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