HERWIG/src/hwuecm.f

   1
   2 CDECK  ID>, HWUECM.
   3
   4 *CMZ :-        -29/01/93  11.11.55  by  Bryan Webber
   5
   6 *-- Author :    Giovanni Abbiendi & Luca Stanco
   7
   8 C---------------------------------------------------------------------
   9
  10       FUNCTION HWUECM (S,M1QUAD,M2QUAD)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     C.M. ENERGY OF A PARTICLE IN 1-->2 BRANCH, MAY BE SPACELIKE
  15
  16 C---------------------------------------------------------------------
  17
  18       DOUBLE PRECISION HWUECM,S,M1QUAD,M2QUAD
  19
  20       HWUECM = (S+M1QUAD-M2QUAD)/(2.D0*SQRT(S))
  21
  22       END