      SUBROUTINE DVNOPT
C --------------------------------------------------------------------------
C     INTEGRATION OPTIONS
C --------------------------------------------------------------------------
      INCLUDE 'SUSANA.INC'
      INCLUDE 'PYTHIA57.INC'
      COMMON/QUADRE/IDEG
      COMMON/PRINT/IPRINT
      COMMON/BNDLMT/FLOW,FHIGH
C
      IDEG   = 1
C
      IF (isustr(3).EQ.0) THEN
        IPRINT = 0
      ENDIF
C
      FLOW = 0.0
C
      RETURN
      END
