| fe4da5cc |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| 5 | * Revision 1.1.1.1 1995/10/24 10:21:06 cernlib |
| 6 | * Geant |
| 7 | * |
| 8 | * |
| 9 | #include "geant321/pilot.h" |
| 10 | *CMZ : 3.21/02 29/03/94 15.41.40 by S.Giani |
| 11 | *-- Author : |
| 12 | SUBROUTINE DOTNUC(C,S,C2,S2,PR,I) |
| 13 | C |
| 14 | #if !defined(CERNLIB_SINGLE) |
| 15 | IMPLICIT DOUBLE PRECISION (A-H,O-Z) |
| 16 | #endif |
| 17 | DIMENSION PR(50) |
| 18 | K1 = 5*I - 4 |
| 19 | K2 = K1 + 1 |
| 20 | SA = PR(K1) |
| 21 | SB = PR(K2) |
| 22 | A = SA*C - SB*S |
| 23 | PR(K2) = SA*S + SB*C |
| 24 | K2 = K2 + 1 |
| 25 | B = PR(K2) |
| 26 | PR(K1) = A*C2 - B*S2 |
| 27 | PR(K2) = A*S2 + B*C2 |
| 28 | RETURN |
| 29 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame