1 #include "isajet/pilot.h"
2 REAL FUNCTION SSWZF2(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,PI,Q
23 SSWZF2=PI**2*M1*Q*Q*(M1**2-2*M1*Q-M3**2)**2/
24 $(M1**2-2*M1*Q-M2**2)**2/(M1**2-2*M1*Q)