Télécharger lirlog.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRLOG SOURCE PV 18/10/17 11:50:40 9965
  2. SUBROUTINE LIRLOG(BVAL , ICODE , IRETOU )
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCOPTIO
  6. -INC CCASSIS
  7. LOGICAL BVAL
  8. CHARACTER*(8) ILO
  9. ILO='LOGIQUE '
  10. CALL LIRABJ(ILO,IRAT,ICODE,IRETOU)
  11. IF(IERR.NE.0) RETURN
  12. IF(IRETOU.EQ.0) RETURN
  13. ith=0
  14. if (nbesc.ne.0) ith=oothrd
  15. if (ith.eq.0) then
  16. if(nbesc.ne.0) segact ipiloc
  17. BVAL=IPLOGI(IRAT)
  18. if(nbesc.ne.0) SEGDES,IPILOC
  19. else
  20. mescla=imescl(ith)
  21. BVAL=esoplo(irat)
  22. endif
  23. RETURN
  24. END
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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