root2paw/inc/COMMON.TXT

      IMPLICIT NONE     
      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, crc1(12),cpu_crc1
*     
      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/
 


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