Télécharger lirree.eso

Retour à la liste

Numérotation des lignes :

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

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