fix_mix_input:='(m1 m2 m3 cm1
                 scm4 scm7 scm10
                 sm3 sm4 sm5 sm6 sm7 sm8 sm9 sm10 sm11 sm12 
                 sm13 sm14 sm15 sm16 sm17);

do_simp_param:='yes;

fix_mix_change:='((v0 fm45));

change_phymass:='((ef fme) (mu fmmu) (qu fmu) (qd fmd) (qs
fms) (qc fmc)) $


input_list:='(         
                      (ksi           1)
                      (m1            50)
                      (m2            100)
                      (m3            300) 
                      (cm1           1)
                      (scm4          100)
                      (scm7          100)
                      (scm10         100)
                      (sm3           10000)
                      (sm4           10000)
                      (sm5           10000)
                      (sm6           10000)
                      (sm7           10000)
                      (sm8           10000)
                      (sm9           90000) 
                      (sm10          90000)
                      (sm11          90000)
                      (sm12          90000)
                      (sm13          90000)
                      (sm14          90000)
                      (sm15          90000)
                      (sm16          90000)
                      (sm17          90000)
                      (fm6           200)  
                      (fm35          5)
                      (fm34          174)
                      (fm20          1.8)
                      (g3            1.223) 
                      (beta1         1.3258)
                      (theta         0.504)
                      (g             0.1519)
                      (fm45          91.19)
%                     (v0            182.378)
            );         

sugra_to_fdc_list:={
  {m1,         99.13,                           "M_1"},
  {m2,         192.74,                          "M_2"},
  {m3,         580.51,                          "M_2"},
  {cm1,        352.39,                          "mu(Q)"},
  {sm3,        196.64**2,                       "m_el^2"},
  {sm6,        136.23**2,                       "m_er^2"},
  {sm4,        196.64**2,                       "m_mul^2"},
  {sm7,        136.23**2,                       "m_mur^2"},
  {sm5,        195.75**2,                       "m_taul^2"},
  {sm8,        133.55**2,                       "m_taur^2"},
  {sm9,        539.86**2,                       "m_q1l^2"},
  {sm12,       519.53**2,                       "m_qd1r^2"},
  {sm15,       521.66**2,                       "m_qu1r^2"},
  {sm10,       539.86**2,                       "m_q2l^2"},
  {sm13,       519.53**2,                       "m_qd2r^2"},
  {sm16,       521.66**2,                       "m_qu2r^2"},
  {sm11,       495.91**2,                       "m_q3l^2"},
  {sm14,       516.86**2,                       "m_qd3r^2"},
  {sm17,       424.83**2,                       "m_qu3r^2"},
  {fm6,        393.63,                          "M_A"},
  {fm35,       5.0,                             "m_b"},
  {fm34,       175.0,                           "m_t"},
  {fm20,       1.8,                             "m_tau"},
  {beta1,      atan(10.0),                      "beta"},
  {theta,      asin(sqrt(0.2309)),              "theta"},
  {g,          2*sqrt(3.14159/127.7)/sin(theta)/cos(theta),"g/cos(theta)"},      
  {g3,         2*sqrt(3.14159*0.119),           "g_3"},      
  {scm4,       -254.20*cm4,                     "A_tau"},
  {scm7,       -772.66*cm7,                     "A_b"},
  {scm10,      -510.01*cm10,                    "A_t"}
};

end; 


sugra_to_fdc_list:={
  {m1,         120.36,                          "M_1"},
  {m2,         234.12,                          "M_2"},
  {m3,         696.46,                          "M_2"},
  {cm1,        124.77,                          "mu(Q)"},
  {sm3,        1455.57**2,                      "m_el^2"},
  {sm6,        1451.04**2,                      "m_er^2"},
  {sm4,        1455.57**2,                      "m_mul^2"},
  {sm7,        1451.04**2,                      "m_mur^2"},
  {sm5,        1449.56**2,                      "m_taul^2"},
  {sm8,        1438.88**2,                      "m_taur^2"},
  {sm9,        1533.62**2,                      "m_q1l^2"},
  {sm12,       1530.29**2,                      "m_qd1r^2"},
  {sm15,       1530.49**2,                      "m_qu1r^2"},
  {sm10,       1533.62**2,                      "m_q2l^2"},
  {sm13,       1530.29**2,                      "m_qd2r^2"},
  {sm16,       1530.49**2,                      "m_qu2r^2"},
  {sm11,       1295.25**2,                      "m_q3l^2"},
  {sm14,       1519.86**2,                      "m_qd3r^2"},
  {sm17,       998.47**2,                       "m_qu3r^2"},
  {fm6,        1442.95,                         "M_A"},
  {fm35,       5.0,                             "m_b"},
  {fm34,       175.0,                           "m_t"},
  {fm20,       1.8,                             "m_tau"},
  {beta1,      atan(10.0),                      "beta"},
  {theta,      asin(sqrt(0.2309)),              "theta"},
  {g,          2*sqrt(3.14159/127.7)/sin(theta)/cos(theta),"g"},      
  {g3,         2*sqrt(3.14159*0.119),           "g_3"},      
  {scm4,       -187.83*cm4,                     "A_tau"},
  {scm7,       -797.21*cm7,                     "A_b"},
  {scm10,      -563.70*cm10,                    "A_t"}
};

end;