1 #include "isajet/pilot.h"
2 REAL FUNCTION SSWZF3(QQ)
3 C-----------------------------------------------------------------------
4 C SSWZBF: wiss -> zjss f fbar
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/sssm.inc"
11 #include "isajet/sspar.inc"
12 #include "isajet/sstmp.inc"
15 DOUBLE PRECISION M1,M2,M3,T,B,XLOG,SQBKT,Q,PI
23 T=M2**2*(M1-2*Q)-M1*M3**2
24 B=(M1-2*Q)*(M2**2-2*M1*Q-M3**2)
26 SQBKT=-Q*(M1**2-M3**2-2*M1*Q)/M1/(M1-2*Q)-
27 $(2*M1*Q-M2**2+M3**2)*XLOG/2./M1
28 SSWZF3=.5*PI**2*M1*M3*SQBKT/(M1**2-M2**2-2*M1*Q)