ISAJET/isajet/sssm.inc

   1 #ifndef CERNLIB_ISAJET_SSSM_INC
   2 #define CERNLIB_ISAJET_SSSM_INC
   3 *
   4 *
   5 * sssm.inc
   6 *
   7 C          Standard model parameters
   8 C          AMUP,...,AMTP        = quark masses
   9 C          AME,AMMU,AMTAU       = lepton masses
  10 C          AMW,AMZ              = W,Z masses
  11 C          GAMW,GAMZ            = W,Z widths
  12 C          ALFAEM,SN2THW,ALFA3  = SM couplings
  13 C          ALQCD4               = 4 flavor lambda
  14       COMMON/SSSM/AMUP,AMDN,AMST,AMCH,AMBT,AMTP,AME,AMMU,AMTAU
  15      $,AMW,AMZ,GAMW,GAMZ,ALFAEM,SN2THW,ALFA2,ALFA3,ALQCD4
  16       REAL AMUP,AMDN,AMST,AMCH,AMBT,AMTP,AME,AMMU,AMTAU
  17      $,AMW,AMZ,GAMW,GAMZ,ALFAEM,SN2THW,ALFA2,ALFA3,ALQCD4
  18       SAVE /SSSM/
  19
  20 #endif