2 |
REAL DEDX(500),CLSIGNAL(8500),CNEV(12,24) |
REAL DEDX(500),CLSIGNAL(8500),CNEV(12,24) |
3 |
INTEGER NEV1,NCLSTR1,VIEW(500),LADDER(500),MAXS(500),MULT(500) |
INTEGER NEV1,NCLSTR1,VIEW(500),LADDER(500),MAXS(500),MULT(500) |
4 |
& ,INDSTART(500),INDMAX(500),TOTCLLENGTH |
& ,INDSTART(500),INDMAX(500),TOTCLLENGTH |
5 |
LOGICAL GOOD1 |
LOGICAL GOOD1, crc1(12),cpu_crc1 |
6 |
* |
* |
7 |
integer pkt_type1,pkt_num1, obt1, which_calib1 |
integer pkt_type1,pkt_num1, obt1 |
8 |
c |
integer whic_calib1, swcode1 |
9 |
COMMON /trklev1/ GOOD1,NEV1, |
C |
10 |
& pkt_type1,pkt_num1, obt1, which_calib1, |
COMMON /trklev1/ GOOD1,NEV1,whic_calib1,swcode1,crc1, |
11 |
|
& pkt_type1,pkt_num1, obt1, cpu_crc1, |
12 |
& NCLSTR1,VIEW,LADDER,MAXS,MULT,DEDX |
& NCLSTR1,VIEW,LADDER,MAXS,MULT,DEDX |
13 |
& ,INDSTART,INDMAX,TOTCLLENGTH,CLSIGNAL,CNEV |
& ,INDSTART,INDMAX,TOTCLLENGTH,CLSIGNAL,CNEV |
14 |
SAVE /trklev1/ |
SAVE /trklev1/ |