HERWIG/src/hwumas.f

   1
   2 CDECK  ID>, HWUMAS.
   3
   4 *CMZ :-        -26/04/91  11.11.56  by  Bryan Webber
   5
   6 *-- Author :    Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE HWUMAS(P)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     PUTS INVARIANT MASS IN 5TH COMPONENT OF VECTOR
  15
  16 C     (NEGATIVE SIGN IF SPACELIKE)
  17
  18 C-----------------------------------------------------------------------
  19
  20       DOUBLE PRECISION HWUSQR,P(5)
  21
  22       EXTERNAL HWUSQR
  23
  24       P(5)=HWUSQR((P(4)+P(3))*(P(4)-P(3))-P(1)**2-P(2)**2)
  25
  26       END