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
*     
      integer pkt_type1,pkt_num1, obt1, which_calib1
c     
      COMMON /trklev1/ GOOD1,NEV1,
     &     pkt_type1,pkt_num1, obt1, which_calib1,
     &     NCLSTR1,VIEW,LADDER,MAXS,MULT,DEDX
     &     ,INDSTART,INDMAX,TOTCLLENGTH,CLSIGNAL,CNEV
      SAVE /trklev1/