ISAJET/isajet/wwpar.inc

   1 #ifndef CERNLIB_ISAJET_WWPAR_INC
   2 #define CERNLIB_ISAJET_WWPAR_INC
   3 *
   4 *
   5 * wwpar.inc
   6 *
   7       COMMON/WWPAR/SWW,TWW,UWW,WM2,ZM2,P1WW(5),P2WW(5),P3WW(5),P4WW(5)
   8      $,PZERO(4,4),S13,P3(5),Q1(5),Q3(5),JQWW(2)
   9      $,CQ,CV,CA,CV1,CA1,CV3,CA3,CS,CT,CU
  10       SAVE /WWPAR/
  11 #if defined(CERNLIB_DOUBLE)
  12 #include "isajet/wwpar2.inc"
  13 * Ignoring t=pass
  14 #endif
  15 #if defined(CERNLIB_SINGLE)
  16 #include "isajet/wwpar1.inc"
  17 * Ignoring t=pass
  18 #endif
  19       INTEGER   JQWW
  20
  21 #endif