22 if(u .lt. 3.16
d-5)
then 25 elseif(u .lt. 1.584
d-2)
then 27 ans = ((-0.5219002
e-02 *lu - 0.1067265)* lu
28 * -0.7421499 )*lu -0.7647935
29 ans = ans * u**2 * 3.9257
30 elseif(u .lt. 1.)
then 32 ans = ((0.1696074
e-01*lu + 0.1197285)*lu
33 * + 0.1439367
e-01)*lu + 0.5595450
e-01
34 ans = ans * u**2 * 3.9257
35 elseif(u .lt. 300.)
then 38 ans = (( 0.2566103
e-02*lu -0.3215703
e-01 )*lu
39 * + 0.9286942
e-01)*lu + 0.1500733
dE dx *! Nuc Int sampling table e
dE dx *! Nuc Int sampling table d
real *8 function cmbremi2(u)