ISAJET/pdfinit/pdfinit.F

   1       SUBROUTINE PDFINIT(PDFPAR, PDFVAL)
   2 #include "isajet/types.inc"
   3 #if defined(CERNLIB_PDFLIB)
   4 #include "isajet/w50510.inc"
   5 #include "isajet/w50517.inc"
   6       CHARACTER*20 PDFPAR(20)
   7
   8 #if defined(CERNLIB_SINGLE)
   9       REAL PDFVAL(20)
  10       REAL DX,DSCALE,DXPDF(-6:6)
  11 #endif
  12 #if defined(CERNLIB_DOUBLE)
  13       DOUBLE PRECISION PDFVAL(20)
  14       DOUBLE PRECISION DX,DSCALE,DXPDF(-6:6)
  15 #endif
  16
  17         IF(ISTRUC.EQ.-999) THEN
  18           WRITE(ITLIS,1200)
  19 1200      FORMAT(//
  20      $    '1********************************'/
  21      $    ' *                              *'/
  22      $    ' * INITIALIZE PDFLIB FOR ISAJET *'/
  23      $    ' *                              *'/
  24      $    ' ********************************'/)
  25           N6=ITLIS
  26           IFLPRT=2
  27           CALL PDFSET(PDFPAR,PDFVAL)
  28           CALL PFTOPDG(0.5D0,1.0D2,DXPDF)
  29           IFLPRT=0
  30         ENDIF
  31
  32         DO 541 I=1,20
  33           PDFPAR(I)='                    '
  34           PDFVAL(I)=0
  35 541     CONTINUE
  36         READ(ITCOM,*) (PDFPAR(I),PDFVAL(I),I=1,20)
  37         DO 542 I=1,20
  38           IF(PDFPAR(I).NE.'                    ') THEN
  39             WRITE(ITLIS,*) PDFPAR(I),PDFVAL(I)
  40           ENDIF
  41 542     CONTINUE
  42         ISTRUC=-999
  43         LOC(54)=NSEL
  44 #endif
  45
  46         END
  47
  48
  49
  50