Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gheisha / dotes2.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:01 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.39 by S.Giani
11*-- Author :
12 SUBROUTINE DOTES2(C,S,C2,S2,PR,I)
13C
14C *** DOUBLE PRECISION VERSION OF "ROTES2" ***
15C *** NVE 29-MAR-1988 CERN GENEVA ***
16C
17C CALLED BY : PHASP
18C ORIGIN : H.FESEFELDT (02-DEC-1986)
19C
20 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
21C
22 DIMENSION PR(50)
23C
24 K1 = 5*I - 4
25 K2 = K1 + 1
26 SA = PR(K1)
27 SB = PR(K2)
28 A = SA*C - SB*S
29 PR(K2) = SA*S + SB*C
30 K2 = K2 + 1
31 B = PR(K2)
32 PR(K1) = A*C2 - B*S2
33 PR(K2) = A*S2 + B*C2
34 RETURN
35 END