HERWIG/src/hwulob.f

   1
   2 CDECK  ID>, HWULOB.
   3
   4 *CMZ :-        -05/11/95  19.33.42  by  Mike Seymour
   5
   6 *-- Author :    Adapted by Bryan Webber
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE HWULOB(PS,PI,PF)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     TRANSFORMS PI (GIVEN IN REST FRAME OF PS) INTO PF (IN LAB)
  15
  16 C     N.B. P(1,2,3,4,5) = (PX,PY,PZ,E,M)
  17
  18 C-----------------------------------------------------------------------
  19
  20       DOUBLE PRECISION PS(5),PI(5),PF(5)
  21
  22       CALL HWULB4(PS,PI,PF)
  23
  24       PF(5)= PI(5)
  25
  26       END