1 SUBROUTINE PHORO3(ANGLE,PVEC)
2 C.----------------------------------------------------------------------
4 C. PHOTOS: PHOton radiation in decays ROtation routine '3'
6 C. Purpose: Rotate x and y components of vector PVEC around angle
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 CS,SN,ANGLE
20 CS=COS(ANGLE)*PVEC(1)-SIN(ANGLE)*PVEC(2)
21 SN=SIN(ANGLE)*PVEC(1)+COS(ANGLE)*PVEC(2)