Allowing coding conventions to be checked
[u/mrichter/AliRoot.git] / 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