ISAJET/isajet/zlinka.inc

   1 #ifndef CERNLIB_ISAJET_ZLINKA_INC
   2 #define CERNLIB_ISAJET_ZLINKA_INC
   3 *
   4 *
   5 * zlinka.inc
   6 *
   7 C
   8 C              general Zebra link area
   9 C   use with utility subroutines GSLINK,GRLINK,RSLINK and RRLINK
  10       INTEGER NSLINK,NRLINK,LSLINK,LRLINK
  11       PARAMETER (NSLINK=100)
  12       PARAMETER (NRLINK=100)
  13       COMMON/ZLINKA/LSLINK(NSLINK),LRLINK(NRLINK)
  14       SAVE /ZLINKA/
  15
  16 #endif