C *
C*********************************************************************
+C*********************************************************************
+
C...PYDATA
C...Default values for switches and parameters,
C...and particle, decay and process data.
END
-C*********************************************************************
-
C...PYTEST
C...A simple program (disguised as subroutine) to run at installation
C...as a check that the program works as intended.
VALUE(3)=MOD(MSTP(51),1000)
PARM(4)='TMAS'
VALUE(4)=PMAS(6,1)
- CALL PDFSET(PARM,VALUE)
+C...ALICE
+ CALL PDFSET_ALICE(PARM,VALUE)
MINT(93)=1000000+MSTP(51)
ENDIF
MINT(105)=MINT(102+I)
MINT(109)=MINT(106+I)
VINT(120)=VINT(2+I)
+C.... ALICE
+C.... Store side in MINT(124)
+ MINT(124) = I
+C....
IF(MSTP(57).LE.1) THEN
CALL PYPDFU(MINT(10+I),VINT(40+I),Q2UP(0),XPQ)
ELSE
MINT(105)=MINT(102+JT)
MINT(109)=MINT(106+JT)
VINT(120)=VINT(2+JT)
+C.... ALICE
+C.... Store side in MINT(124)
+ MINT(124)=JT
+C....
+C.... ALICE
+C.... Store side in MINT(124)
+ MINT(124)=JT
+C....
IF(MSTP(57).LE.1) THEN
CALL PYPDFU(KFBEAM(JT),XB,Q2REF,XFN)
ELSE
XFB(KFL)=XFN(KFL)
240 CONTINUE
XA=XB/Z
+C.... ALICE
+C.... Store side in MINT(124)
+ MINT(124) = JT
+C....
IF(MSTP(57).LE.1) THEN
CALL PYPDFU(KFBEAM(JT),XA,Q2REF,XFA)
ELSE
MINT(105)=MINT(102+I)
MINT(109)=MINT(106+I)
VINT(120)=VINT(2+I)
+C.... ALICE
+C.... Store side in MINT(124)
+ MINT(124)=I
+C....
IF(MSTP(57).LE.1) THEN
CALL PYPDFU(MINT(10+I),XSF,Q2SF,XPQ)
ELSE
PARM(3)='NSET'
VALUE(3)=MOD(MSTP(51),1000)
IF(MINT(93).NE.1000000+MSTP(51)) THEN
- CALL PDFSET(PARM,VALUE)
+C...ALICE
+ CALL PDFSET_ALICE(PARM,VALUE)
MINT(93)=1000000+MSTP(51)
ENDIF
XX=X
QQ=SQRT(MAX(0D0,Q2MIN,Q2))
IF(MSTP(57).EQ.0) QQ=SQRT(Q2MIN)
- CALL STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU)
+C...ALICE
+ CALL STRUCTM_ALICE(
+ + XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU)
VINT(231)=Q2MIN
XPQ(0)=GLU
XPQ(1)=DNV+DSEA