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    PV        22/04/27    21:15:08     11344          
  2.       SUBROUTINE NEG
  3.       IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7.       LOGICAL BOOL
  8.       bool=.false.
  9.       CALL EGA
  10.       IF(IERR.NE.0) RETURN
  11.       CALL LIRLOG(BOOL,1,IRETOU)
  12.       BOOL=.NOT.BOOL
  13.       CALL ECRLOG(BOOL)
  14.       RETURN
  15.       END
  16.  
  17.  
  18.  

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