PDF version 8 added

[u/mrichter/AliRoot.git] / PDF / spdf / grvfgp.F

diff --git a/PDF/spdf/grvfgp.F b/PDF/spdf/grvfgp.F
new file mode 100644 (file)
index 0000000..19973c0
--- /dev/null
+++ b/PDF/spdf/grvfgp.F
@@ -0,0 +1,20 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.2  1996/10/30 08:28:36  cernlib
+* Version 7.04
+*
+* Revision 1.1.1.1  1996/04/12 15:29:23  plothow
+* Version 7.01
+*
+*
+#include "pdf/pilot.h"
+       FUNCTION GRVFGP (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES)
+       IMPLICIT REAL (A - Z)
+       DX = SQRT (X)
+       LX = ALOG (1./X)
+       GRVFGP = (X**AK * (AG + BG*DX + C*X) * LX**BK + S**AL
+     1       * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D
+       RETURN
+       END