5 * Revision 1.1.1.1 1995/10/24 10:20:18 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
14 C. ******************************************************************
16 C. * COMPUTE SCREENING FACTOR FOR PAIR PRODUCTION AND BREM *
17 C. * REFERENCE : EGS MANUAL SLAC 210 - UC32 - JUNE 78 *
20 C. * ==>Called by : GSMIXT *
21 C. * Author M.Maire ********* *
23 C. ******************************************************************
25 DATA AL183 , AL1440 / 5.20948 , 7.27239 /
27 GXSI = (AL1440 - 2*ALZ) / (AL183 - ALZ - GFCOUL(Z))