5 * Revision 1.1.1.1 1995/10/24 10:21:21 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
13 C. ******************************************************************
15 C. * It calculates a weight factor for the positron discrete *
16 C. * (hard) bremsstrahlung cross section *
18 C. * Input:T kinetic energy (GeV) *
19 C. * C cut for bremsstrahlung (BCUTE) *
20 C. * ETA ratio of positron to electron brems cross section *
21 C. * Output: weight factor *
23 C. * ===> positron sigma = Fsig * electron sigma <=== *
25 C. * Author L. Urban *
27 C. ******************************************************************
30 IF(ETA.LT.0.0001) THEN
32 ELSEIF(ETA.GT.0.9999) THEN