C-----------------------------------------------------------------------

C                           H E R W I G

C

C            a Monte Carlo event generator for simulating

C        +---------------------------------------------------+

C        | Hadron Emission Reactions With Interfering Gluons |

C        +---------------------------------------------------+

C I.G. Knowles(*), G. Marchesini(+), M.H. Seymour($) and B.R. Webber(#)

C-----------------------------------------------------------------------

C with Minimal Supersymmetric Standard Model Matrix Elements by

C                  S. Moretti($) and K. Odagiri($)

C-----------------------------------------------------------------------

C R parity violating Supersymmetric Decays and Matrix Elements by

C                          P. Richardson(&)

C-----------------------------------------------------------------------

C matrix element corrections to top decay and Drell-Yan type processes

C                         by G. Corcella(+)

C-----------------------------------------------------------------------

C Deep Inelastic Scattering and Heavy Flavour Electroproduction by

C                  G. Abbiendi(@) and L. Stanco(%)

C-----------------------------------------------------------------------

C and Jet Photoproduction in Lepton-Hadron Collisions by J. Chyla(~)

C-----------------------------------------------------------------------

C(*)  Department of Physics & Astronomy, University of Edinburgh

C(+)  Dipartimento di Fisica, Universita di Milano

C($)  Rutherford Appleton Laboratory

C(#)  Cavendish Laboratory, Cambridge

C(&)  Department of Physics, University of Oxford

C(@)  Dipartimento di Fisica, Universita di Bologna

C(%)  Dipartimento di Fisica, Universita di Padova

C(~)  Institute of Physics, Prague

C-----------------------------------------------------------------------

C                  Version 6.100 - 16th December 1999

C-----------------------------------------------------------------------

C Main reference:

C    G.Marchesini,  B.R.Webber,  G.Abbiendi,  I.G.Knowles,  M.H.Seymour,

C    and L.Stanco, Computer Physics Communications 67 (1992) 465.

C-----------------------------------------------------------------------

C Please send e-mail about  this program  to one of the  authors at the

C following Internet addresses:

C    I.Knowles@ed.ac.uk        Giuseppe.Marchesini@mi.infn.it

C    M.Seymour@rl.ac.uk        webber@hep.phy.cam.ac.uk

C-----------------------------------------------------------------------

CDECK  ID>, DECADD.

*CMZ :-        -28/01/92  12.34.44  by  Mike Seymour

*-- Author :    Luca Stanco

C-----------------------------------------------------------------------

      SUBROUTINE DECADD(LOGI)

C-----------------------------------------------------------------------

C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='CLEO'

C     IN MAIN PROGRAM IF YOU USE CLEO DECAY PACKAGE

C-----------------------------------------------------------------------

      LOGICAL LOGI

      WRITE (6,10)

   10 FORMAT(/10X,'DECADD CALLED BUT NOT LINKED')

      STOP

      END