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