[u/mrichter/AliRoot.git] / TEvtGen / PHOTOS / phoro2.F

      SUBROUTINE PHORO2(ANGLE,PVEC)
C.----------------------------------------------------------------------
C.
C.    PHOTOS:   PHOton radiation in decays ROtation routine '2'
C.
C.    Purpose:  Rotate  x and z components  of vector PVEC  around angle
C.              'ANGLE'.
C.
C.    Input Parameters:  ANGLE, PVEC
C.
C.    Output Parameter:  PVEC
C.
C.    Author(s):  S. Jadach                       Created at:  01/01/89
C.                B. van Eijk                     Last Update: 02/01/90
C.
C.----------------------------------------------------------------------
      IMPLICIT NONE
      DOUBLE PRECISION CS,SN,ANGLE
      REAL*8 PVEC(4)
      CS=COS(ANGLE)*PVEC(1)+SIN(ANGLE)*PVEC(3)
      SN=-SIN(ANGLE)*PVEC(1)+COS(ANGLE)*PVEC(3)
      PVEC(1)=CS
      PVEC(3)=SN
      RETURN
      END
Commit	Line	Data
da0e9ce3	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