Update rawdata format for trigger (Christian)
[u/mrichter/AliRoot.git] / ISAJET / pdfinit / pdfinit.F
CommitLineData
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)
191200 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
35541 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
41542 CONTINUE
42 ISTRUC=-999
43 LOC(54)=NSEL
44#endif
45
46 END
47
48
49
50