Télécharger non.eso

Retour à la liste

Numérotation des lignes :

  1. C NON SOURCE CHAT 05/01/13 01:59:09 5004
  2. SUBROUTINE NON
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. LOGICAL IR1,IR
  6. ICOD=1
  7. CALL LIRLOG(IR1,ICOD,IRETOU)
  8. IF(IERR.NE.0) RETURN
  9. IR=.NOT.IR1
  10. CALL ECRLOG(IR)
  11. RETURN
  12. END
  13.  
  14.  

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