10 lines
246 B
Fortran
10 lines
246 B
Fortran
function gauss_ener(x)
|
|
common /pawpar/ par(3)
|
|
sqpihalf=1.25331414
|
|
S2=1.414213562
|
|
fact1=10.*par(1)/sqpihalf/par(3)/erfc(-par(2)/s2/par(3))
|
|
c faktor 10 wegen 10keV binning im histogramm
|
|
gauss_ener=fact1*exp(-(x-par(2))**2/2/par(3)**2)
|
|
end
|
|
|