      subroutine hwaend
c
c  dummy
c
 999  continue
      return
      end

*-- Author :    F. James, modified by Mike Seymour
C-----------------------------------------------------------------------
      FUNCTION HWRGEN(I)
C-----------------------------------------------------------------------
C     MAIN RANDOM NUMBER GENERATOR
C     USES METHOD OF l'Ecuyer, (VIA F.JAMES, COMP PHYS COMM 60(1990)329)
C-----------------------------------------------------------------------
C-AMJ
C      IMPLICIT NONE
      INCLUDE 'HERWIG65.INC'
C-AMJ
      DOUBLE PRECISION HWRGEN,HWRSET,HWRGET
      INTEGER I,ISEED(2),K,IZ,JSEED(2)
      SAVE ISEED
      DATA ISEED/12345,67890/
      K=ISEED(1)/53668
      ISEED(1)=40014*(ISEED(1)-K*53668)-K*12211
      IF (ISEED(1).LT.0) ISEED(1)=ISEED(1)+2147483563
      K=ISEED(2)/52774
      ISEED(2)=40692*(ISEED(2)-K*52774)-K*3791
      IF (ISEED(2).LT.0) ISEED(2)=ISEED(2)+2147483399
      IZ=ISEED(1)-ISEED(2)
      IF (IZ.LT.1) IZ=IZ+2147483562
      HWRGEN=DBLE(IZ)*4.656613001013252D-10
C--->                (4.656613001013252D-10 = 1.D0/2147483589)
      RETURN
C-----------------------------------------------------------------------
      ENTRY HWRSET(JSEED)
C-----------------------------------------------------------------------
      IF (JSEED(1).EQ.0.OR.JSEED(2).EQ.0) THEN
C-AMJ
C         CALL HWWARN('HWRSET',99,*999)
         WRITE (lhwout,10) 'HWRSET',99
   10    FORMAT(/' HWWARN CALLED FROM SUBPROGRAM ',A6,': CODE =',I4)
         WRITE (lhwout,20) NEVHEP,NRN,EVWGT
   20    FORMAT(' EVENT',I8,':   SEEDS =',I11,' &',I11,
     &'  WEIGHT =',E11.4/' EVENT SURVIVES. EXECUTION CONTINUES')
         RETURN
C-AMJ
      ENDIF
      ISEED(1)=JSEED(1)
      ISEED(2)=JSEED(2)
      HWRSET=0.0D0
 999  RETURN
C-----------------------------------------------------------------------
      ENTRY HWRGET(JSEED)
C-----------------------------------------------------------------------
      JSEED(1)=ISEED(1)
      JSEED(2)=ISEED(2)
      HWRGET=0.0D0
      RETURN
      END

c---- some dummy routines

*-- Author :    Luca Stanco
C-----------------------------------------------------------------------
      SUBROUTINE EUDINI
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='EURO'
C     IN MAIN PROGRAM IF YOU USE EURODEC DECAY PACKAGE
C-----------------------------------------------------------------------
C---OUTPUT UNIT NUMBER
      COMMON/HWUMSC/LHWOUT
      INTEGER LHWOUT
      WRITE (LHWOUT,10)
   10 FORMAT(/10X,'EUDINI CALLED BUT NOT LINKED')
      STOP
      END

*-- Author :    Mike Seymour
C-----------------------------------------------------------------------
      SUBROUTINE HVCBVI
C-----------------------------------------------------------------------
C     DUMMY ROUTINE: DELETE IF YOU LINK TO BARYON NUMBER VIOLATN PACKAGE
C-----------------------------------------------------------------------
C---OUTPUT UNIT NUMBER
      COMMON/HWUMSC/LHWOUT
      INTEGER LHWOUT
      WRITE (LHWOUT,10)
   10 FORMAT(/10X,'HVCBVI CALLED BUT NOT LINKED')
      STOP
      END

*-- Author :    Mike Seymour
C-----------------------------------------------------------------------
      SUBROUTINE HVHBVI
C-----------------------------------------------------------------------
C     DUMMY ROUTINE: DELETE IF YOU LINK TO BARYON NUMBER VIOLATN PACKAGE
C-----------------------------------------------------------------------
C---OUTPUT UNIT NUMBER
      COMMON/HWUMSC/LHWOUT
      INTEGER LHWOUT
      WRITE (LHWOUT,10)
   10 FORMAT(/10X,'HERBVI CALLED BUT NOT LINKED')
      STOP
      END

*-- Author :    Luca Stanco
C-----------------------------------------------------------------------
      FUNCTION IEUPDG(I)
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='EURO'
C     IN MAIN PROGRAM IF YOU USE EURODEC DECAY PACKAGE
C-----------------------------------------------------------------------
C---OUTPUT UNIT NUMBER
      COMMON/HWUMSC/LHWOUT
      INTEGER LHWOUT
      INTEGER IEUPDG,I
      WRITE (LHWOUT,10)
   10 FORMAT(/10X,'IEUPDG CALLED BUT NOT LINKED')
      IEUPDG=0
      STOP
      END

*-- Author :    Luca Stanco
C-----------------------------------------------------------------------
      FUNCTION IPDGEU(I)
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='EURO'
C     IN MAIN PROGRAM IF YOU USE EURODEC DECAY PACKAGE
C-----------------------------------------------------------------------
C---OUTPUT UNIT NUMBER
      COMMON/HWUMSC/LHWOUT
      INTEGER LHWOUT
      INTEGER IPDGEU,I
      WRITE (LHWOUT,10)
   10 FORMAT(/10X,'IPDGEU CALLED BUT NOT LINKED')
      IPDGEU=0
      STOP
      END
*-- Author :    Peter Richardson
C-----------------------------------------------------------------------
      SUBROUTINE INIETC(JAK1,JAK2,ITDKRC,IFPHOT)
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET TAUDEC='TAUOLA'
C     IN MAIN PROGRAM IF YOU USE TAUOLA DECAY PACKAGE
C-----------------------------------------------------------------------
      IMPLICIT NONE
      include 'hwumsc.inc'
      INTEGER JAK1,JAK2,ITDKRC,IFPHOT
      WRITE (lhwout,10)
   10 FORMAT(/10X,'INIETC CALLED BUT NOT LINKED')
      STOP
      END
*-- Author :    Peter Richardson
C-----------------------------------------------------------------------
      SUBROUTINE INIMAS
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET TAUDEC='TAUOLA'
C     IN MAIN PROGRAM IF YOU USE TAUOLA DECAY PACKAGE
C-----------------------------------------------------------------------
      IMPLICIT NONE
      include 'hwumsc.inc'
      WRITE (lhwout,10)
   10 FORMAT(/10X,'INIMAS CALLED BUT NOT LINKED')
      STOP
      END
*-- Author :    Peter Richardson
C-----------------------------------------------------------------------
      SUBROUTINE INIPHX(CUT)
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET TAUDEC='TAUOLA'
C     IN MAIN PROGRAM IF YOU USE TAUOLA DECAY PACKAGE
C-----------------------------------------------------------------------
      IMPLICIT NONE
      include 'hwumsc.inc'
      DOUBLE PRECISION CUT
      WRITE (lhwout,10)
   10 FORMAT(/10X,'INIPHX CALLED BUT NOT LINKED')
      STOP
      END
*-- Author :    Peter Richardson
C-----------------------------------------------------------------------
      SUBROUTINE INITDK
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET TAUDEC='TAUOLA'
C     IN MAIN PROGRAM IF YOU USE TAUOLA DECAY PACKAGE
C-----------------------------------------------------------------------
      IMPLICIT NONE
      include 'hwumsc.inc'
      WRITE (lhwout,10)
   10 FORMAT(/10X,'INITDK CALLED BUT NOT LINKED')
      STOP
      END
*-- Author :    Bryan Webber
C-----------------------------------------------------------------------
      SUBROUTINE CIRCES (XX1M, XX2M, XROOTS, XACC, XVER, XREV, XCHAT)
C-----------------------------------------------------------------------
C     DUMMY SUBROUTINE: DELETE AND SET CIRCOP NON-ZERO
C     IN MAIN PROGRAM IF YOU USE CIRCE BEAM SPECTRUM PACKAGE
C-----------------------------------------------------------------------
      include 'hwumsc.inc'	! L. Garren  12/20/2000 
      DOUBLE PRECISION XX1M, XX2M, XROOTS
      INTEGER XACC, XVER, XREV, XCHAT
      WRITE (lhwout,10)
   10 FORMAT(/10X,'CIRCES CALLED BUT NOT LINKED')
      STOP
      END
*-- Author :    Bryan Webber
C-----------------------------------------------------------------------
      FUNCTION CIRCGG (X1, X2)
C-----------------------------------------------------------------------
C     DUMMY FUNCTION: DELETE AND SET CIRCOP NON-ZERO
C     IN MAIN PROGRAM IF YOU USE CIRCE BEAM SPECTRUM PACKAGE
C-----------------------------------------------------------------------
      include 'hwumsc.inc'	! L. Garren  12/20/2000 
      DOUBLE PRECISION CIRCGG, X1, X2
      WRITE (lhwout,10)
   10 FORMAT(/10X,'CIRCGG CALLED BUT NOT LINKED')
      CIRCGG = 0.0D0
      STOP
      END
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(&,X) 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-Bicocca
C($)  Department of Physics & Astronomy, University of Manchester
C(#)  Cavendish Laboratory, Cambridge
C(&)  Theory Division, CERN
C(X)  Institute of Particle Physics Phenomenology, University of Durham
C(^)  Theory Group, KEK
C(")  Max Planck Institute, Munich
C(@)  Dipartimento di Fisica, Universita di Bologna
C(%)  Dipartimento di Fisica, Universita di Padova
C(~)  Institute of Physics, Prague
C-----------------------------------------------------------------------
C                  Version 6.400 - 21 January 2002
C-----------------------------------------------------------------------
C Main references:
C
C    G.Corcella, I.G.Knowles, G.Marchesini, S.Moretti, K.Odagiri,
C    P.Richardson, M.H.Seymour and B.R.Webber, JHEP 01 (2001) 010
C
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 see the official HERWIG information page:
C    http://hepwww.rl.ac.uk/theory/seymour/herwig/
C-----------------------------------------------------------------------
CDECK  ID>, CIRCEE.
*CMZ :-        -03/07/01  17.07.47  by  Bryan Webber
*-- Author :    Bryan Webber
C-----------------------------------------------------------------------
      FUNCTION CIRCEE (X1, X2)
C-----------------------------------------------------------------------
C     DUMMY FUNCTION: DELETE AND SET CIRCOP NON-ZERO
C     IN MAIN PROGRAM IF YOU USE CIRCE BEAM SPECTRUM PACKAGE
C-----------------------------------------------------------------------
      include 'hwumsc.inc'	! L. Garren  12/20/2000 
      DOUBLE PRECISION CIRCEE, X1, X2
      WRITE (lhwout,10)
   10 FORMAT(/10X,'CIRCEE CALLED BUT NOT LINKED')
      CIRCEE = 0.0D0
      STOP
      END
C-----------------------------------------------------------------------
      SUBROUTINE PHOINI
C-----------------------------------------------------------------------
      include 'hwumsc.inc'	! L. Garren  12/20/2000 
      WRITE (lhwout,10)
   10 FORMAT(/10X,'PHOINI CALLED BUT NOT LINKED')
      CIRCEE = 0.0D0
      STOP
      END
C-----------------------------------------------------------------------
      SUBROUTINE PHOTOS
C-----------------------------------------------------------------------
      include 'hwumsc.inc'	! L. Garren  12/20/2000 
      WRITE (lhwout,10)
   10 FORMAT(/10X,'PHOTOS CALLED BUT NOT LINKED')
      CIRCEE = 0.0D0
      STOP
      END
