Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/isajet/zlinka.inc is written in an unsupported language. File is not indexed.

0001 #ifndef CERNLIB_ISAJET_ZLINKA_INC
0002 #define CERNLIB_ISAJET_ZLINKA_INC
0003 *
0004 *
0005 * zlinka.inc
0006 *
0007 C
0008 C              general Zebra link area
0009 C   use with utility subroutines GSLINK,GRLINK,RSLINK and RRLINK
0010       INTEGER NSLINK,NRLINK,LSLINK,LRLINK
0011       PARAMETER (NSLINK=100)
0012       PARAMETER (NRLINK=100)
0013       COMMON/ZLINKA/LSLINK(NSLINK),LRLINK(NRLINK)
0014       SAVE /ZLINKA/
0015 
0016 #endif