]>
Commit | Line | Data |
---|---|---|
21886bb6 | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.3 2000/04/19 13:28:08 mclareni | |
6 | * Import version 8.04 | |
7 | * | |
8 | * Revision 1.2 2000/04/15 14:10:46 plothow | |
9 | * Version 8.03: Nuclear PDFs introduced | |
10 | * | |
11 | * Revision 1.1.1.1 1996/04/12 15:29:22 plothow | |
12 | * Version 7.01 | |
13 | * | |
14 | * | |
15 | #include "pdf/pilot.h" | |
16 | * | |
17 | C DOUBLE PRECISION FUNCTION GR94FW (X,S,AL,BE,AK,BK,A,B,C,D,E,ES) | |
18 | FUNCTION GR94FW (X,S,AL,BE,AK,BK,A,B,C,D,E,ES) | |
19 | C | |
20 | C+SEQ, IMPDP. | |
21 | IMPLICIT REAL (A - Z) | |
22 | C | |
23 | if (X.LE.0.) then | |
24 | GR94FW=0. | |
25 | return | |
26 | endif | |
27 | LX = LOG (1./X) | |
28 | GR94FW = (X**AK * (A + X * (B + X*C)) * LX**BK + S**AL | |
29 | 1 * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D | |
30 | RETURN | |
31 | END |