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/pgauss.f | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 math/bevington/pgauss.f (limited to 'math/bevington/pgauss.f') diff --git a/math/bevington/pgauss.f b/math/bevington/pgauss.f new file mode 100644 index 00000000..56cf5d4e --- /dev/null +++ b/math/bevington/pgauss.f @@ -0,0 +1,25 @@ +c function pgauss.f +c +c source +c Bevington, page 45. +c +c purpose +c evaluate gaussian probability function +c +c usage +c result = pgauss (x, averag, sigma) +c +c description of parameters +c x - value for which probability is to be evaluated +c averag - mean of distribution +c sigma - standard deviation of distribution +c +c subroutines and function subprograms required +c none +c + function pgauss (x,averag,sigma) + double precision z +1 z=(x-averag)/sigma +2 pgauss=0.3989422804/sigma*dexp(-(z**2)/2.) + return + end -- cgit