3 C*********************************************************************
5 FUNCTION ULALPS_HIJING(Q2)
7 C...Purpose: to give the value of alpha_strong.
8 #include "ludat1_hijing.inc"
9 #include "ludat2_hijing.inc"
11 C...Constant alpha_strong trivial.
12 IF(MSTU(111).LE.0) THEN
13 ULALPS_HIJING=PARU(111)
20 C...Find effective Q2, number of flavours and Lambda.
22 IF(MSTU(115).GE.2) Q2EFF=MAX(Q2,PARU(114))
25 100 IF(NF.GT.MAX(2,MSTU(113))) THEN
26 Q2THR=PARU(113)*PMAS(NF,1)**2
27 IF(Q2EFF.LT.Q2THR) THEN
29 ALAM2=ALAM2*(Q2THR/ALAM2)**(2./(33.-2.*NF))
33 110 IF(NF.LT.MIN(8,MSTU(114))) THEN
34 Q2THR=PARU(113)*PMAS(NF+1,1)**2
35 IF(Q2EFF.GT.Q2THR) THEN
37 ALAM2=ALAM2*(ALAM2/Q2THR)**(2./(33.-2.*NF))
41 IF(MSTU(115).EQ.1) Q2EFF=Q2EFF+ALAM2
44 C...Evaluate first or second order alpha_strong.
47 IF(MSTU(111).EQ.1) THEN
48 ULALPS_HIJING=PARU(2)/(B0*ALGQ)
51 ULALPS_HIJING=PARU(2)/(B0*ALGQ)*(1.-B1*LOG(ALGQ)/(B0**2*ALGQ))
54 PARU(118)=ULALPS_HIJING