HERWIG/src/hwuldo.f

   1
   2 CDECK  ID>, HWULDO.
   3
   4 *CMZ :-        -26/04/91  11.11.56  by  Bryan Webber
   5
   6 *-- Author :    Bryan Webber
   7
   8 C----------------------------------------------------------------------
   9
  10       FUNCTION HWULDO(P,Q)
  11
  12 C----------------------------------------------------------------------
  13
  14 C   LORENTZ 4-VECTOR DOT PRODUCT
  15
  16 C----------------------------------------------------------------------
  17
  18       DOUBLE PRECISION HWULDO,P(4),Q(4)
  19
  20       HWULDO=P(4)*Q(4)-(P(1)*Q(1)+P(2)*Q(2)+P(3)*Q(3))
  21
  22       END