]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | REAL FUNCTION SSGX3(ET) | |
3 | C----------------------------------------------------------------------- | |
4 | C SSGLBF: glss -> ziss + tp + tb | |
5 | C Baer's XT3 - CHI- eq. a.6.c of prd45,142 (1992) | |
6 | C Modified for t_1 and t_2 eigenstates | |
7 | C----------------------------------------------------------------------- | |
8 | #if defined(CERNLIB_IMPNONE) | |
9 | IMPLICIT NONE | |
10 | #endif | |
11 | #include "isajet/sssm.inc" | |
12 | #include "isajet/sspar.inc" | |
13 | #include "isajet/sstmp.inc" | |
14 | REAL ET | |
15 | DOUBLE PRECISION DET,DMG,DMT,DMZ,DMT1,DMT2,TOP,BOT | |
16 | DOUBLE PRECISION PT,DXT3,SSDLAM,PI,TOPS | |
17 | DATA PI/3.14159265D0/ | |
18 | DET=ET | |
19 | DMG=TMP(1) | |
20 | DMT=TMP(2) | |
21 | DMZ=TMP(3) | |
22 | DMT1=TMP(4) | |
23 | DMT2=TMP(5) | |
24 | TOPS=SSDLAM(DMG**2+DMT**2-2*DMG*DET,DMT**2,DMZ**2) | |
25 | TOP=DSQRT(DMAX1(1.D0,TOPS)) | |
26 | BOT=(DMG**2+DMT**2-2*DMG*DET-DMT1**2)* | |
27 | $ (DMG**2+DMT**2-2*DMG*DET-DMT2**2) | |
28 | PT=DSQRT(DET**2-DMT**2) | |
29 | DXT3=PI**2*DMG*DET*PT*TOP/BOT/(DMG**2-2*DMG*DET+DMT**2) | |
30 | SSGX3=DXT3 | |
31 | RETURN | |
32 | END |