]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.7 1997/07/13 13:25:18 cernlib | |
6 | * Import version 7.09 | |
7 | * | |
8 | * Revision 1.7 1997/07/02 15:03:08 pdflib | |
9 | * potential bug removed in GRSGALO | |
10 | * | |
11 | * Revision 1.6 1997/04/08 15:53:26 pdflib | |
12 | * Lambda_QCD for CTEQ4 sets corrected | |
13 | * | |
14 | * Revision 1.5 1996/12/10 10:49:31 pdflib | |
15 | * Version 7.07: consistency change for u,d-valence in CTEQ4 | |
16 | * | |
17 | * Revision 1.4 1996/11/15 15:07:21 pdflib | |
18 | * Version 7.06: tabs removed and bug fixed in grsgalo | |
19 | * | |
20 | * Revision 1.3 1996/11/07 09:36:12 pdflib | |
21 | * New version 7.05: cut routine Ctq4RTb in 9 pieces | |
22 | * | |
23 | * Revision 1.1.1.1 1996/04/12 15:29:26 plothow | |
24 | * Version 7.01 | |
25 | * | |
26 | * | |
27 | #include "pdf/pilot.h" | |
28 | SUBROUTINE PDFVERS | |
29 | C | |
30 | #include "pdf/w5051p7.inc" | |
31 | #include "pdf/w50516.inc" | |
32 | #include "pdf/w50517.inc" | |
33 | CHARACTER*80 CARD | |
34 | IDATQQ = 0 | |
35 | ITIMQQ = 0 | |
36 | #if (!defined(CERNLIB_CRAY))&&(!defined(CERNLIB_CONVEX)) | |
37 | IQCHAW = 4 | |
38 | #endif | |
39 | #if defined(CERNLIB_CRAY)||defined(CERNLIB_CONVEX) | |
40 | IQCHAW = 8 | |
41 | #endif | |
42 | CALL CFILL(' ',CARD,1,80) | |
43 | CALL UHTOC( | |
44 | + 78H PDF 7.09 970702 16.05 in the CERN Computer Program | |
45 | +Library W5051 ,IQCHAW,CARD,80) | |
46 | C | |
47 | C print here selected fields of the CARD string | |
48 | IF(N6.LE.0) N6 = L6 | |
49 | IF(FIRST) THEN | |
50 | WRITE(N6,*) ' ' | |
51 | WRITE(N6,*) ' ***** PDFLIB Version: ',CARD(10:14), | |
52 | + ' Released on ',CARD(20:26),' at ',CARD(27:32), | |
53 | + ' ',CARD(33:76),' *****' | |
54 | C + ' in the ',CARD(33:62),' *****' | |
55 | C WRITE(N6,*) ' ***** Library compiled on ',IDATQQ, | |
56 | WRITE(N6,*) ' ***** Library compiled on ',CARD(20:26), | |
57 | + ' at ',CARD(27:32),' *****' | |
58 | C + ' at ',ITIMQQ,' *****' | |
59 | ENDIF | |
60 | RETURN | |
61 | END |