HERWIG/src/hwsgen.f

   1
   2 CDECK  ID>, HWSGEN.
   3
   4 *CMZ :-        -26/04/91  14.55.45  by  Federico Carminati
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE HWSGEN(GENEX)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     GENERATES X VALUES (IF GENEX)
  15
  16 C     EVALUATES STRUCTURE FUNCTIONS AND ENFORCES CUTOFFS ON X
  17
  18 C-----------------------------------------------------------------------
  19
  20       INCLUDE 'HERWIG61.INC'
  21
  22       DOUBLE PRECISION HWBVMC,HWRUNI,X,QL
  23
  24       INTEGER I,J
  25
  26       LOGICAL GENEX
  27
  28       EXTERNAL HWBVMC,HWRUNI
  29
  30       IF (GENEX) THEN
  31
  32         XX(1)=EXP(HWRUNI(0,ZERO,XLMIN))
  33
  34         XX(2)=XXMIN/XX(1)
  35
  36       ENDIF
  37
  38       DO 10 I=1,2
  39
  40         J=I
  41
  42         IF (JDAHEP(1,I).NE.0) J=JDAHEP(1,I)
  43
  44         X=XX(I)
  45
  46         QL=(1.-X)*EMSCA
  47
  48         CALL HWSFUN(X,EMSCA,IDHW(J),NSTRU,DISF(1,I),I)
  49
  50       DO 10 J=1,13
  51
  52         IF (QL.LT.HWBVMC(J)) DISF(J,I)=0.
  53
  54    10 CONTINUE
  55
  56       END