Télécharger neg.eso

Retour à la liste

Numérotation des lignes :

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

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