Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gphys / gmoli1.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
62be6b28 5* Revision 1.1.1.1 1999/05/18 15:55:20 fca
6* AliRoot sources
7*
fe4da5cc 8* Revision 1.1.1.1 1995/10/24 10:21:27 cernlib
9* Geant
10*
11*
12#include "geant321/pilot.h"
13#if defined(CERNLIB_VER314)
14*CMZ : 3.21/02 29/03/94 15.41.22 by S.Giani
15*-- Author :
16 SUBROUTINE GMOLI1(AC,ZC,DENS,BETA2,OMC)
17C.
18C. ******************************************************************
19C. * *
20C. * Initializes material constants OMC,CHC for Moliere *
21C. * scattering (case of a simple material) *
22C. * *
23C. * ==>Called by : GMULOF *
24C. * Author M.S. Dixit NRCC Ottawa ********* *
25C. * *
26C. ******************************************************************
27C.
28C ZETA=factor for scattering by atomic electrons
29C
30 DATA ZETA / 1. /
31*
32* ------------------------------------------------------------------
33*
34 ZS=(1./AC)*ZC*(ZC+ZETA)
35 ZE=-0.66666*ZS*LOG(ZC)
36 ZX=ZS*LOG(1.+3.34*(ZC/(BETA2*137.036))**2)
37 OMC=6702.33*ZS*DENS*EXP((ZE-ZX)/ZS)
38*
39 END
62be6b28 40#else
41 SUBROUTINE GMOLI1_DUMMY
42 END
fe4da5cc 43#endif