ISAJET/isajet/pinits.inc

   1 #ifndef CERNLIB_ISAJET_PINITS_INC
   2 #define CERNLIB_ISAJET_PINITS_INC
   3 *
   4 *
   5 * pinits.inc
   6 *
   7       COMMON/PINITS/PINITS(5,2),IDINIT(2)
   8       SAVE /PINITS/
   9       INTEGER   IDINIT
  10       REAL      PINITS
  11
  12 #endif