ISAJET/isajet/sugnu.inc

   1 #ifndef CERNLIB_ISAJET_SUGNU_INC
   2 #define CERNLIB_ISAJET_SUGNU_INC
   3 *
   4 *
   5 * sugnu.inc
   6 *
   7 C     XNUSUG contains non-universal GUT scale soft terms for SUGRA:
   8 C     XNUSUG(1)=M1 XNUSUG(2)=M2 XNUSUG(3)=M3
   9 C     XNUSUG(4)=A_tau XNUSUG(5)=A_b XNUSUG(6)=A_t
  10 C     XNUSUG(7)=m_Hd XNUSUG(8)=m_Hu XNUSUG(9)=m_eR XNUSUG(10)=m_eL
  11 C     XNUSUG(11)=m_dR XNUSUG(12)=m_uR XNUSUG(13)=m_uL XNUSUG(14)=m_lR
  12 C     XNUSUG(15)=m_lL XNUSUG(16)=m_bR XNUSUG(17)=m_tR XNUSUG(18)=m_tL
  13 C
  14       COMMON /SUGNU/ XNUSUG(18)
  15       REAL XNUSUG
  16       SAVE /SUGNU/
  17
  18 #endif