Télécharger lirlog.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRLOG SOURCE PV 11/04/08 21:16:10 6934
  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) call ooonth(ith)
  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.  

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