blob: 20fcb7c3656e020fd6fe0857fbefa35802d2e16f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
c function ploren.f
c
c source
c Bevington, page 51.
c
c purpose
c evaluate lorentzian probability function
c
c usage
c result = ploren (x, averag, width)
c
c description of parameters
c x - value for which probability is to be evaluated
c averag - mean of distribution
c width - full width at half maximum of distribution
c
c subroutines and function subprograms required
c none
c
function ploren (x,averag,width)
1 ploren=0.1591549431*width/((x-averag)**2+(width/2.)**2)
return
end
|
