1 #include "isajet/pilot.h"
2 REAL FUNCTION SSZZF1(X)
3 C-----------------------------------------------------------------------
4 C SSWZBF: ziss -> zjss f fbar
6 C-----------------------------------------------------------------------
7 #if defined(CERNLIB_IMPNONE)
10 #include "isajet/sslun.inc"
11 #include "isajet/sssm.inc"
12 #include "isajet/sspar.inc"
13 #include "isajet/sstmp.inc"
16 DOUBLE PRECISION N,S,Q,D,SQBRKT,TERM1,QS
17 DOUBLE PRECISION MZ2,MZ1,M,DSN
28 D=(S-2*S*Q-N)/((1.D0-2*Q)*(S-2*Q-N))
30 WRITE(LOUT,*) 'ERROR IN SSZZF1: D,S,Q,N=',D,S,Q,N
34 SQBRKT=-Q*(1.D0-2*Q-N)/(1.D0-2*Q)-(2*Q-S+N)/2.D0*DLOG(D)
35 TERM1=QS*(1.D0-2*Q-N)**2/(1.D0-2*Q-S)**2/(1.D0-2*Q)
36 $+DSQRT(N)/2.D0/(1.D0-2*Q-S)*SQBRKT*DSN
37 SSZZF1=(1.D0-N)/2.D0*TERM1