Télécharger lirree.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  6. -INC CCASSIS
  7. REAL*8 XVAL
  8. CHARACTER*(8) IFL
  9.  
  10. ith=0
  11. if (nbesc.ne.0) ith=oothrd
  12.  
  13. lotesc=.false.
  14. if (ith.ne.0) lotesc=.true.
  15. IFL ='FLOTTANT'
  16. ICOD=ICODE
  17.  
  18. CALL LIRABJ(IFL,IRAT,ICOD,IRETOU)
  19. IF(IERR .NE.0) RETURN
  20. IF(IRETOU.EQ.0) RETURN
  21.  
  22. IF(IFL.EQ.'FLOTTANT'.AND. (.not. lotesc)) THEN
  23. if(nbesc.ne.0) segact ipiloc
  24. XVAL=XIFLOT(IRAT)
  25. if(nbesc.ne.0) SEGDES,IPILOC
  26. ELSEIF(IFL.EQ.'FLOTTANT'.AND. lotesc) THEN
  27. mescla=imescl(ith)
  28. XVAL=ESOPRE(IRAT)
  29. ELSEIF(IFL.EQ.'ENTIER ') THEN
  30. XVAL=IRAT
  31. ENDIF
  32.  
  33. END
  34.  
  35.  
  36.  

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