C NEG       SOURCE    CB215821  25/04/17    21:15:04     12236          
      SUBROUTINE NEG
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO

      LOGICAL BOOL

      bool=.false.
      CALL EGA
      IF(IERR.NE.0) RETURN

      CALL LIRLOG(BOOL,1,IRETOU)
      BOOL=.NOT. BOOL

      CALL ECRLOG(BOOL)
      RETURN
      END