First commit.

[u/mrichter/AliRoot.git] / ISAJET / isajet / sugmg.inc

diff --git a/ISAJET/isajet/sugmg.inc b/ISAJET/isajet/sugmg.inc
new file mode 100644 (file)
index 0000000..24ebb1a
--- /dev/null
+++ b/ISAJET/isajet/sugmg.inc
@@ -0,0 +1,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