--- root2paw/inc/COMMON.TXT 2005/12/05 16:17:38 1.1.1.1 +++ root2paw/inc/COMMON.TXT 2006/03/09 15:46:24 1.2 @@ -2,12 +2,13 @@ REAL DEDX(500),CLSIGNAL(8500),CNEV(12,24) INTEGER NEV1,NCLSTR1,VIEW(500),LADDER(500),MAXS(500),MULT(500) & ,INDSTART(500),INDMAX(500),TOTCLLENGTH - LOGICAL GOOD1 + LOGICAL GOOD1, crc1(12),cpu_crc1 * - integer pkt_type1,pkt_num1, obt1, which_calib1 -c - COMMON /trklev1/ GOOD1,NEV1, - & pkt_type1,pkt_num1, obt1, which_calib1, + integer pkt_type1,pkt_num1, obt1 + integer whic_calib1, swcode1 +C + COMMON /trklev1/ GOOD1,NEV1,whic_calib1,swcode1,crc1, + & pkt_type1,pkt_num1, obt1, cpu_crc1, & NCLSTR1,VIEW,LADDER,MAXS,MULT,DEDX & ,INDSTART,INDMAX,TOTCLLENGTH,CLSIGNAL,CNEV SAVE /trklev1/