TEvtGen/PHOTOS/phoro2.F

   1       SUBROUTINE PHORO2(ANGLE,PVEC)
   2 C.----------------------------------------------------------------------
   3 C.
   4 C.    PHOTOS:   PHOton radiation in decays ROtation routine '2'
   5 C.
   6 C.    Purpose:  Rotate  x and z components  of vector PVEC  around angle
   7 C.              'ANGLE'.
   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 CS,SN,ANGLE
  19       REAL*8 PVEC(4)
  20       CS=COS(ANGLE)*PVEC(1)+SIN(ANGLE)*PVEC(3)
  21       SN=-SIN(ANGLE)*PVEC(1)+COS(ANGLE)*PVEC(3)
  22       PVEC(1)=CS
  23       PVEC(3)=SN
  24       RETURN
  25       END