[u/mrichter/AliRoot.git] / HERWIG / src / hwulob.f


CDECK  ID>, HWULOB.

*CMZ :-        -05/11/95  19.33.42  by  Mike Seymour

*-- Author :    Adapted by Bryan Webber

C-----------------------------------------------------------------------

      SUBROUTINE HWULOB(PS,PI,PF)

C-----------------------------------------------------------------------

C     TRANSFORMS PI (GIVEN IN REST FRAME OF PS) INTO PF (IN LAB)

C     N.B. P(1,2,3,4,5) = (PX,PY,PZ,E,M)

C-----------------------------------------------------------------------

      DOUBLE PRECISION PS(5),PI(5),PF(5)

      CALL HWULB4(PS,PI,PF)

      PF(5)= PI(5)

      END
Commit	Line	Data
3820ca8e	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