]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | |
2 | C********************************************************************* | |
3 | ||
4 | SUBROUTINE STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU) | |
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 | DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU | |
10 | ||
11 | C...Stop program if this routine is ever called. | |
12 | WRITE(MSTU(11),5000) | |
13 | IF(RLU(0).LT.10.) STOP | |
14 | UPV=XX+QQ | |
15 | DNV=XX+2.*QQ | |
16 | USEA=XX+3.*QQ | |
17 | DSEA=XX+4.*QQ | |
18 | STR=XX+5.*QQ | |
19 | CHM=XX+6.*QQ | |
20 | BOT=XX+7.*QQ | |
21 | TOP=XX+8.*QQ | |
22 | GLU=XX+9.*QQ | |
23 | ||
24 | C...Format for error printout. | |
25 | 5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/ | |
26 | &1X,'Dummy routine STRUCTM in PYTHIA file called instead.'/ | |
27 | &1X,'Execution stopped!') | |
28 | ||
29 | RETURN | |
30 | END |