| 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/ |