5 * Revision 1.1.1.1 1995/10/24 10:20:01 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.44 by S.Giani
15 *=== poli =============================================================*
17 SUBROUTINE POLI(CS,SI)
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
24 C--------------------------------------------------
25 C*** RANDOM CHOICE OF ANGLE TETA (CS = COS(TETA),SI = SIN(TETA)
26 C--------------------------------------------------
28 CS = 2.D+00 * RNDM(1) - 1.D+00
29 SI = SQRT( ( 1.D+00 - CS ) * ( 1.D+00 + CS ) )