From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- math/bevington/ploren.f | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 math/bevington/ploren.f (limited to 'math/bevington/ploren.f') diff --git a/math/bevington/ploren.f b/math/bevington/ploren.f new file mode 100644 index 00000000..20fcb7c3 --- /dev/null +++ b/math/bevington/ploren.f @@ -0,0 +1,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 -- cgit