ISAJET/isajet/sugpas.inc

   1 #ifndef CERNLIB_ISAJET_SUGPAS_INC
   2 #define CERNLIB_ISAJET_SUGPAS_INC
   3 *
   4 *
   5 * sugpas.inc
   6 *
   7       COMMON /SUGPAS/ XTANB,MSUSY,AMT,MGUT,MU,G2,GP,V,VP,XW,
   8      $A1MZ,A2MZ,ASMZ,FTAMZ,FBMZ,B,SIN2B,FTMT,G3MT,VEV,HIGFRZ,
   9      $FNMZ,AMNRMJ,NOGOOD,IAL3UN,ITACHY
  10       REAL XTANB,MSUSY,AMT,MGUT,MU,G2,GP,V,VP,XW,
  11      $A1MZ,A2MZ,ASMZ,FTAMZ,FBMZ,B,SIN2B,FTMT,G3MT,VEV,HIGFRZ,
  12      $FNMZ,AMNRMJ
  13       INTEGER NOGOOD,IAL3UN,ITACHY
  14       SAVE /SUGPAS/
  15
  16 #endif