5 * Revision 1.1.1.1 1995/10/24 10:21:39 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 SUBROUTINE GSTCOR(CC,POT,X,DENS,DELTA)
15 C. *****************************************************************
17 C. * Sternheimer correction as computed in GDRELX *
20 C. * Author L.Urban ********* *
22 C. *****************************************************************
24 * condensed material ? ( dens .gt. 0.05 ? )
26 * IF(POT.LT.1.E-7) THEN (POT was in GeV, now in keV)
42 * gas ? ( dens . le . 0.05 ? )
45 IP=INT((CC-10.)/0.5)+1
63 AA=4.606*(XA-X0)/(X1-X0)**XM
68 IF(X.LT.X1) DELTA=DELTA+AA*(X1-X)**XM