]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #ifndef CERNLIB_ISAJET_SUGMG_INC |
2 | #define CERNLIB_ISAJET_SUGMG_INC | |
3 | * | |
4 | * | |
5 | * sugmg.inc | |
6 | * | |
7 | C Frozen couplings from RG equations: | |
8 | C GSS( 1) = g_1 GSS( 2) = g_2 GSS( 3) = g_3 | |
9 | C GSS( 4) = y_tau GSS( 5) = y_b GSS( 6) = y_t | |
10 | C GSS( 7) = M_1 GSS( 8) = M_2 GSS( 9) = M_3 | |
11 | C GSS(10) = A_tau GSS(11) = A_b GSS(12) = A_t | |
12 | C GSS(13) = M_h1^2 GSS(14) = M_h2^2 GSS(15) = M_er^2 | |
13 | C GSS(16) = M_el^2 GSS(17) = M_dnr^2 GSS(18) = M_upr^2 | |
14 | C GSS(19) = M_upl^2 GSS(20) = M_taur^2 GSS(21) = M_taul^2 | |
15 | C GSS(22) = M_btr^2 GSS(23) = M_tpr^2 GSS(24) = M_tpl^2 | |
16 | C GSS(25) = mu GSS(26) = B GSS(27) = Y_N | |
17 | C GSS(28) = M_nr GSS(29) = A_n | |
18 | C Masses: | |
19 | C MSS( 1) = glss MSS( 2) = upl MSS( 3) = upr | |
20 | C MSS( 4) = dnl MSS( 5) = dnr MSS( 6) = stl | |
21 | C MSS( 7) = str MSS( 8) = chl MSS( 9) = chr | |
22 | C MSS(10) = b1 MSS(11) = b2 MSS(12) = t1 | |
23 | C MSS(13) = t2 MSS(14) = nuel MSS(15) = numl | |
24 | C MSS(16) = nutl MSS(17) = el- MSS(18) = er- | |
25 | C MSS(19) = mul- MSS(20) = mur- MSS(21) = tau1 | |
26 | C MSS(22) = tau2 MSS(23) = z1ss MSS(24) = z2ss | |
27 | C MSS(25) = z3ss MSS(26) = z4ss MSS(27) = w1ss | |
28 | C MSS(28) = w2ss MSS(29) = hl0 MSS(30) = hh0 | |
29 | C MSS(31) = ha0 MSS(32) = h+ | |
30 | C Unification: | |
31 | C MGUTSS = M_GUT GGUTSS = g_GUT AGUTSS = alpha_GUT | |
32 | COMMON /SUGMG/ MSS(32),GSS(29),MGUTSS,GGUTSS,AGUTSS,FTGUT, | |
33 | $FBGUT,FTAGUT,FNGUT | |
34 | REAL MSS,GSS,MGUTSS,GGUTSS,AGUTSS,FTGUT,FBGUT,FTAGUT,FNGUT | |
35 | SAVE /SUGMG/ | |
36 | ||
37 | #endif |