]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | |
2 | C********************************************************************* | |
3 | ||
4 | SUBROUTINE PDFSET(PARM,VALUE) | |
5 | ||
6 | C...Dummy routine, to be removed when PDFLIB is to be linked. | |
7 | COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) | |
8 | SAVE /LUDAT1/ | |
9 | CHARACTER*20 PARM(20) | |
10 | DOUBLE PRECISION VALUE(20) | |
11 | ||
12 | C...Stop program if this routine is ever called. | |
13 | WRITE(MSTU(11),5000) | |
14 | IF(RLU(0).LT.10.) STOP | |
15 | PARM(20)=PARM(1) | |
16 | VALUE(20)=VALUE(1) | |
17 | ||
18 | C...Format for error printout. | |
19 | 5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/ | |
20 | &1X,'Dummy routine PDFSET in PYTHIA file called instead.'/ | |
21 | &1X,'Execution stopped!') | |
22 | ||
23 | RETURN | |
24 | END |