PDF/spdf/pdfvers.F

   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