TEvtGen/PHOTOS/phobo3.F

   1       SUBROUTINE PHOBO3(ANGLE,PVEC)
   2 C.----------------------------------------------------------------------
   3 C.
   4 C.    PHOTOS:   PHOton radiation in decays BOost routine '3'
   5 C.
   6 C.    Purpose:  Boost  vector PVEC  along z-axis where ANGLE = EXP(ETA),
   7 C.              ETA is the hyperbolic velocity.
   8 C.
   9 C.    Input Parameters:  ANGLE, PVEC
  10 C.
  11 C.    Output Parameter:  PVEC
  12 C.
  13 C.    Author(s):  S. Jadach                       Created at:  01/01/89
  14 C.                B. van Eijk                     Last Update: 02/01/90
  15 C.
  16 C.----------------------------------------------------------------------
  17       IMPLICIT NONE
  18       DOUBLE PRECISION QPL,QMI,ANGLE
  19       REAL*8 PVEC(4)
  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
  24       RETURN
  25       END