]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |