0795afa3 |
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 | |