1 #include "isajet/pilot.h"
2 DOUBLE PRECISION FUNCTION SSALFS(Q2)
3 C-----------------------------------------------------------------------
4 C Strong coupling formula from page 201 of Barger and Phillips:
5 C (using ALQCD4 for 4 flavor Lambda)
8 C-----------------------------------------------------------------------
9 #include "isajet/sssm.inc"
11 DOUBLE PRECISION Q2,AS,TH5,TH6,PI
17 AS=12*PI/(25*LOG(Q2/ALQCD4**2))
18 ELSE IF(Q2.GT.TH5.AND.Q2.LE.TH6) THEN
19 AS=25*LOG(Q2/ALQCD4**2)-2*LOG(Q2/TH5)
22 AS=25*LOG(Q2/ALQCD4**2)
23 AS=AS-2*(LOG(Q2/TH5)+LOG(Q2/TH6))