5 * Revision 1.1.1.2 1996/10/30 08:28:35 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:22 plothow
12 #include "pdf/pilot.h"
14 *...NLO PARAMETRIZATION (MS(BAR)) :
16 SUBROUTINE GRV94HO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL)
19 #include "pdf/expdp.inc"
20 + ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL
27 ARG1 = MAX(MU2,Q2)/LAM2
29 S = LOG ( LOG( ARG1 ) / LOG( ARG2 ))
34 NU = 1.304 + 0.863 * S
35 AKU = 0.558 - 0.020 * S
37 AU = -0.113 + 0.283 * S - 0.321 * S2
38 BU = 6.843 - 5.089 * S + 2.647 * S2 - 0.527 * S3
39 CU = 7.771 - 10.09 * S + 2.630 * S2
40 DU = 3.315 + 1.145 * S - 0.583 * S2 + 0.154 * S3
41 UV = GR94FV (X, NU, AKU, BKU, AU, BU, CU, DU)
44 ND = 0.102 - 0.017 * S + 0.005 * S2
45 AKD = 0.270 - 0.019 * S
47 AD = 2.393 + 6.228 * S - 0.881 * S2
48 BD = 46.06 + 4.673 * S - 14.98 * S2 + 1.331 * S3
49 CD = 17.83 - 53.47 * S + 21.24 * S2
50 DD = 4.081 + 0.976 * S - 0.485 * S2 + 0.152 * S3
51 DV = GR94FV (X, ND, AKD, BKD, AD, BD, CD, DD)
54 NE = 0.070 + 0.042 * S - 0.011 * S2 + 0.004 * S3
55 AKE = 0.409 - 0.007 * S
56 BKE = 0.782 + 0.082 * S
57 AE = -29.65 + 26.49 * S + 5.429 * S2
58 BE = 90.20 - 74.97 * S + 4.526 * S2
60 DE = 8.122 + 2.120 * S - 1.088 * S2 + 0.231 * S3
61 DEL = GR94FV (X, NE, AKE, BKE, AE, BE, CE, DE)
69 BGX = 3.210 - 1.866 * S
71 DX = 9.010 + 0.896 * DS + 0.222 * S2
72 EX = 3.077 + 1.446 * S
73 ESX = 3.173 - 2.445 * DS + 2.207 * S
74 UDB = GR94FW(X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, DX, EX, ESX)
77 ZUB = (ZUDB - ZDEL)/2.D0
79 ZDB = (ZUDB + ZDEL)/2.D0
83 AKS = 1.690 + 0.650 * DS - 0.922 * S
84 AS = -4.329 + 1.131 * S
85 BS = 9.568 - 1.744 * S
86 DST = 9.377 + 1.088 * DS - 1.320 * S + 0.130 * S2
87 EST = 3.031 + 1.639 * S
88 ESS = 5.837 + 0.815 * S
89 SB = GR94FWS (X, S, ALS, BES, AKS, AS, BS, DST, EST, ESS)
94 AKG = 1.724 + 0.157 * S
95 BKG = 0.800 + 1.016 * S
96 AG = 7.517 - 2.547 * S
97 BG = 34.09 - 52.21 * DS + 17.47 * S
98 CG = 4.039 + 1.491 * S
99 DG = 3.404 + 0.830 * S
100 EG = -1.112 + 3.438 * S - 0.302 * S2
101 ESG = 3.256 - 0.436 * S
102 GL = GR94FW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG)