1 SUBROUTINE PHOBO3(ANGLE,PVEC)
2 C.----------------------------------------------------------------------
4 C. PHOTOS: PHOton radiation in decays BOost routine '3'
6 C. Purpose: Boost vector PVEC along z-axis where ANGLE = EXP(ETA),
7 C. ETA is the hyperbolic velocity.
9 C. Input Parameters: ANGLE, PVEC
11 C. Output Parameter: PVEC
13 C. Author(s): S. Jadach Created at: 01/01/89
14 C. B. van Eijk Last Update: 02/01/90
16 C.----------------------------------------------------------------------
18 DOUBLE PRECISION QPL,QMI,ANGLE
20 QPL=(PVEC(4)+PVEC(3))*ANGLE
21 QMI=(PVEC(4)-PVEC(3))/ANGLE
22 PVEC(3)=(QPL-QMI)/2.D0
23 PVEC(4)=(QPL+QMI)/2.D0