Télécharger la plaquette Cast3M


fr en

Télécharger neg.eso

Retour à la liste

Numérotation des lignes : 

neg

  1. C NEG       SOURCE    CB215821  25/04/17    21:15:04     12236          
  2.       SUBROUTINE NEG
  3.       IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7.  
  8.       LOGICAL BOOL
  9.  
  10.       bool=.false.
  11.       CALL EGA
  12.       IF(IERR.NE.0) RETURN
  13.  
  14.       CALL LIRLOG(BOOL,1,IRETOU)
  15.       BOOL=.NOT. BOOL
  16.  
  17.       CALL ECRLOG(BOOL)
  18.       RETURN
  19.       END
  20.  
  21.  

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