5 * Revision 1.1.1.1 1995/10/24 10:21:53 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE AZIRN(SIN,COS)
13 #include "geant321/crandm.inc"
14 C THIS ROUTINE SELECTS THE AZIMUTHAL ANGLE UNIFORMLY IN THETA
20 IF(1.0-RSQ) 10 ,20 ,20
21 20 SIN = 2.0 * R1 * R2 / RSQ
22 COS = (R2SQ-R1SQ) / RSQ