]>
Commit | Line | Data |
---|---|---|
21886bb6 | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.8 2000/04/19 13:29:31 mclareni | |
6 | * Import version 8.04 | |
7 | * | |
8 | * Revision 1.12 2000/04/17 18:54:47 plothow | |
9 | * version 8.04: small mods, dlog to log | |
10 | * | |
11 | * Revision 1.11 2000/04/15 14:10:46 plothow | |
12 | * Version 8.03: Nuclear PDFs introduced | |
13 | * | |
14 | * Revision 1.10 2000/04/09 14:47:30 plothow | |
15 | * version 8.02 - add CTEQ4 ref2 PDFs | |
16 | * | |
17 | * Revision 1.9 2000/04/09 10:06:26 plothow | |
18 | * new version 8.00 - MRS 98 and 99, CTEQ5 and GRV98 added | |
19 | * | |
20 | * Revision 1.8 2000/03/23 11:39:42 pdflib | |
21 | * beta function changed to pdf_beta function | |
22 | * | |
23 | * Revision 1.7 1997/07/02 15:03:08 pdflib | |
24 | * potential bug removed in GRSGALO | |
25 | * | |
26 | * Revision 1.6 1997/04/08 15:53:26 pdflib | |
27 | * Lambda_QCD for CTEQ4 sets corrected | |
28 | * | |
29 | * Revision 1.5 1996/12/10 10:49:31 pdflib | |
30 | * Version 7.07: consistency change for u,d-valence in CTEQ4 | |
31 | * | |
32 | * Revision 1.4 1996/11/15 15:07:21 pdflib | |
33 | * Version 7.06: tabs removed and bug fixed in grsgalo | |
34 | * | |
35 | * Revision 1.3 1996/11/07 09:36:12 pdflib | |
36 | * New version 7.05: cut routine Ctq4RTb in 9 pieces | |
37 | * | |
38 | * Revision 1.1.1.1 1996/04/12 15:29:26 plothow | |
39 | * Version 7.01 | |
40 | * | |
41 | * | |
42 | #include "pdf/pilot.h" | |
43 | SUBROUTINE PDFVERS | |
44 | C | |
45 | #include "pdf/w5051p7.inc" | |
46 | #include "pdf/w50516.inc" | |
47 | #include "pdf/w50517.inc" | |
48 | #include "pdf/w505190.inc" | |
49 | CHARACTER*80 CARD | |
50 | IDATQQ = 0 | |
51 | ITIMQQ = 0 | |
52 | #if (!defined(CERNLIB_CRAY))&&(!defined(CERNLIB_CONVEX)) | |
53 | IQCHAW = 4 | |
54 | #endif | |
55 | #if defined(CERNLIB_CRAY)||defined(CERNLIB_CONVEX) | |
56 | IQCHAW = 8 | |
57 | #endif | |
58 | CALL CFILL(' ',CARD,1,80) | |
59 | C CALL UHTOC( | |
60 | C + 78H PDF 7.09 970702 16.05 in the CERN Computer Program | |
61 | C +Library W5051 ,IQCHAW,CARD,80) | |
62 | C | |
63 | PDFVER(1) = '8.04 ' | |
64 | PDFVER(2) = '2000-04-17' | |
65 | PDFVER(3) = '12.24 ' | |
66 | C | |
67 | C print here selected fields of the CARD string | |
68 | IF(N6.LE.0) N6 = L6 | |
69 | IF(FIRST) THEN | |
70 | C WRITE(N6,*) ' ' | |
71 | C WRITE(N6,*) ' ***** PDFLIB Version: ',CARD(10:14), | |
72 | C + ' Released on ',CARD(20:26),' at ',CARD(27:32), | |
73 | C + ' ',CARD(33:76),' *****' | |
74 | C + ' in the ',CARD(33:62),' *****' | |
75 | C | |
76 | C WRITE(N6,*) ' ***** Library compiled on ',IDATQQ, | |
77 | C + ' at ',ITIMQQ,' *****' | |
78 | C | |
79 | C WRITE(N6,*) ' ***** Library compiled on ',CARD(20:26), | |
80 | C + ' at ',CARD(27:32),' *****' | |
81 | C | |
82 | WRITE(N6,*) ' ' | |
83 | C | |
84 | WRITE(N6,*) | |
85 | + ' ***** CERN Computer Program Library - ', | |
86 | + ' Reference: W5051 *****' | |
87 | C | |
88 | WRITE(N6,*) ' ***** PDFLIB Version: ',PDFVER(1)(1:4), | |
89 | + ' Released on ',PDFVER(2)(1:10), | |
90 | + ' at ',PDFVER(3)(1:5),' *****' | |
91 | C | |
92 | ENDIF | |
93 | RETURN | |
94 | END |