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
12 REAL FUNCTION GAVRL2(GAMA,BETA,XM)
14 C. ******************************************************************
16 C. * L2 shell x-section a la Gavrila *
17 C. * Gama - L2 shell photoelectron gama *
18 C. * Beta - L2 shell photoelectron beta *
19 C. * XM - ratio of the electron mass to the photon energy *
21 C. * ==>CALLED BY : GPHOT *
22 C. * AUTHOR : J. Chwastowski *
24 C. ******************************************************************
26 #if !defined(CERNLIB_SINGLE)
27 DOUBLE PRECISION G,G2,G3,B,P1,P2,P3
33 P1 = (9*G3-5*G2+24*G-16)
36 IF(B.GT.0.0001) P3 = LOG(G*(1+B))/(B*G)
37 GAVRL2 = (P1+P2*P3)*B*G*XM**5