PDF/spdf/pdfvers.F

   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