1 1***********************************************************************
5 * W5051 PDFLIB 1997.07.02 *
7 * --------------------------------------------------------------- *
9 * PDFLIB: Nucleon, Pion and Photon Parton Density Functions *
10 * and alpha(s) Calculations *
17 * H. Plothow-Besch/CERN-PPE *
20 * E-mail address: plothow@mail.cern.ch *
21 * Tel.: +41 - 22 - 767 39 80 *
23 * A complete manual in PostScript format exists on a separate file *
24 * Requests can be addressed to the CERN Program Library Office *
26 * Copyright by H. Plothow-Besch *
30 * This document describes an integrated package of Parton Den- *
31 * sity Functions called PDFLIB which has been added to the CERN *
32 * Program Library Pool W999 and is labelled as W5051. In this pack- *
33 * age all the different sets of parton density functions of the *
34 * NUCLEON, the PION and the PHOTON which are available today (about *
35 * 100 different sets) have been put together. All these sets have *
36 * been combined in a consistent way such that they all have similar *
37 * calling sequences and no external data files have to be read in *
38 * anymore. A default set has been prepared, although those prefering *
39 * their own set or wanting to test a new one may do so within the *
40 * package. The selection mode, the program parameters as well as *
41 * the possibilities to modify the defaults and to control errors *
42 * occured during execution are described. *
44 * The package offers as well a program to calculate the strong *
45 * coupling constant alpha(s) to first or second order (default). *
46 * The correct Lambda(QCD) associated to the selected set of struc- *
47 * ture functions and the number of allowed flavours with respect to *
48 * the given Q**2 is automatically used in the caculation. For those *
49 * structure functions where the evolution has been performed to *
50 * leading order only, an alpha(s) value fixed to first order is re- *
53 * The package is written in standard FORTRAN-77 and is avai- *
54 * lable on all CERN system areas. *
58 * Submitter: H. Plothow-Besch/CERN-PPE *
59 * Language: FORTRAN 77 *
69 ***********************************************************************
70 1***********************************************************************
73 * _______________________________________________________________ *
75 * | PDFLIB - User's Manual | *
77 * | CERN Computer Program Library entry W5051 | *
79 * | Copyright CERN, Geneva 1990, 1991, 1992, 1993, 1994, 1995 | *
80 * | Copyright CERN, Geneva 1996 | *
82 * | Copyright and any other appropriate legal protection of | *
83 * | these computer programs and associated documentation re- | *
84 * | served in all countries of the world. | *
86 * | These programs or documentation may not be reproduced | *
87 * | and/or redistributed by any method without prior written | *
88 * | consent of the Director-General of CERN or his delegate. | *
90 * | Permission for the scientific usage of any programs des- | *
91 * | cribed herein is granted apriori to those scientific in- | *
92 * | stitutes associated with the CERN experimental program or | *
93 * | with whom CERN has concluded a scientific collaboration | *
96 * | Commercial utilisation requires explicit a priori per- | *
97 * | mission from CERN and will be subjected to payment of a | *
100 * | These statements are without prejudice to any rights that | *
101 * | third parties may hold in these programs. | *
104 * | Requests for information should be addressed to: | *
106 * | CERN Computer Program Library Office | *
107 * | CERN-CN Division | *
108 * | CH-1211 Geneva 23 | *
110 * | Tel. +41 22 767 4951 | *
111 * | Fax. +41 22 767 7155 | *
112 * | Electronic Mail address: | *
114 * | Internet: cernlib@cern.ch | *
115 * |_____________________________________________________________| *
138 ******************************** - 1 - ********************************
139 1***********************************************************************
141 * Table of Contents *
144 * PROGRAM SUMMARY .......................................... 3 *
146 * PDFLIB : New version 7.09 ................................ 4 *
148 * 0. Major Differences compared to earlier Versions ........... 4 *
149 * 0.1 The actual Version 7.09 wrt Version 6.00 ............ 4 *
150 * 0.2 Version 6.00 wrt Version 5.00 ....................... 5 *
151 * 0.3 Version 5.00 wrt Version 4.00 ....................... 6 *
152 * 0.4 Version 4.00 wrt Version 3.00 ....................... 6 *
153 * 0.5 Version 3.00 wrt Version 2.00 ....................... 6 *
154 * 0.6 Version 2.00 wrt Version 1.00 ....................... 7 *
156 * 1. The Library of Parton Densities: PDFLIB ................. 10 *
157 * 1.1 Introduction ....................................... 10 *
158 * 1.2 Structure Functions of the Nucleon ................. 12 *
159 * 1.3 Structure Functions of the Pion .................... 12 *
160 * 1.4 Structure Functions of the Photon .................. 12 *
161 * 1.3 The Calling Sequence: PDG Format ................... 14 *
162 * 1.4 The Library PDFLIB ................................. 14 *
163 * 1.5 Calculations of the Strong Coupling Constant alpha(s)15 *
165 * 2. Applications of the Parton Densities Package PDFLIB ..... 10 *
166 * 2.1 Parameter Setting and Selection of Sets ............ 10 *
167 * 2.2 The Calling Sequence: PDFLIB Format ................ 12 *
168 * 2.3 The Calling Sequence: PDG Format ................... 14 *
169 * 2.4 Error Handling ..................................... 14 *
170 * 2.5 Features ........................................... 15 *
171 * 2.6 How to find PDFLIB ................................. 18 *
173 * 3. PION and PHOTON Parton Densities 18 *
175 * 4. alpha(s) Calculation 18 *
177 * 5. Conclusions 19 *
179 * 6. Acknowledgements 21 *
184 * A : Example of how to use PDFLIB ........................ 22 *
185 * B : List of subprograms and COMMON blocks in PDFLIB *
186 * which are relevant to the user ...................... 25 *
187 * C : Complete list of subprograms in PDFLIB .............. 26 *
189 * List of Tables 34 *
207 ******************************** - 2 - ********************************
208 1***********************************************************************
213 * Titel of Program : PDFLIB, version 7.09 *
215 * Catalogue number : W5051 in the CERN Computer Program Library *
217 * Program obtainable from : CERN Computer Program Library Office *
219 * Computer for which the program is designed and others on which it *
221 * Computer : IBM 3090, VAX, IBM-RISC, DECS, SUN, APOLLO, HP-UX, *
222 * Silicon Graphics, NEXT, CDC, CRAY, IBM-PC *
224 * Operating systems : VM/CMS, VAX/VMS, Unix, Windows NT *
226 * Programming language used : FORTRAN 77, program is available in *
229 * Number of lines in distributed progam, *
230 * including test data, etc : 192 000 *
233 * including testprograms and some documentation : 25 Mbytes *
234 * (Source code: 10 Mbytes, Library: 10 Mbytes) *
236 * No. of bits in a word : 64 *
238 * Peripherals used : line printer (optional) *
240 * Keywords : parton density functions, structure functions, W5051, *
241 * nucleon-, proton-, pion-, photon density parametrisa- *
242 * tions, Altarelli-Parisi equation, strong coupling *
243 * constant alpha(s) *
245 * Nature of physical problem : *
246 * All theoretical calculations of cross sections involving the *
247 * hadronic structure of the incoming particles, i.e. protons, pions *
248 * or photons, use the parton density at a given longitudinal momen- *
249 * tum X of the parton and at a given momentum transfer Q**2. There *
250 * is a variety of parametrisations available, but each of them has *
251 * its own structure for input and/or output. *
253 * Method of solution : *
254 * Collection of all available parton density parametrisations and *
255 * application in an identical format for all of them, regardless of *
256 * the author's convention or of the particle type. *
259 * [1] H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) *
260 * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, *
261 * 1991.03.21, CERN-PPE. *
262 * [2] H. Plothow-Besch, 'PDFLIB: a library of all available parton *
263 * density functions of the nucleon, the pion and the photon and *
264 * the corresponding alpha(s) calculations', *
265 * Comp. Phys. Comm. 75 (1993) 396-416. *
266 * [3] H. Plothow-Besch, 'The Parton Distribution Function Library', *
267 * Int. J. Mod. Phys. A10 (1995) 2901-2910. *
276 ******************************** - 3 - ********************************
277 1***********************************************************************
279 * 0. Major Differences compared to earlier Versions *
282 * 0.1 The actual Version 7.09 wrt Version 6.00: *
285 * The following major changes compared to version 6.00 of PDFLIB *
286 * have been implemented: *
288 * Several NUCLEON structure function sets have been added: *
290 * - the NLL sets A of Martin Roberts and Stirling (MRS-A lQ) for *
291 * low Q**2 of May 1995 in the DIS and the MS_bar renormalisation *
292 * schemes, as well as the NLL sets A' for 6 different values of *
293 * alpha_s (MRS-Ap-150, MRS-Ap-201, MRS-Ap-266, MRS-Ap-344, *
294 * MRS-Ap-435, MRS-Ap-542), the J and J' sets (MRS-J and MRS-Jp) *
295 * of May 1996 which include the high p_T-jet data of the TEVA- *
296 * TRON, and the latest MRS sets R1 to R4 (MRS-R1, MRS-R2, *
297 * MRS-R3, MRS-R4) of May 1996 with grid data as well as in its *
298 * parametrized form (MRS-R1-F) and (MRS-R2-F); *
299 * - version 4 of the CTEQ group of June 1996 as NLL parametrisa- *
300 * tion in the $\overline{MS}$ as well as in the DIS renormalisa- *
301 * tion scheme and as LO (CTEQ4M, CTEQ4D, CTEQ4L), the CTEQ4M set *
302 * for 5 different values of alpha_s (CTEQ4A1, CTEQ4A2, CTEQ4A3, *
303 * CTEQ4A4, CTEQ4A5), a set which includes the high $p_T$-jet *
304 * data of the TEVATRON (CTEQ4HJ), and a set for low Q**2 *
306 * - the new sets of Gl"uck, Reya, Stratmann and Vogelsang as LO *
307 * and of August 1995 as NLL in the MS_bar renormalisation scheme *
308 * of polarized parton distributions in a 'standard' and a *
309 * 'valence' fit version (GRSVpolS, GRSVpolV). A special COMMON *
310 * block (COMMON /GRSVA1/ A1P, A1N, A1D) transmits directly the *
311 * spin asymmetries of the proton, the neutron and the deuteron. *
313 * A NEW GROUP of authors of PHOTON structure function sets has been *
316 * - the 4 old LO sets of Schuler and Sjostrand of March 1995, as *
317 * well as the 4 LO sets of their revised version of May 1996 *
318 * (SaS-G-1D, SaS-G-1M, SaS-G-2D, SaS-G-2MD). *
320 * Several new PHOTON structure function sets have been added: *
322 * - the recent LO set of Gl"uck, Reya and Stratmann of February *
324 * - the recent LO and HO sets of Gordon and Storrow of August 1996 *
325 * (GS-G-LO, GS-G-HO). *
327 * To take into account the need for more input parameters for parton *
328 * densities of the photon a NEW SUBROUTINE STRUCTP has been added *
329 * which should be called instead of STRUCTM in case of applications *
332 * Several CORRECTIONS to existing structure function sets have been *
335 * - to account for heavy quark contributions (c and b) in the *
336 * nucleon parton densities of Gl"uck, Reya and Vogt (GRV94), *
337 * now automatically the OLD GRV parton densities of 1992 are *
338 * called for c and b quarks as advised in their paper; *
339 * - corrections for LINNUX-systems suggested by V. Balashov have *
340 * been taken into account. *
342 * A BUG in the data tables for the parton densities of the photon of *
343 * the set of Aurenche, Fontannaz and Guillet (AFG-G) has been fixed. *
345 ******************************** - 4 - ********************************
346 1***********************************************************************
348 * More details can be found on the next pages of this updated *
351 * The response from the Physics community has been very satis- *
352 * factory, which is encouraging us to keep up-to-date with the *
353 * latest developments in this area. The author will be pleased to *
354 * learn about new parton density functions, as well as to receive *
355 * suggestions to improve both, the usage and the documentation. *
356 * Please send your comments to plothow@mail.cern.ch. *
361 * 0.2 Version 6.00 wrt Version 5.00: *
364 * The following major changes compared to version 5.00 of PDFLIB *
365 * have been implemented: *
367 * Several NUCLEON structure function sets have been added: *
369 * - the NLL sets A' and G of Martin, Roberts and Stirling (MRS-Ap) *
370 * and (MRS-G) of February 1995 with grid data as well as in its *
371 * parametrized version (MRS-Ap-F) and (MRS-G-Fit), *
372 * - the version 3 of the CTEQ group of October 1994 as NLL parame- *
373 * trisation in the MS_bar as well as in the DIS renormalisation *
374 * scheme and as LO (CTEQ3M, CTEQ3D, CTEQ3L), *
375 * - the new sets of GRV of November 1994 as NLL in the MS_bar as *
376 * well as in the DIS renormalisation scheme and as LO GRV *
377 * (GRV94-MS, GRV94DI, GRV94-LO). *
379 * A NEW group of PHOTON structure function sets have been added: *
381 * - the six NLL sets of the WHIT group (WHIT1-G to WHIT6-G). *
383 * Please note that as new the default set the MRS set (G) has been *
384 * chosen (NPTYPE = 1, NGROUP = 3, NSET = 41). *
389 * 0.3 Version 5.00 wrt Version 4.00: *
392 * The following major changes compared to version 4.00 of PDFLIB *
393 * have been implemented: *
395 * NUCLEON structure function sets have been added: *
397 * - the NLL set A of Martin, Roberts and Stirling (MRS-A) and the *
398 * parametrized version (MRS-A-Fit) *
399 * PHOTON structure function sets have been added: *
400 * - the NLL set of Aurenche, Fontannaz and Guillet (AFG-G). *
405 * 0.4 Version 4.00 wrt Version 3.00: *
408 * The following major changes compared to version 3.00 of PDFLIB *
409 * have been implemented: *
411 * NUCLEON structure function sets have been updated or added: *
414 ******************************** - 5 - ********************************
415 1***********************************************************************
417 * - the updated NLL sets of Martin, Roberts and Stirling (MRS) of *
418 * November 1992, the sets S0', D0' and D-' in the MSbar as well *
419 * as the sets S0', D0' and D-' in the DIS renormalisation *
420 * scheme. Please note that the previous S0, D0 and D- sets have *
421 * been retracted by the authors. The new MRS(H) set in both *
422 * schemes have also been added, *
423 * - the NLL and LO sets of the CTEQ collaboration (CTEQ) in its *
424 * parametrised form of January 1993. These are the sets 1M, 1MS *
425 * and 1ML in the MSbar, the set 1D in the DIS renormalisation *
426 * scheme and the LO set 1L, *
427 * - the new NLL sets A and B of Berger and Meng (BM) of *
428 * February 1993 with special gluon distributions, and finally *
429 * - the new NLL and LO sets of the CTEQ collaboration (CTEQ) in *
430 * its parametrised form of August 1993. These are the sets 2M, *
431 * 2MS, 2MF and 2ML in the MSbar, the set 2D in the DIS renorma- *
432 * lisation scheme and the LO set 2L. The revised CTEQ2 version, *
433 * CTEQ2p, of November 1993 is recommended by the authors. *
435 * Please note that the default set has been put to the GRV set HO *
436 * (NPTYPE = 1, NGROUP = 5, NSET = 3 / former MODE = 72). *
438 * The MOST DRASTICAL change of the package has been, however, the *
439 * NEW FORMAT of PARAMETER SETTINGS. Instead of using only ONE para- *
440 * meter (MODE) to select a set of parton density functions (PDF), *
441 * each PDF set is now identified by THREE parameters. These are *
442 * NPTYPE, NGROUP and NSET, for PARTICLE TYPE (Nucleons, Pions or *
443 * Photons) AUTHOR GROUP (f.ex. MRS, CTEQ, GRV, etc) and the PARAME- *
444 * TRISATION SET within the group. Therefore the user should provide *
445 * THREE parameters (NPTYPE, NGROUP, NSET) to the subroutine PDFSET, *
446 * each time a PDF set shall be selected. But to make life nice and *
447 * easy, it is also possible to select a PDF set by transferring only *
448 * ONE parameter to PDFSET as before: this parameter should then *
449 * identify the NAME of the author group in an unequivocal way; the *
450 * selection of the PDF set within the author group is made by the *
451 * corresponding VALUE value (f.ex. PARM(1) = 'MRS' with VALUE(1) = *
452 * 29.0D0 would select the 29th set of the Nucleon PDFs of MRS, and *
453 * f.ex. PARM(1) = 'GRVph' with VALUE(1) = 1.0D0 would select the *
454 * first set of the Photon PDFs of GRV). As a suggestion, the NAME for*
455 * each PDF set can be found in the NEW COMMON block /W505110/SFNAME, *
456 * where SFNAME is a CHARACTER*8 array with dimension SFNAME(NPTYMX, *
457 * NGRMAX,NSETMX), and NPTYMX, NGRMAX, NSETMX are defined by the *
458 * parameter sequence, +SEQ, W5051P2. In case the user wants to se- *
459 * lect the DEFAULT, it is sufficient to transfer as the ONLY parame- *
460 * ter PARM(1) = 'Nset' with VALUE(1) = 0.0D0. This change of format *
461 * had been necessary to take into account the inflationary growing *
462 * number of PDFs until now and to foresee already the possibility of *
463 * adding new PDFs in a more flexible way. Please note that in case *
464 * of any INCONSISTANCY of parameter settings, the DEFAULT setting is *
467 * WARNING : Please also note that the internal COMMON block /W50511/ *
468 * has been modified to /W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS. *
470 * A new feature, PDFLIB in quiet mode, has been implemented. If the *
471 * user does not want to see any output from PDFLIB, not even the *
472 * version number, he/she must set the parameter PARM(1)='first' with *
473 * value VAL(1)=0.D0. Under this condition any output is suppressed. *
475 * Full backward compatibility with previous versions is ensured !! *
476 * This means that old programs using PDF sets up to version 3.00 of *
477 * PDFLIB should run without ANY change. To ensure this, four new *
478 * COMMON blocks have been added: *
480 * - /W50519/ NEWVER : to flag the NEW/OLD version with the *
481 * LOGICAL variable NEWVER, *
483 ******************************** - 6 - ********************************
484 1***********************************************************************
486 * - /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) : *
487 * to provide the actual maximum number of parametrisation sets *
488 * per particle type and author group, and to flag the retracted *
489 * PDF sets (NSETFL(I,J,K) = 0), *
490 * - /W505121/ NPTYCR(MODEMX),NGROMX(MODEMX),NSETCR(MODEMAX) : *
491 * to provide the cross reference to the NPTYPE, NGROUP and NSET *
492 * value (NEW format) for a given MODE value (OLD format), *
494 * - /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) : to provide the *
495 * cross reference to the MODE value (OLD version) for a given *
496 * NPTYPE, NGROUP and NSET value (NEW format). In case of the *
497 * above added PDF sets NO MODE value is available; in that case *
498 * MODECR(I,J,K) = -1 is returned. *
503 * 0.5 Version 3.00 wrt Version 2.00 *
506 * The following major changes compared to version 2.00 of PDFLIB *
507 * had been implemented: *
509 * NUCLEON structure function sets had been updated or added: *
511 * - the NLL set of Aurenche et al. (ABFOW), *
512 * - the updated NLL set of Kwiecinski, Martin, Roberts and *
513 * Stirling (KMRS) set B0 with u_bar not equal to d_bar *
515 * - the new NLL sets of Martin, Roberts and Stirling (MRS) *
516 * set S0, D0 and D- with u_bar not equal to d_bar of April 1992. *
518 * Please note that the default set had been put to the MRS set S0 *
521 * PION structure function sets had been added: *
523 * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV-P) *
525 * - the new sets 2 and 3 of Aurenche et al. (ABFKW-P). *
527 * Please also note that the ABFKW set had changed MODE number from *
528 * 110 -> 180, as well as the SMRS sets from 120ff -> 130ff, and *
529 * that earlier inconsistencies in the parton density definitions *
530 * had been corrected. *
532 * For the first time also PHOTON structure function sets had been *
533 * added to the package. These sets were the following: *
535 * - the old Duke and Owens (DO-G) LO and NLL sets, *
536 * - the old LO sets 1 to 4 of Drees and Grassie (DG-G), *
537 * - the new LO sets 1 to 3 of Abramowicz, Charchula and Levy *
539 * - the new LO sets 1 and 2 and the NLL set of Gordon and Storrow *
540 * (GS-G) of July 1991, *
541 * - the new LO and NLL sets, as well as the leading term of the *
542 * NLL calculation of Gl"uck, Reya and Vogt (GRV-G) *
543 * of December 1991, *
544 * - the new NLL sets of Aurenche et al. (ACFGP-G) of April 1992. *
546 * Some improvements in the usage of the package had been made: *
548 * - more protections had been implemented and inconsistencies *
549 * had been corrected to make the package more robust and *
550 * available on ALL system areas, and finally *
552 ******************************** - 7 - ********************************
553 1***********************************************************************
555 * - the subroutine STRUCTM had been added. STRUCTM is basically *
556 * the same routine as the old steering subroutine STRUCTF apart *
557 * from ONE additional parameter in the argument list which had *
558 * been added to transfer separately the parton densities for *
559 * u_bar and d_bar. The argument list of the subroutine STRUCTF *
560 * was as before; in case of STRUCTF sea = (u_bar + d_bar)/2 is *
561 * transferred. The subroutine PFTOPDG, which is the sterring *
562 * routine in PDG format, was unchanged; this routine always *
563 * transferred u_bar and d_bar separately. *
568 * 0.6 Version 2.00 wrt Version 1.00 *
571 * The following major changes compared to version 1.00 of PDFLIB *
572 * had been implemented: *
574 * New parton density functions of the NUCLEON had been added: *
576 * - the old LO set of Buras and Gaemers of 1978 (BEBC) for com- *
578 * - all the LO sets of Diemoz, Ferroni, Longo and Martinelli (DFLM)*
579 * including their parametrisation for the NLL average fit, *
580 * - the new LO set 1.1 of Owens (DO 1.1) of June 1991, *
582 * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV) of *
585 * PION structure function sets had been added to the package: *
587 * - the old Owens (OW-P) sets 1 and 2, *
588 * - the newer Aurenche et al. (ABFKW-P) set and *
589 * - the new Sutton, Martin, Roberts and Stirling (SMRS-P) sets 1, *
592 * Some improvements in the usage of the package had been made: *
594 * - COMMON block names had been changed to avoid interference *
595 * to those defined by the user (/IMODE/ -> /W50511/, *
596 * /ALAMB/ -> /W50512/), *
597 * - three new COMMON blocks had been added: *
598 * a) /W50513/ XMIN,XMAX,Q2MIN,Q2MAX : *
599 * to provide the minimum and maximum values of X and Q**2 for *
600 * each set of structure functions, *
601 * b) /W50510/ IFLPRT : *
602 * to provide a print flag at different levels to print *
603 * b.1) the variables of the three COMMON blocks *
604 * /W50511/, /W50512/ and /W50513/ at job initialisation *
605 * b.2) error messages during job execution *
606 * c) /W50514W/ PDFWGT : *
607 * to take into account the event weight for error counting *
608 * - a subroutine PDFSTA had been added to allow at job termination *
609 * for a summary how often X and Q**2 limits have been exceeded, *
610 * - the MODE number of some structure functions had been changed *
611 * to keep consistensy, *
612 * - the number of parameters which can be set through the sub- *
613 * routine PDFSET had been extended to 20, *
614 * - more protections had been implemented and inconsistencies *
615 * had been corrected to make the package more robust, *
617 * - a subroutine PFTOPDG had been provided as an interface for *
618 * those users who prefer the flavour code convention of the PDG *
619 * instead of the PDFLIB format. *
621 ******************************** - 8 - ********************************
622 1***********************************************************************
624 * 1. The Library of Parton Densities: PDFLIB *
627 * 1.1. Introduction *
630 * Perturbative QCD describes the $Q^2$ dependence of the parton *
631 * densities through the solution of the Altarelli-Parisi equations. *
632 * Its predictive power is given by the universality of these densi- *
633 * ties. Usually these densities are extracted from precision mea- *
634 * surements in fixed-target experiments of a given process at some *
635 * scale - recently they have also been extracted from the HERA ep- *
636 * collision experiments -, and then used to perform calculations for *
637 * different reactions in an extrapolated range of $Q^2$ provided *
638 * that the elementary cross sections at the parton level are known. *
639 * To be able to predict cross sections for a wide range of hard *
640 * scattering processes, it is of fundamental importance to have a *
641 * reliable and precise set of parton density distributions, together *
642 * with a precise value of the strong coupling constant alpha_s. *
643 * Therefore the momentum distributions of quarks and gluons are key *
644 * ingredients for the lepton-lepton, lepton-hadron and hadron-hadron *
645 * collider phenomenology, whenever the hadronic structure of nucle- *
646 * ons, pions or photons is involved. Apart from the obvious applica- *
647 * tions mentioned above, the study of parton distributions provides *
648 * also information about flavour dependence, isospin symmetry, par- *
649 * tons in nuclei, sum rules, polarized parton distibutions, etc.. *
650 * For any application the parton densities should therefore be *
651 * sufficiently well known, and the different sets should be easily *
657 * 1.2. Structure Functions of the Nucleon *
660 * The number of sets of parton density functions of the NUCLEON *
661 * available today is about 70 and is still growing. The older sets *
662 * are leading order (LO) evolutions of the Altarelli-Parisi equa- *
665 * - Buras and Gaemers (BEBC) [1], *
666 * - Owens and Reya (OR) [2], *
667 * - Baier, Engels and Petersson (BEP) [3], *
668 * - Gl"uck, Hoffmann and Reya (GHR) [4], *
669 * - Duke and Owens (DO) sets 1 and 2 [5], *
670 * - Eichten, Hinchliffe, Lane and Quigg (EHLQ) sets 1 and 2 [6], *
671 * - Diemoz, Ferroni, Longo and Martinelli (DFLM) [7] with *
672 * Lambda_4(QCD) = 200 MeV for soft and hard valence quark and *
673 * soft and hard gluon distributions], *
677 * - the set 1.1 of Owens (DO 1.1) [8], replacing the DO [5] sets 1 *
680 * Most of the sets, essentially the more recent ones, are *
681 * next-to-leading order evolutions, like *
683 * - Diemoz, Ferroni, Longo and Martinelli (DFLM) with *
684 * Lambda_4(QCD) = 160, 260, 360 MeV [7], *
685 * - Martin, Roberts and Stirling (MRS) sets 1 to 3, sets E and B *
686 * and sets E' and B' [9], *
687 * - Harriman, Martin, Roberts and Stirling (HMRS) sets E, E+, E- *
690 ******************************** - 9 - ********************************
691 1***********************************************************************
693 * - Kwiecinski, Martin, Roberts and Stirling (KMRS) [11] sets B0 *
694 * and B-, and for the B- set with different radii for shadowing, *
695 * - Martin, Roberts and Stirling (MRS-B Lambda) [11] for the B0 *
696 * set also with different values of Lambda_4(QCD) = 135, 160, *
698 * - Martin, Roberts and Stirling (MRS) [12] sets S0, D0 and D- *
699 * as well as the upgraded KMRS set B0, all having u_bar not *
701 * - Morfin and Tung (MT) sets 1 to 6 [13], *
702 * - Gl"uck, Reya and Vogt (GRV) [14] including their new para- *
703 * metrisation from August 1991, *
704 * - the set of Aurenche et al. (ABFOW) [15], *
705 * - the upgraded Martin, Roberts and Stirling (MRS) [16] sets *
706 * S0', D0' and D-' as well as the more recent MRS(H) set, all in *
707 * both, the MS_bar and the DIS renormalisation schemes, *
708 * - the upgraded Martin, Roberts and Stirling (MRS) [17] sets *
709 * S0', D0' and D-' in the DIS renormalisation scheme and MRS(H), *
710 * - the Berger and Meng (BM) [17] sets 1 and 2 with special gluon *
712 * - the two first versions of the CTEQ collaboration (CTEQ1 and *
714 * - the set of Martin, Roberts and Stirling (MRS-A) [19] in form *
715 * of a grid and in form of a parametrisation, *
716 * - the two sets of Martin, Roberts and Stirling (MRS-A' and *
717 * MRS-G) [20] in form of a grid and in form of a parametrisation,*
718 * - the third versions of the CTEQ collaboration (CTEQ3) [21], *
719 * - the 1994 set of Gl\"{u}ck, Reya and Vogt (GRV) [22], *
720 * - the recent sets of Martin, Roberts and Stirling for low Q^2 *
721 * (MRS-A lQ) [23] and the MRS-A' sets for 6 different values of *
722 * alpha_s (MRS-Ap-150 to MRS-Ap-542) [24], *
723 * - the more recent sets of Martin, Roberts and Stirling (MRS-J *
724 * and MRS-Jp) [25] and the latest sets R1 to R4 (MRS-R1 to *
725 * MRS-R4) [26] in form of a grid and in form of a parametrisa- *
727 * - the fourth versions of the CTEQ collaboration (CTEQ4) [27], *
731 * - the LO and NLL sets of Gl\"{u}ck, Reya, Stratmann and *
732 * Vogelsang (GRSV) [28] of polarized parton densities, *
734 * The different NLL sets use either the DIS [44] or the MS_bar *
735 * renormalisation scheme. Some of the sets are available in both *
736 * renormalisation schemes. All sets are made using four flavours in *
737 * the initial state (NF = 4). The value of the QCD scale factor, *
738 * Lambda_4(QCD), ranges from 45 to 500 MeV. *
740 * A summary of all parton density functions of the NUCLEON avai- *
741 * lable in the package can be found in Table 1. *
759 ******************************* - 10 - ********************************
760 1***********************************************************************
762 * 1.3. Structure Functions of the Pion *
765 * There is also a limited number of parton density functions of *
766 * the PION available. These are the old set to leading order evolu- *
769 * - Owens (OW-P) [29], sets 1 and 2, *
771 * and the next-to-leading order evolutions of *
773 * - Aurenche et al. (ABFKW-P) [30], sets 1, 2 and 3, *
774 * - Sutton, Martin, Roberts and Stirling (SMRS-P) [31], sets 1, 2 *
776 * - Gl"uck, Reya and Vogt (GRV-P) [32], the LO and NLL sets. *
778 * A summary of all parton density functions of the PION availble *
779 * in the package can be found in Table 2. *
784 * 1.4. Structure Functions of the Photon *
787 * In addition there are also a few parton density functions of *
788 * the PHOTON available. These are the old sets to leading order evo- *
791 * - Duke and Owens (DO-G) (and the NLL) [33] using an asymptotic *
792 * solution of the Altarelli-Parisi equation, *
793 * - Drees and Grassie (DG-G) sets 1 to 4 [34] using a full solu- *
794 * tion of the Altarelli-Parisi equation, *
795 * - Abramowicz, Charchula and Levy (LAC-G) [35] sets 1 to 3 using *
796 * a full solution of the Altarelli-Parisi equation, *
800 * - Watanabe, Hagiwara, Izubuchi and Tanaka (WHIT1 to WHIT6) [36], *
802 * and the next-to-leading order evolution of *
804 * - Gordon and Storrow (GS-G) [37], the LO sets 1 and 2 and the *
806 * - Gl"uck, Reya and Vogt (GRV-G) [38], the LO, NLL and the *
807 * leading term of the NLL sets, *
808 * - Aurenche et al. (ACFGP-G) [39] sets 1 and 2, without and with *
813 * _ the LO and NLL sets of Aurenche, Fontannaz and Guillet, *
816 * Recently new sets of of the parton densities of the photon have *
819 * - Schuler and Sjostrand (SaS-G) [41], *
820 * - the new sets of Gl"uck, Reya and Stratmann (GRG-G) [42], *
822 * - the new sets LO and NLL of Gordon and Storrow (GS-G) [43]. *
824 * A summary of all parton density functions of the PHOTON avai- *
825 * lable in the package can be found in Table 3. *
828 ******************************* - 11 - ********************************
829 1***********************************************************************
831 * 1.5 The Library PDFLIB *
834 * We have put together all these different sets of parton density *
835 * functions in ONE SINGLE PACKAGE [45]. This library PDFLIB can be *
836 * found in and obtained from the CERN Computer Program Library under *
837 * the registration number W5051. *
839 * Please notice that the use of the PDFLIB library does not pre- *
840 * vent to consult the publications of the different authers, which *
841 * can be found in the bibliography of this manual, for details about *
842 * each parton density function. *
844 * We have modified the sets such that NO external data files for *
845 * the grids have to be read in anymore. All these structure function *
846 * sets have been combined in a consistent way such that they all *
847 * appear in an IDENTICAL STRUCTURE to the user. The selection is *
848 * made via THREE parameters, NPTYPE, NGROUP and NSET, which identify *
849 * a PDF set by its PARTICLE TYPE (Nucleon: NPTYPE = 1, *
850 * Pion: NPTYPE = 2, Photon: NPTYPE = 3), its AUTHOR GROUP (f.ex. *
851 * MRS: NGROUP = 3, CTEQ: NGROUP = 4, GRV: NGROUP = 5) and its PDF *
852 * SET WITHIN THE GROUP (NSET = 1,2,3 etc.). These parameters should *
853 * be set with a call to subroutine PDFSET at the initialization *
854 * phase. A simple SUBROUTINE call, which is IDENTICAL for all appli- *
855 * cations (nucleons, pions, photons) returns the parton densities *
856 * for all partons (u, d, s, c, b, t, gluon and their antiquarks) at *
857 * a given X value (where X is the fraction of the longitudinal *
858 * momentum carried by the parton) and the Q-scale SCALE (in GeV). *
859 * A DEFAULT set has been prepared, although those preferring their *
860 * OWN PRIVATE set or wanting to test a NEW one may do so within the *
861 * package. Error control can be obtained by setting a print flag to *
862 * obtain output either during execution and/or as a summary at job *
863 * termination via a call to the subroutine PDFSTA. *
865 * The source code of the different parton density sets has been *
866 * modified in such a way that the library can be used on all the *
867 * different computer systems known today. Full backward compatibi- *
868 * lity will always be assured. PDFLIB has been run under different *
869 * operating systems like VM/CMS, VAX/VMS and ULTRIX without pro- *
870 * blems. The library has been tested on the different system areas *
871 * to ensure identical results within the given machine precision. *
872 * The program has been run and tested on the following computers: *
873 * IBM 3090, VAX, IBM-RISC, DECS, SUN, APOLLO, HP-UX, Silicon *
874 * Graphics, CDC, CRAY, IBM-PC. The programming language is *
875 * FORTRAN 77. The actual source code manager system used is CVS. *
876 * The required memory storage including testprograms and some docu- *
877 * mentation is about 25 Mbytes. The latest edition (July 1997) *
878 * is version 7.09 and can be requested from the CERN Computer *
879 * Program Library. To run PDFLIB a link to the CERN library *
880 * (PACKLIB, MATHLIB and KERNLIB) is required. *
884 * 1.6. Calculation of the Stroing Coupling constant alpha(s) *
887 * Within the SAME package a program is also provided to calculate *
888 * the strong coupling constant alpha(s) to second order (default) *
889 * or to first order (by user's choice). The correct Lambda(QCD) as- *
890 * sociated to the selected set of structure functions and the number *
891 * of allowed flavours with respect to the given Q**2 is automati- *
892 * cally used in the calculation. For those structure functions where *
893 * the evolution has been performed to leading order only, the *
894 * alpha(s) value to first order is returned. *
897 ******************************* - 12 - ********************************
898 1***********************************************************************
900 * 2. Application of the Parton Density Package PDFLIB *
903 * In the following the use of and the access to the PDFLIB pack- *
904 * age is described. *
908 * 2.1 Parameter Setting and Selection of Sets *
911 * To access his/her preferred set of structure functions the user *
912 * must define the THREE parameters, NPTYPE, NGROUP and NSET, which *
913 * identify each set of parton density functions via a call to the *
916 * CALL PDFSET(PARM,VALUE) *
918 * at the initialization phase of his/her MAIN program, or use the *
919 * package as a 'black box' with the default values (see below). An *
920 * example of the application of PDFLIB is given in the appendix. The *
921 * arguments PARM and VALUE are VECTORS of DIMENSION 20 and have the *
922 * following meaning *
924 * PARM(I) = character*20 variable, which defines in any order *
926 * 'NPTYPE', 'NGROUP', 'NSET', 'MODE', 'INIT0', *
927 * 'NFL', 'LO', 'TMAS', 'QCDL4', 'QCDL5' and *
928 * 'XMIN', 'XMAX', 'Q2MIN', 'Q2MAX' *
929 * VALUE(I) = the corresponding numerical value of the variable *
931 * (TMAS, QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX *
932 * are DOUBLE PRECISION variables), *
936 * NPTYPE = number of particle type ranging from 1 to 3 *
937 * (Nucleons: NPTYPE = 1, Pions: NPTYPE = 2 and *
938 * Photons: NPTYPE = 3) *
939 * (Default: NPTYPE = 1) *
940 * NGROUP = number of author group ranging from 1 to 9 *
941 * (Default: NGROUP = 3) *
942 * NSET = number of a selected structure function set within *
943 * the author group ranging from 1 to 58 *
944 * (Default: NSET = 41) *
945 * (MODE = number of a selected structure function set ranging *
946 * from 0 to 281 - OLD format !!) *
947 * (Default: MODE = 45) *
948 * INIT0 = in case of PARM(1) = 'INIT0' PDFSET fills as the *
949 * only action the COMMON blocks /W505110/, /W505120/ *
950 * /W505121/ and /W505122/ *
951 * NFL = desired number of flavours in the alpha(s) calcula- *
952 * tion ranging from 3 to 6 *
953 * (Default: NFL = 5) *
954 * LO = order of alpha(s) calculation; if LO = 1, alpha(s) *
955 * to first order only *
956 * (Default: LO = 2) *
957 * TMAS = the user defined value of the top-quark mass in *
958 * GeV/c**2 (optional) *
959 * (Default: TMAS = 180.0D0) *
960 * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours *
961 * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours *
962 * corresponding to QCDL4 *
966 ******************************* - 13 - ********************************
967 1***********************************************************************
969 * XMIN = minimum allowed X value *
970 * XMAX = maximum allowed X value *
971 * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) *
972 * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) *
974 * for each set of structure functions. *
976 * Please also note that PDFSET can be called as often as the user *
977 * likes. In order to redefine the parameters to select other sets of *
978 * structure functions which the user wants to investigate, it might *
979 * be necessary to call PDFSET in an alternating way, but it is al- *
980 * ways mandatory to transfer either the THREE parameters, NPTYPE, *
981 * NGROUP, NSET, or the 'NAME' of the author group with their corres- *
982 * ponding VALUE values. The subroutine PDFSET fills the internal *
985 * COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS *
986 * COMMON/W50512/ QCDL4,QCDL5 *
987 * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX *
989 * at the time the routine is called. Please note that in case of a *
990 * multiple call to PDFSET with fewer parameters redefined than in a *
991 * preceeding call, always the last parameters are kept in memory. *
992 * All variables of the three COMMON blocks can be automatically *
993 * printed at job initialisation by setting the print flag IFLPRT in *
996 * COMMON/W50510/ IFLPRT *
1000 * The program is protected against calculations of Q^2 values *
1001 * below Q2MIN (in this case Q^2 = Q2MIN) and of X values in unphysi- *
1002 * cal regions (X < 0 or X > 1). The execution of the program is *
1003 * stopped in the later case. To control how often the X or Q^2 ran- *
1004 * ges have been exceeded during execution of the user's program a *
1005 * call to the subroutine *
1009 * at the termination phase of his/her MAIN program allows to print a *
1010 * summary of these errors. The print flag in the COMMON/W50510/IFLPRT*
1011 * may be set to IFLPRT = 3 to print an error message EACH TIME a *
1012 * limit has been exceeded during job execution. Please note that *
1013 * this may produce an ENORMOUS AMOUNT OF OUTPUT ! *
1019 * 2.2 The Calling Sequence: PDFLIB Format *
1022 * The main steering routine for a set of structure functions is *
1023 * accessed as follows: *
1025 * CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) *
1027 * Please note that all variables are defined as DOUBLE PRECISION. *
1028 * The user has to provide the following INPUTs: *
1030 * X = X value of parton *
1031 * SCALE = QCD scale in GeV *
1033 * The subroutine STRUCTM returns the following OUTPUT: *
1035 ******************************* - 14 - ********************************
1036 1***********************************************************************
1038 * UPV = up valence quark *
1039 * DNV = down valence quark *
1040 * USEA = sea (up_bar) *
1041 * DSEA = sea (down_bar) *
1042 * STR = strange quark *
1043 * CHM = charm quark *
1044 * BOT = bottom quark *
1048 * In case up_bar is not given separately from down_bar it is set *
1051 * The recommended set of structure functions from the different *
1052 * authors is put in bold characters. If NSET is set to zero (or if *
1053 * any of the parameters, NPTYPE, NGROUP or NSET, is undefined) ONE *
1054 * DEFAULT SET is selected which is always the Nucleon parton densi- *
1055 * ties, the set of MRS set G (NPTYPE = 1, NGROUP = 3, NSET = 41), *
1056 * also in case of NPTYPE = Pion or Photon. *
1058 * Please note that in any of the calling sequences for the *
1059 * nucleon, the pion and the photon it is always returned *
1060 * X * parton distribution function ! *
1065 * 2.3 The Calling Sequence: PDG Format *
1068 * To allow the use of the package with the flavour code conven- *
1069 * tion of the Particle Data Group (PDG) an interface has been writ- *
1070 * ten which translates the PDFLIB format (see Section 2.2) into the *
1071 * PDG format. Instead of calling the subroutine STRUCTM the user *
1072 * preferring the flavour code convention of the PDG accesses the *
1073 * package via a call to the subroutine *
1075 * CALL PFTOPDG(X,SCALE,DXPDF). *
1077 * All variables are defined as DOUBLE PRECISION as before, and *
1078 * X and SCALE are INPUTs provided by the user having the same *
1079 * meaning as before. *
1081 * The subroutine PFTOPDG outputs a vector DXPDF(-6:6) of which *
1082 * its variables have the following meaning: *
1084 * DXPDF(0) = gluon *
1085 * DXPDF(1) = sum of down valence + down_bar quark *
1086 * DXPDF(2) = sum of up valence + up_bar quark *
1087 * DXPDF(3) = strange quark *
1088 * DXPDF(4) = charm quark *
1089 * DXPDF(5) = bottom quark *
1090 * DXPDF(6) = top quark *
1091 * and DXPDF(-1) to DXPDF(-6) are the corresponding antiquarks. *
1093 * DXPDF(-1) = DXPDF(-2) stands for down_bar = up_bar or *
1094 * (down_bar + up_bar)/2 in almost all parametrisations. In case *
1095 * where u_bar is not equal to d_bar DXPDF(-1) = d_bar and *
1096 * DXPDF(-2) = u_bar. In all sets is DXPDF(3) = DXPDF(-3), *
1097 * DXPDF(4) = DXPDF(-4), DXPDF(5) = DXPDF(-5) and *
1098 * DXPDF(6) = DXPDF(-6) so far. *
1104 ******************************* - 15 - ********************************
1105 1***********************************************************************
1107 * 2.4 Error Handling *
1110 * A note of caution should be addressed here. All structure *
1111 * functions are limited in X and Q**2 which range for most of the *
1114 * 4 - 10 < Q**2 < 10**6 - 10**8 (GeV/c)**2 *
1115 * 10**{-5} - 10**{-4} < X < 1. *
1117 * If the user wants to extend the X or Q**2 ranges, it is pos- *
1118 * sible for some of the structure function sets, but the result *
1119 * should be looked at with great caution. If in doubt, please check *
1120 * with the authors of the structure function set. The program is *
1121 * protected against calculations of Q**2 values below Q2MIN (in this *
1122 * case Q**2 = Q2MIN) and of X values in unphysical regions (X < 0 or *
1123 * X > 1). The execution of the program is stopped in the later case. *
1125 * A COMMON block can be accessed *
1127 * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX *
1131 * XMIN = minimum allowed X value *
1132 * XMAX = maximum allowed X value *
1133 * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) *
1134 * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) *
1136 * is given for each set of structure functions. To control how often *
1137 * the X or Q**2 ranges have been exceeded during execution of the *
1138 * user's program a call to the subroutine *
1142 * at the termination phase of his/her MAIN program allows to print *
1143 * a summary of these errors. If the COMMON block *
1145 * COMMON/W50514W/ PDFWGT *
1151 * is filled by the user on an event-to-event basis the statistics *
1152 * in the error summary takes into account this weight. *
1154 * The print flag in the COMMON/W50510/IFLPRT may be set to *
1155 * IFLPRT = 3 to print an error message EACH TIME a limit is exeeded *
1156 * during job execution. Please note that setting this flag may pro- *
1157 * duce an ENORMOUS AMOUNT of output! *
1165 * If NPTYPE = 1, NGROUP = 1 and NSET = 1, the user has the possi- *
1166 * bility to use his/her own private set of structure functions *
1167 * (i.e. CDHS effective structure functions could be inseted here, *
1168 * or the user could implement a new set of structure functions for *
1169 * testing purposes). To insert the private set the DUMMY subroutine *
1171 * SUBROUTINE STRPRIV(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) *
1173 ******************************* - 16 - ********************************
1174 1***********************************************************************
1176 * should be activated by the user. All variables have to be defined *
1177 * as DOUBLE PRECISION. The variables have the same meaning as des- *
1178 * cribed for the subroutine STRUCTM in Section 2.2 (for explanations *
1181 * For the calculation of the strong coupling constant alpha(s) *
1182 * (see Section 3) with the user's private set of structure functions *
1183 * the user should provide a value for the variables QCDL4 and QCDL5 *
1184 * via the subroutine PDFSET at the initialization phase. In fact, *
1185 * because only the parameter QCDL5 is used in the alpha(s) calcul- *
1186 * ation, only this definition is mandatory. *
1191 * 2.6. How to find PDFLIB *
1194 * At CERN the PDFLIB library and corresponding documentation are *
1195 * available on all systems in the standard areas. *
1199 * VXCERN CERN:[NEW.LIB]PDFLIB.OLB *
1200 * Unix systems /cern/new/lib/libpdflib.a *
1203 * At CERN on Unix systems the package may be accessed via the *
1204 * 'cernlib' command: *
1206 * \ 'cernlib pdflib packlib mathlib kernlib' \ *
1208 * All necessary information about PDFLIB can also be found on the *
1209 * World Wide Web via the path 'CERN.Computing.CERNLIB.documentation' *
1212 * for the flat version : *
1213 * http://wwwcn.cern.ch/asdoc/pdflib/pdflib.html *
1214 * or for the PostScript version : *
1215 * http://wwwcn.cern.ch/asdoc/psdir/pdflib.ps.gz *
1217 * The source code of PDFLIB may be obtained from asisftp.cern.ch *
1218 * via anonymous ftp with: *
1220 * get /cernlib/share/new/src/mclibs/pdf or *
1221 * get /cernlib/share/new/src/mclibs/pdf.tar or *
1222 * get /cernlib/share/new/src/mclibs/pdf.tar.gz *
1224 * even, if the last two files are not visible via the command 'ls'. *
1227 * Whenever you use this program, please give reference to the *
1228 * following papers: *
1230 * H. Plothow-Besch, 'The Parton Distribution Function Library', *
1231 * Int. J. Mod. Phys. A10 (1995) 2901-2920. *
1235 * H. Plothow-Besch, 'PDFLIB: A Library of all available Parton *
1236 * Density Functions of the Nucleon, the Pion and the Photon and *
1237 * the corresponding alpha_s Calculations', *
1238 * Comp. Phys. Comm. 75 (1993) 396-416. *
1242 ******************************* - 17 - ********************************
1243 1***********************************************************************
1245 * H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha_s *
1247 * User's Manual - Version 1.00, W5051 PDFLIB, *
1248 * 1991.03.21, CERN-PPE. *
1252 * H. Plothow-Besch, 'PDFLIB: Nucleon, Pion and Photon Parton *
1253 * Density Functions and alpha_s Calculations', *
1254 * Users's Manual - Version 7.09, W5051 PDFLIB, *
1255 * 1997.07.02, CERN-PPE. *
1260 * 3. PION and PHOTON Parton Densities *
1263 * The calling sequences to the PION and the PHOTON sets of parton *
1264 * densities is kept identical to those described in Sections 2.2 and *
1265 * 2.3 for the nucleon structure functions. *
1267 * In case of the PION structure functions it is set and returned *
1268 * UPV = DNV, SEA = STR (USEA = DSEA = STR) and TOP = 0 *
1269 * (DXPDF(1) = DXPDF(2), DXPDF(3) = DXPDF(-1) = DXPDF(-2) and *
1272 * In case of the PHOTON structure functions it is set and *
1273 * returned UPV = USEA, DNV = DSEA and TOP = 0 *
1274 * (DXPDF(1) = 2 * DXPDF(-1), DXPDF(2) = 2 * DXPDF(-2), as a result *
1275 * of the definitions - see Section 2.3 -, and DXPDF(6) = 0), while *
1276 * all the other quarks are set identical to their antiquark densi- *
1277 * ties. Note that the alpha_(QED) has to be taken care of by the *
1280 * To take into account the need for more input parameters for *
1281 * parton densities of the photon a NEW SUBROUTINE STRUCTP has been *
1282 * added which should be called instead of STRUCTM in case of appli- *
1283 * cations of the photon. Therefore, the main steering routine for a *
1284 * set of structure functions of the photon should now be accessed *
1287 * CALL STRUCTP(X,Q2,P2,IP2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) *
1289 * Please note that all variables (INPUT and OUTPUT) are defined as *
1290 * DOUBLE PRECISION. The user has now to provide the following *
1293 * X = x value of parton *
1294 * Q2 = QCD scale in GeV**2 *
1295 * P2 = virtuality of the photon in GeV**2, *
1296 * should be = 0 for an on-shell photon *
1297 * IP2 = parameter to evaluate off-shell anomalous component *
1299 * The OUTPUT parameters are defined as for STRUCTM (see *
1311 ******************************* - 18 - ********************************
1312 1***********************************************************************
1314 * 4. alpha(s) Calculation *
1317 * Within the same package a program is provided to calculate the *
1318 * strong coupling constant alpha(s) to second order as a function *
1319 * of Lambda(QCD) of five flavours and the desired number of fla- *
1320 * vours (NFL) for the selected set of structure functions, which *
1321 * fixes Lambda(QCD). The formula on which the calculations are *
1322 * based upon can be found in Ref. [46]. The same three parameters, *
1323 * NPTYPE, NGROUP and NSET, which select a structure function set, *
1324 * is used to steer the calculation of the alpha(s) value at a given *
1325 * scale from the Lambda(QCD) defined in the selected structure *
1328 * The value of alpha(s) is matched at the thresholds q = m_q. *
1329 * When invoked with NFL < 0, it chooses NFL as the number of fla- *
1330 * vours for which the masses are less then q. For the quark masses *
1331 * where thresholds are changed the following values have been used: *
1332 * m_charm = 1.5 GeV/c**2, m_bottom = 4.75 GeV/c**2 and *
1333 * m_top = 180 GeV/c**2. *
1335 * The alpha(s) value can be obtained via a call to: *
1336 * FUNCTION ALPHAS2(SCALE) *
1338 * The user has to provide the following INPUT: *
1340 * SCALE = QCD scale in GeV *
1342 * The function ALPHAS2 returns the following OUTPUT: *
1344 * ALPHAS2 = alpha strong to second order, *
1346 * if LO not equal to one. For those structure functions, for which *
1347 * the evolution is done to leading order only, alpha(s) to first *
1348 * order is returned. *
1350 * The same subroutine *
1352 * SUBROUTINE PDFSET(PARM,VALUE) *
1354 * as described in Section 2.1 should be used to change the default *
1355 * values of the variables NPTYPE, NGROUP, NSET, NFL, LO, TMAS, *
1356 * QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX. *
1358 * The internal COMMON block *
1360 * COMMON/W50512/ QCDL4,QCDL5 *
1364 * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours *
1365 * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours *
1366 * corresponding to QCDL4 *
1368 * provides the actual value of Lambda_4(QCD) and Lambda_5(QCD) used *
1369 * in the alpha(s) calculation for four and five flavours, respectiv- *
1370 * ly, for each set of structure functions. *
1380 ******************************* - 19 - ********************************
1381 1***********************************************************************
1386 * In the Long Write-up as an example, the NUCLEON structure *
1387 * function distributions at the scale Q**2 = m_W**2 for up valence *
1388 * lence quark is shown in Figs. 1 as a function of the parton X. *
1389 * The average X values for CERN and FNAL as well as for LHC and SSC *
1390 * energies at that scale are indicated. It can be seen from that *
1391 * figures that there is a large spread in shape for the different *
1392 * sets leading to different results in a cross section calculation. *
1393 * It should be pointed out that the spread from the different para- *
1394 * metrisations in the SAME renormalisation scheme is MUCH LARGER *
1395 * than the spread of parametrisations in different renormalisation *
1396 * schemes. This is valid for ALL parton densities, and in particular *
1397 * at small X values ! *
1399 * A comparison to recent data is shown in Fig. 2, where the ratio *
1400 * F_2(n)/F_2(p) at Q**2 = m_W**2 is displayed. Note that the older *
1401 * sets of structure functions, namely the set of Owens and Reya [2] *
1402 * and the set of Baier et al. [3] have only been implemented for *
1403 * completeness. These sets should not be used for cross section cal- *
1404 * culations of any hard processes at high energies anymore. From *
1405 * Fig. 2 we conclude that also the other older sets of structure *
1406 * functions, namely the two sets of Duke and Owens [5] and the two *
1407 * sets of Eichten et al. [6] should be used with some care, because *
1408 * they do not fit the recent low energy deep-inelastic lepton-nuc- *
1409 * leon data from NMC and BCDMS [47]. This is not surprising because *
1410 * these data were not available when the sets have been made. The *
1411 * new set of DO 1.1 superseeds the old DO sets 1 and 2 but still *
1412 * gives very limited results in the low X region, even though data *
1413 * are available there. We conclude that the recent sets of parton *
1414 * densities could be preferred for all theoretical predictions in- *
1415 * volving structure functions, because they fit the present nucleon *
1418 * In Fig. 3 the F_2(p) distribution of the recent data from Ref. *
1419 * [48] at Q**2 = 5 GeV**2, together with the recent data at Q**2 = *
1420 * 15 GeV**2 from the H1 and the ZEUS experiments [49] at the ep- *
1421 * collider HERA is shown as a function of X. Overlayed on the same *
1422 * Figure are a few theoretical predictions of more recent parton *
1423 * parametrisations [12-16] at Q**2 = 15 GeV**2. Please note that *
1424 * most of these parametrisations are NOT TRUE predictions because *
1425 * the data are fully or partially used in the fits. From Figs. 2 *
1426 * and 3 we conclude that the recent sets of parton densities, namely *
1427 * the GRV set HO [14], but also the old MT set B2 [13] - both sets *
1428 * are true predictions -, and the updated MRS set (H) [16], could *
1429 * be preferred for all theoretical predictions involving structure *
1430 * functions, because they fit the present data best which, at the *
1431 * moment,are still suffering from large uncertainties. *
1433 * Figure 4 shows a comparison of F_2(\gamma)/alpha_(QED) at *
1434 * Q**2 = 100 GeV**2 of the different PHOTON structure function sets *
1435 * as a function of X. The charm quark density has been taken into *
1436 * account. The theoretical predictions are compared with experimen- *
1437 * tal data from the JADE experiment [50] at the same Q**2 value. Be- *
1438 * cause of large experimental uncertainties no distinction between *
1439 * the different parton density sets can be made yet. *
1441 * The response from the Physics community has been very satisfac- *
1442 * tory, which is encouraging us to keep up-to-date with the latest *
1443 * developments in this area. Therefore, please CONTINUE SENDING YOUR *
1444 * FEEDBACK ON THE USAGE AND POSSIBLE IMPROVEMENTS TO US. Coming new *
1445 * sets of structure functions should be easily implemented in the *
1446 * package. Authors of {\bf new sets} are kindly asked to PROVIDE US *
1447 * with the RELEVANT INFORMATION. PLEASE RETURN ANY PROBLEMS, QUES- *
1449 ******************************* - 20 - ********************************
1450 1***********************************************************************
1452 * TIONS, SUGGESTIONS FOR IMPROVEMENTS TO THE AUTHOR OF THE PACKAGE *
1453 * (e-mail address: plothow@mail.cern.ch). *
1460 * 5. Acknowledgements *
1463 * The author of the package would like to thank *
1464 * M.A. Marquina/CERN-CN for help and support making this package *
1465 * available to the Physics community as part of the CERN Program *
1466 * Library. In addition we give many thanks to G. Folger/CERN-CN and *
1467 * I. McLaren/CERN-CN for thoroughly testing out the package on the *
1468 * different system areas. *
1470 * We also would like to thank J.M. Marraffino/FNAL for the help- *
1471 * ful comments and the correction set which he supplied. *
1473 * And finally we acknowledge K. Charchula/DESY who provided the *
1474 * source code of some of the photon structure functions which had *
1475 * previously been implemented in the package. *
1518 ******************************* - 21 - ********************************
1519 1***********************************************************************
1524 * [1] A.J.Buras and K.J.F. Gaemers : Nucl. Phys. B132 (1978) 249; *
1525 * BEBC WA 59 Collaboration, K. Varnell et al., Z. Phys. C36 (1987) 1.
1527 * [2] J.F.Owens and E. Reya : Phys. Rev. D17 (1978) 3003. *
1529 * [3] R. Baier, J. Engels and B. Petersson : Z. Phys. C2 (1979) 265. *
1531 * [4] Gl"uck, E. Hoffman and E. Reya : Z. Phys. C13 (1982) 119. *
1533 * [5] D.W. Duke and J.F.Owens : Phys. Rev. D30 (1984) 49. *
1535 * [6] E. Eichten, I Hinchliffe, K. Lane and C. Quigg : *
1536 * Rev. Mod. Phys. 56 (1984) 579 and Rev. Mod. Phys. 58 (1985) 1065.
1538 * [7] M. Diemoz, F. Ferroni, E. Longo and G. Martinelli : *
1539 * Z. Phys. C39 (1988) 21. *
1541 * [8] J.F.Owens : Phys. Lett. 266B (1991) 126. *
1543 * [9] A.D. Martin, R.G. Roberts and W.J. Stirling : Phys.Rev. D37 (1988) 1161;
1544 * Phys. Lett. 206B (1988) 327 and Mod. Phys. Lett. A4 (1989) 1135.
1546 * [10] P.N. Harriman, A.D. Martin, R.G. Roberts and W.J. Stirling : *
1547 * Phys. Rev. D42 (1990) 798 and Phys. Lett. 243B (1990) 421. *
1549 * [11] J. Kwiecinski, A.D. Martin, R.G. Roberts and W.J. Stirling : *
1550 * Phys. Rev. D42 (1990) 3645; *
1551 * A.D. Martin, R.G. Roberts and W.J. Stirling : *
1552 * Phys. Rev. D43 (1991) 3648. *
1554 * [12] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1555 * Phys. Rev. D47 (1993) 867. *
1557 * [13] J. Morfin and W.K. Tung : Z. Phys. C52 (1991) 13. *
1559 * [14] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C48 (1990) 471; *
1560 * Z. Phys. C53 (1992) 127 and Phys. Lett. 306B (1993) 391. *
1562 * [15] P. Aurenche et al. : Phys. Rev. D39 (1989) 3275. *
1564 * [16] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1565 * Phys. Lett. 306B (1993) 147 and Erratum-ibid. 309B (1993) 492; *
1566 * Durham Preprint, DTP/93/86 (1993). *
1568 * [17] E.L. Berger and R. Meng : Phys. Lett. 304B (1993) 318; *
1569 * CERN-TH 6739/92; ANL-HEP-CP-92-108 and *
1570 * E.L. Berger, R. Meng and J. Qiu : ANL-HEP-CP-92-79. *
1572 * [18] CTEQ collaboration, J. Botts et al. : Phys. Lett. 304B (1993) 159.
1574 * [19] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1575 * Phys. Rev. D50 (1994) 6734. *
1577 * [20] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1578 * Phys. Lett. 354B (1995) 155; *
1579 * A.D. Martin, R.G. Roberts and W.J. Stirling : *
1580 * RAL Preprint, RAL/95-021 (1995). *
1582 * [21] CTEQ collaboration, MSUHEP-41024. *
1584 * [22] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C67 (1995) 433. *
1587 ******************************* - 22 - ********************************
1588 1***********************************************************************
1590 * [23] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1591 * Phys. Rev. D51 (1995) 4756. *
1593 * [24] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1594 * Phys. Lett. 356B (1995) 89. *
1596 * [25] E.W.N. Glover, A.D. Martin, R.G. Roberts and W.J. Stirling : *
1597 * Phys. Lett. 381B (1996) 353. *
1599 * [26] A.D. Martin, R.G. Roberts and W.J. Stirling : *
1600 * Durham Preprint, DTP/96/44 (1996). *
1602 * [27] CTEQ collaboration, MSUHEP-60416, CTEQ-604. *
1604 * [28] M. Gl"uck, E. Reya, M. Stratmann and A. Vogelsang : *
1605 * Phys. Lett. 359B (1995) 201; *
1606 * Phys. Rev. D53 (1995) 4775. *
1608 * [29] J.F.Owens : Phys. Rev. D30 (1984) 943. *
1610 * [30] P. Aurenche et al. : Phys. Lett. 233B (1989) 517. *
1612 * [31] P.J. Sutton, A.D. Martin, R.G. Roberts and W.J. Stirling : *
1613 * Phys. Rev. D45 (1992) 2349. *
1615 * [32] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C53 (1992) 651. *
1617 * [33] D.W. Duke and J.F.Owens : Phys. Rev. D26 (1982) 1600. *
1619 * [34] M. Drees and K. Grassie : Z. Phys. C28 (1985) 451. *
1621 * [35] H. Abramowicz, K. Charchula and A. Levy : *
1622 * Phys. Lett. 269B (1991) 458. *
1624 * [36] K. Hagiwara et al. : Phys. Rev. D51 (1995) 3197. *
1626 * [37] L.E. Gordon and J.K. Storrow : Z. Phys. C56 (1992) 307. *
1628 * [38] M. Gl"uck, E. Reya and A. Vogt : Phys. Rev. D46 (1992) 1973 *
1629 * and Phys. Rev. D45 (1992) 3986. *
1631 * [39] P. Aurenche et al. : Z. Phys. C56 (1992) 589. *
1633 * [40] P. Aurenche M. Fontannaz, J.Ph. Guillet : Z. Phys. C64 (1994) 621.
1635 * [41] G.A. Schuler and T. Sjostrand : Z. Phys. C68 (1995) 607 and *
1636 * Phys. Lett. 276B (1996) 193. *
1638 * [42] M. Gl"uck, E. Reya, M. Stratmann : Phys. Rev. D51 (1995) 3220. *
1639 * Phys. Rev. D53 (1995) 4775. *
1641 * [43] L.E. Gordon and J.K. Storrow : ANL-HEP-PR-96-33 and MC-TH-96-16.
1643 * [44] G. Altarelli, R.K. Ellis and G. Martinelli : *
1644 * Nucl. Phys. B143 (1978) 521 and B157 (1979) 461. *
1646 * [45] H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) *
1647 * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, *
1648 * 1991.03.21, CERN-PPE. *
1649 * H. Plothow-Besch, 'PDFLIB: a library of all available parton *
1650 * density functions of the nucleon, the pion and the photon *
1651 * and the corresponding alpha(s) calculations', *
1652 * Comp. Phys. Comm. 75 (1993) 396-416; *
1653 * H. Plothow-Besch, 'The Parton Distribution Function Library', *
1654 * Int. J. Mod. Phys. A10 (1995) 2901. *
1656 ******************************* - 23 - ********************************
1657 1***********************************************************************
1659 * [46] Review of Particle Properties, June 1992, *
1660 * Phys. Rev. D45 (1992), Part. II, p. III.54. *
1662 * [47] BCDMS Collaboration, A.C. Benvenuti et al. : *
1663 * Phys. Lett. 237B (1990) 592 and Phys. Lett. 237B (1990) 599; *
1664 * EMC Collaboration, M. Arneodo et al. : Nucl. Phys. B333 (1990) 1;
1665 * NMC Collaboration, D. Allasia et al. : Phys. Lett. 249B (1990) 366;
1666 * P. Amaudruz et al. : Nucl. Phys. B371 (1992) 3.
1668 * [48] NMC Collaboration, P. Amaudruz et al. : Phys. Lett. 295B (1992) 159.
1670 * [36] H1 Collaboration, I. Abt et al. : Nucl. Phys. B407 (1993) 515; *
1671 * ZEUS Collaboration, M. Derrick et al. : Phys. Lett. 316B (1993) 412.
1673 * [50] JADE Collaboration, W. Bartel et al. : Z. Phys. C24 (1984) 231.*
1675 * [51] PAW, CERN Program Library Entry Q121, Long Write-up; *
1676 * R. Brun, O. Couet, C. Vandoni and P Zanarini; *
1677 * see also to References therein. *
1725 ******************************* - 24 - ********************************
1726 1***********************************************************************
1731 * As an example how to use the package, the FORTRAN code to ob- *
1732 * tain Fig. 1 of the Long Write-up which shows the parton density *
1733 * function distributions for the up valence quark as a function of *
1734 * the parton X for all sets of structure functions is given below: *
1737 * C define the maximum number of PDF sets, the name and the cross reference
1738 * PARAMETER (NPTYMX = 3, NGRMAX = 9, NSETMX = 58) *
1739 * COMMON /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)
1740 * CHARACTER*8 SFNAME(NPTYMX,NGRMAX,NSETMX) *
1741 * COMMON /W505110/ SFNAME *
1742 * COMMON /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) *
1743 * C define HBOOK settings *
1744 * PARAMETER (NHBMEM = 500000) *
1745 * COMMON /PAWC/ HMEM(NHBMEM) *
1746 * PARAMETER (NB=900, ID=100) *
1747 * C define DOUBLE PRECISION variables for calling sequence to STRUCTM*
1748 * DOUBLE PRECISION DX,DSCALE *
1749 * DOUBLE PRECISION DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL *
1750 * DOUBLE PRECISION ALF,ALPHAS2 *
1751 * REAL X, SCALE, UPV, DNV, USEA, DSEA, STR, CHM, BOT, TOP, GL *
1752 * COMMON/W50516/ FIRST *
1754 * CHARACTER*20 PARM(20) *
1755 * DOUBLE PRECISION VAL(20) *
1756 * DATA SCALE/80.140/ *
1757 * DATA X00/0.002/,DX0/0.001/,XLOW/0.0015/,XUP/0.9015/ *
1759 * CALL HLIMIT(NHBMEM) *
1761 * C first call to PDFSET to initialize COMMON/W505120/,/W505120/ and /W505122/
1762 * PARM(1) = 'Init0' *
1764 * CALL PDFSET(PARM,VAL) *
1765 * C loop over all existing sets of Nucleon structure functions (SF) *
1768 * DO 20 IGR = 1,NGRMAX *
1769 * IF(NPGSMX(NPTYPE,IGR).EQ.0) GOTO 20 *
1770 * DO ISET = 1,NPGSMX(NPTYPE,IGR) *
1771 * C book histograms for each set of SF separately *
1773 * CALL HBOOK1(ID+NHB,'U Valence quark ',NB,XLOW,XUP,0.) *
1774 * C force label printing for each set of SF (not only the 1st) *
1776 * C define and set parameters *
1777 * PARM(1) = 'Nptype' *
1779 * PARM(2) = 'Ngroup' *
1781 * PARM(3) = 'Nset' *
1783 * CALL PDFSET(PARM,VAL) *
1784 * C loop over all X bins *
1786 * X = X00 + (I-1)*DX0 *
1788 * IF(X.LT.XLOW .OR. X.GT.XUP) GOTO 10 *
1789 * CALL STRUCTM(DX,DSCALE, *
1790 * + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) *
1792 * IF(X.GT.0.499 .AND. X.LE.0.500) WRITE(6,1000) X,SCALE,UPV *
1794 ******************************* - 25 - ********************************
1795 1***********************************************************************
1797 * Example of Fig. 1, cont'd *
1799 * 1000 FORMAT(/,' X= ',F6.4,' Q= ',F6.3,' UPV= ',8.4) *
1800 * CALL HF1(ID+NHB,X,UPV) *
1802 * C get alpha(s) for selected set of SF at Q = SCALE *
1803 * ALF = ALPHAS2(DSCALE) *
1804 * WRITE(6,4000) NPTYPE,IGR,ISET,SFNAME(NPTYPE,IGR,ISET), *
1805 * + MODECR(NPTYPE,IGR,ISET),NSF *
1806 * WRITE(6,4001) DSCALE,ALF *
1807 * 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1,' Nset = ',I2, *
1808 * + ' Name = "'A8,'" CrMode = ',I3,' HBId = ',I3) *
1809 * 4001 FORMAT(1H ,' SCALE = ',F8.4,' alpha(s) = ',F6.4) *
1810 * C get error summary for each set of SF *
1822 * This code will produce the following output: *
1825 * 1. HBOOK Output : *
1827 * one histogram for each set of structure functions. The histo- *
1828 * gram output has then been accessed, and each histogram has been *
1829 * superimposed on one single frame using the PAW package [51] to *
1830 * obtain Fig. 1 of the Long Write-up. *
1833 * 2. Print Output (Example is given for NPTYPE = 1, *
1834 * NGROUP = 3, NSET = 41 only : *
1836 * ___________________________________________________________________ *
1838 *| 1***** PDFLIB Version: 7.09 Released on 970702 at 16.05 in |*
1839 *| the CERN Computer Program Library W5051 ***** |*
1840 *| ***** Library compiled on 970702 at 16.05 ***** |*
1842 *| Nucleon PDFs: Ngroup = 3, Nset = 41, for MRS Set (G) Structure |*
1843 *| ------------------------------------------------------------------|*
1847 *| X= 0.5000 Q= 80.140 UPV= 0.1176 |*
1849 *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1 HBId = 60
1850 *| Scale = 80.1400 alpha(s) = 0.1154 |*
1852 *| PDFLIB : Summary from PDFSTA |*
1853 *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1|*
1854 *| Nfl = -5 LO = 2 Tmas = 180.00 GeV/c**2 |*
1855 *| QCDL4 = 0.2550 GeV, QCDL5 = 0.1708 GeV |*
1856 *| Xmin = 0.10E-04, Xmax = 0.99999E+00, Q2min = 5.000 (GeV/c)**2,
1857 *| Q2max = 0.27E+10 (GeV/c)**2 |*
1859 *| PDFSTA: NO errors occured |*
1860 *|___________________________________________________________________|*
1863 ******************************* - 26 - ********************************
1864 1***********************************************************************
1869 * A list of subroutines, functions, COMMON blocks and parameters *
1870 * of RELEVANCE to the user which are used in PDFLIB is given below: *
1873 * List of relevant subprograms and COMMON blocks in PDFLIB: *
1875 * _________________________________________________________________ *
1877 * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | *
1879 * | ------------------------------------------------------------- | *
1881 * | S PDFSET : to set all parameters for PDFLIB | *
1882 * | S STRUCTF : to access PDFLIB with output in PDFLIB format | *
1883 * | S STRUCTM : to access PDFLIB with output in PDFLIB format | *
1884 * | (with u_bar not equal to d_bar) | *
1885 * | S STRUCTP : to access PDFLIB with output in PDFLIB format | *
1886 * | for PHOTON structure functions | *
1887 * | S PFTOPDG : to access PDFLIB with output in PDG format | *
1888 * | S PDFSTA : to print summary of parameters and error statistics
1889 * | F ALPHAS2 : to calculate alpha(s) to second order QCD | *
1891 * | C W50510 : IFLPRT - to set print flag | *
1892 * | C W50511 : NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS | *
1893 * | - to select a structure function set, to | *
1894 * | define number of flavours, flag for leading | *
1895 * | order and value for the mass of the top quark | *
1896 * | C W50512 : QCDL4,QCDL5 - contains Lambda_4(QCD) and | *
1897 * | Lambda_5(QCD) (in GeV) | *
1898 * | C W50513 : XMIN,XMAX,Q2MIN,Q2MAX - contains minimum and | *
1899 * | maximum values of X and Q**2 | *
1900 * | C W50516 : FIRST - to force printing name of structure | *
1901 * | function set in case of multiple choices | *
1902 * | C W50519 : NEWVER - flags NEW/OLD version of PDFLIB format| *
1903 * | C W505110 : SFNAME - contains NAME (CHARACTER*8 array with | *
1904 * | dimension SFNAME(NPTYMX,NGRMAX,NSETMX)) for | *
1905 * | each set of PDFs | *
1906 * | C W505120 : NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)*
1907 * | - contains maximum number of stucture functions| *
1908 * | per particle type and author group, and FLAG | *
1909 * | for retracted PDF set (NSETFL(I,J,K) = 0), | *
1910 * | C W505121 : NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) | *
1911 * | - cross reference to the NPTYPE, NGROUP and | *
1912 * | NSET value (NEW format) for a given MODE | *
1913 * | value (OLD format) | *
1914 * | C W505122 : MODECR(NPTYMX,NGRMAX,NSETMX) - cross reference | *
1915 * | to the MODE value (OLD format) for a given | *
1916 * | NPTYPE, NGROUP and NSET value (NEW format) | *
1917 * | P W5051P2 : MODEMX - maximum number of structure function | *
1918 * | sets in the OLD PDFLIB format | *
1919 * | : NPTYMX,NGRMAX,NSETMX - maximum number of | *
1920 * | structure function sets in the NEW PDFLIB | *
1921 * | format for particle type, author group number | *
1922 * | and number of sets within an author group | *
1923 * | P W5051P7 : L6 - to define logical print unit number | *
1924 * |_______________________________________________________________| *
1932 ******************************* - 27 - ********************************
1933 1***********************************************************************
1938 * A complete list of subroutines, functions, COMMON blocks and *
1939 * parameters which are used in PDFLIB is given below: *
1942 * Complete list of subprograms and COMMON blocks in PDFLIB: *
1943 * (in alphabetical order) *
1945 * _________________________________________________________________ *
1947 * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | *
1949 * | ------------------------------------------------------------- | *
1951 * | S ABFKW1 : ABFKW SF set 1 in the pion (NP=2,NG=6,NS=1) | *
1952 * | S ABFKW2 : ABFKW SF set 2 in the pion (NP=2,NG=6,NS=2) | *
1953 * | S ABFKW3 : ABFKW SF set 3 in the pion (NP=2,NG=6,NS=3) | *
1954 * | S ACFGP1 : ACFGP SF set 1 in the photon (NP=3,NG=6,NS=1) | *
1955 * | S ACFGP2 : ACFGP SF set 1 in the photon (mc) (NP=3,NG=6,NS=2)*
1956 * | F AFCPLU : to get PD with massive charm for ACFGP | *
1957 * | F AFGETFV : to interpolate PDs in grid for ACFGP | *
1958 * | F AFGIN2 : to interpolate PDs in grid for ACFGP | *
1959 * | F AFGINT : to interpolate PDs in grid for ACFGP | *
1960 * | F AFPOLIN : to interpolate PDs in grid for ACFGP | *
1961 * | F AFRATIN : to interpolate PDs in grid for ACFGP | *
1962 * | F ALPHAS2 : to calculate alpha(s) to second order QCD | *
1963 * | F AUGETFV : to interpolate logarithmically PDs in grid | *
1964 * | S AURGAM : to get the PDs in the photon for ACFGP-G | *
1965 * | S AURPI1 : to get the PDs in the pion for ABFKW-P set 1 | *
1966 * | S AURPI2 : to get the PDs in the pion for ABFKW-P set 2 | *
1967 * | S AURPI3 : to get the PDs in the pion for ABFKW-P set 3 | *
1968 * | S AURPR : to get the PDs in the nucleon for ABFOW | *
1969 * | F BBETA : DOUBLE PRECISION beta function using DGAMMA | *
1970 * | F BETA : SINGLE PRECISION beta function using GAMMA | *
1971 * | S BXF3 : BEP SF set for up and down valence quarks | *
1972 * | S BXGLUE : BEP SF set for gluons | *
1973 * | S BXQBAR : BEP SF set for antiquarks | *
1974 * | F CTQ1OPD : CTEQ SF sets 1M, 1MS, 1ML, 1D and 1L | *
1975 * | F CTQ1OPF : Description of CTEQ sets 1M, 1MS, 1ML, 1D, 1L | *
1976 * | F CTQ1PD : CTEQ SF sets 1M, 1MS, 1ML, 1D and 1L | *
1977 * | F CTQ1PF : Description of CTEQ sets 1M, 1MS, 1ML, 1D, 1L | *
1978 * | F CTQ2OPD : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | *
1979 * | F CTQ2OPF : Description of CTEQ sets 2M, 2MS, 2ML, 2D, 2L | *
1980 * | S CTQ2OPS : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | *
1981 * | F CTQ2PPD : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | *
1982 * | F CTQ2PPF : Description of CTEQ sets 2pM, 2pMS, 2pML, 2pD, 2pL*
1983 * | S CTQ2PPS : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | *
1984 * | F CTQ3PD : CTEQ SF sets 3L, 3M and 3D | *
1985 * | S CTQ3PDS : CTEQ SF sets 3L, 3M and 3D | *
1986 * | F CTQ3PF : Description of CTEQ sets 3L, 3M and 3D | *
1987 * | F CTQ4Fn : Description of CTEQ sets 4L, 4D, 4A1-A5, 4HJ and 4lQ
1988 * | F CTQ4PnX : CTEQ SF sets 4L, 4D, 4A1-A5, 4HJ and 4lQ | *
1989 * | S CTQ4RA1 : Parameters of CTEQ set 4 A1 | *
1990 * | S CTQ4RA2 : Parameters of CTEQ set 4 A2 | *
1991 * | S CTQ4RA4 : Parameters of CTEQ set 4 A4 | *
1992 * | S CTQ4RA5 : Parameters of CTEQ set 4 A5 | *
1993 * | S CTQ4RD : Parameters of CTEQ set 4 D | *
1994 * | S CTQ4RHJ : Parameters of CTEQ set 4 HJ | *
1995 * | S CTQ4RL : Parameters of CTEQ set 4 L | *
1996 * | S CTQ4RM : Parameters of CTEQ set 4 M | *
1997 * | S CTQ4RlQ : Parameters of CTEQ set 4 lQ | *
1998 * | F DBFINT : to interpolate linearly PDs in grid (double precision)
1999 * | S DFLM1 : interface to DFLM 160 (NP=1,NG=2,NS=7) | *
2000 * |_______________________________________________________________| *
2001 ******************************* - 28 - ********************************
2002 1***********************************************************************
2003 * _________________________________________________________________ *
2004 * | Complete list of subprograms, cont'd | *
2006 * | S DFLM2 : interface to DFLM 260 (NP=1,NG=2,NS=8) | *
2007 * | S DFLM3 : interface to DFLM 360 (NP=1,NG=2,NS=9) | *
2008 * | S DFLM4 : interface to DFLM soft valence quarks (NP=1,NG=2,NS=1)
2009 * | S DFLM5 : interface to DFLM hard valence quarks (NP=1,NG=2,NS=2)
2010 * | S DFLM6 : interface to DFLM soft gluons (NP=1,NG=2,NS=3) | *
2011 * | S DFLM7 : interface to DFLM hard gluons (NP=1,NG=2,NS=4) | *
2012 * | S DFLM8 : interface to DFLM LO average fit (NP=1,NG=2,NS=5) *
2013 * | S DFLM9 : interface to DFLM NLL average fit (NP=1,NG=2,NS=6)*
2014 * | S DGPHO1 : DG SF set 1 in the photon (NP=3,NG=2,NS=1) | *
2015 * | S DGPHO2 : DG SF set 2 in the photon (NP=3,NG=2,NS=2) | *
2016 * | S DGPHO3 : DG SF set 3 in the photon (NP=3,NG=2,NS=3) | *
2017 * | S DGPHO4 : DG SF set 4 in the photon (NP=3,NG=2,NS=4) | *
2018 * | S DOPHO1 : DO SF set 1 in the photon (NP=3,NG=1,NS=1) | *
2019 * | S DOPHO2 : DO SF set 2 in the photon (NP=3,NG=1,NS=2) | *
2020 * | F DPOLIN : to interpolate PDs in grid (DOUBLE PRECISION) | *
2021 * | S FXAVER : DFLM SF set of LO central average fit | *
2022 * | S FXG160 : DFLM SF set of NLL with QCDL4 = 160 | *
2023 * | S FXG260 : DFLM SF set of NLL with QCDL4 = 260 | *
2024 * | S FXG360 : DFLM SF set of NLL with QCDL4 = 360 | *
2025 * | S FXGHAR : DFLM SF set of LO hard gluon | *
2026 * | S FXGSOF : DFLM SF set of LO soft gluon | *
2027 * | S FXNLLA : DFLM SF set of NLL central average fit | *
2028 * | S FXVHAR : DFLM SF set of LO hard valence | *
2029 * | S FXVSOF : DFLM SF set of LO soft valence | *
2030 * | F GAMFUN : to calculate GAMMA funct. in either SP or DP prec.*
2031 * | F GAMMADO : to calculate GAMMA funct. in SP (Hastings) | *
2032 * | F GHRDV : GHR SF set for down quarks | *
2033 * | F GHRGL : GHR SF set for gluons | *
2034 * | F GHRUV : GHR SF set for up quarks | *
2035 * | F GHRXI : GHR SF set for antiquarks | *
2036 * | F GHRXS : GHR SF set for strange quarks | *
2037 * | F GR94FV : GRV94 SF set for up + down valence quarks + gluons*
2038 * | F GR94FW : GRV94 SF set for antiquarks | *
2039 * | F GR94FWS : GRV94 SF set for strange quarks | *
2040 * | F GRSF1 : GRS SF set part1 in the photon | *
2041 * | F GRSF2 : GRS SF set part2 in the photon | *
2042 * | S GRSGALO : GRS SF set of LO in the photon (NP=3,NG=5,NS=4)| *
2043 * | S GRSVH1 : GRSV SF set of pol. NLL standard (NP=1,NG=5,NS=10)*
2044 * | S GRSVH2 : GRSV SF set of pol. NLL valence (NP=1,NG=5,NS=11) *
2045 * | S GRSVL1 : GRSV SF set of pol. LO standard (NP=1,NG=5,NS=8) *
2046 * | S GRSVL2 : GRSV SF set of pol. LO valence (NP=1,NG=5,NS=9)| *
2047 * | S GRV94DI : GRV94 SF set of DIS in the nucleon (NP=1,NG=5,NS=7)
2048 * | S GRV94HO : GRV94 SF set of MS_bar in the nucleon (NP=1,NG=5,NS=6)
2049 * | S GRV94LO : GRV94 SF set of LO in the nucleon (NP=1,NG=5,NS=5)*
2050 * | F GRVFGP : GRV SF set for gluons in the pion | *
2051 * | F GRVFQBP : GRV SF set for s, c and b quarks in the pion | *
2052 * | F GRVFV : GRV SF set for up + down valence quarks | *
2053 * | F GRVFVP : GRV SF set for valence quarks in the pion | *
2054 * | F GRVFW : GRV SF set for antiquarks and gluons | *
2055 * | F GRVFWS : GRV SF set for strange, charm and bottom quarks| *
2056 * | S GRVGAH0 : GRV SF set lead. terms of NLL in the photon (NP=3,NG=5,NS=1
2057 * | S GRVGAHO : GRV SF set of NLL in the photon (NP=3,NG=5,NS=2) *
2058 * | S GRVGALO : GRV SF set of LO in the photon (NP=3,NG=5,NS=3)| *
2059 * | F GRVGF : GRV SF set for u and d quarks and gluons in the photon
2060 * | F GRVGFS : GRV SF set for s, c and b quarks in the photon | *
2061 * | S GRVHO : GRV SF set of NLL (NP=1,NG=5,NS=3) | *
2062 * | S GRVLO : GRV SF set of LO (NP=1,NG=5,NS=4) | *
2063 * | S GRVPIHO : GRV SF set of NLL in the pion (NP=2,NG=5,NS=1) | *
2064 * | S GRVPILO : GRV SF set of LO in the pion (NP=2,NG=5,NS=2) | *
2065 * | S GSXCOR : to get X coordinates for SFGSHO + LO sets 1, 2 | *
2066 * | S GS2XCOR : to get X coordinates for SFGSHO + LO 96 | *
2067 * | S GS96HO : GS-96 SF set of HO in the photon (NP=3,NG=4,NS=4) *
2068 * | S GS96LO : GS-96 SF set of LO in the photon (NP=3,NG=4,NS=5) *
2069 * |_______________________________________________________________| *
2070 ******************************* - 29 - ********************************
2071 1***********************************************************************
2072 * _________________________________________________________________ *
2073 * | Complete list of subprograms, cont'd | *
2075 * | S HMRS1EB : Description of HMRS sets E, B (1.90-retracted) | *
2076 * | S HMRS2EB : Description of HMRS sets E, B (3.90) | *
2077 * | S HMRS3EB : Description of HMRS sets E, B (4.90) | *
2078 * | S HMRSGEB : Description of HMRS sets E, E+, E- and B | *
2079 * | S KMRSEB : Description of KMRS sets E and B | *
2080 * | S KMRSGEB : Description of KMRS B0 with L=135,160,200,235 | *
2081 * | S MRSDSHD : Description of MRS sets D0', S0', D-', (H) in DIS *
2082 * | S MRSDSHP : Description of MRS sets D0', S0', D-', (H) | *
2083 * | S MRSEB : Description of MRS sets E and B | *
2084 * | S MRSEBP : Description of MRS sets E' and B' | *
2085 * | S NEWDO1 : DO SF set 1.1 (NP=1,NG=1,NS=10) | *
2086 * | S PDFSET : to set all parameters for PDFLIB | *
2087 * | S PDFSTA : to print summary of param. and error statistics| *
2088 * | S PDFVERS : to get date and time of PDFLIB Library release | *
2089 * | F PDXMT : Description of MT sets 1 to 11 | *
2090 * | S PDZXMT : MT SF sets 1 to 11 |
git://git.uio.no / u / mrichter / AliRoot.git / blob