5 * Revision 1.1.1.1 1995/10/24 10:21:56 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/04 23/02/95 14.46.01 by S.Giani
12 C*********************************************************************
14 C*********************************************************************
15 C Sample secondary fission neutron energy from Watt spectrum
16 C taken from ORNL/TM-7631
21 Z=SQRT(-ALOG(RNDM(1)))
25 E1=A*((Z*COS(S)+X)**2-ALOGR3)
26 C-- E2=A*((Z*SIN(S)+X)**2-ALOGR3)
27 C distribution of E1 and E2 are identical