]>
Commit | Line | Data |
---|---|---|
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 |