INTEGER NPLA, NCHA, LENSEV
      PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
      REAL EMIN
      PARAMETER (EMIN=0.7)
      REAL ADIST, AA
      PARAMETER( ADIST=80.5,AA=0.96)
c      REAL PIANO(22)
C      PARAMETER (PIANO=8.59)
      REAL DEXY(2,NPLA,NCHA)
      REAL CLUS(2,NPLA,NCHA)
      INTEGER NCL(2,NPLA)
      REAL CLUS2(2,2,NCHA)
      INTEGER NCL2(2,2)
      REAL THEX, THEY
C
      integer obt,pkt_num,pro_num
      real nstrip, qtot, ncore, qcore, impx, impy, tanx, tany
      real nint, trigty
      REAL ncyl, qcyl, qtrack, qmax, nx22, qx22
      real qq(4)
      REAL QTRACKX, QTRACKY, DXTRACK, DYTRACK, QLAST, NLAST, QPRE, NPRE
      REAL QPRESH,NPRESH,QLOW,NLOW,QTR,NTR
      INTEGER CIBAR(2,NPLA)
      INTEGER TIBAR(2,NPLA)
      REAL CBAR(2,NPLA)
      REAL TBAR(2,NPLA)
      REAL PLANETOT, QMEAN
      REAL VARCFIT(2)
      INTEGER NPCFIT(2)
C
C	      logical perr(4), swerr(4), crc(4),good
      integer perr, swerr, crc,good
c
      COMMON / clevel2 / OBT,pkt_num,pro_num,trigty,good,perr(4)
     &     ,swerr(4),crc(4),
     &     nstrip, qtot, ncore, qcore, impx, impy, 
     &     tanx, tany, nint, ncyl, qcyl, qtrack, qmax, nx22, 
     &     qx22, qq, qtrackx, qtracky, dxtrack, dytrack, qlast, nlast,
     &     qpre, npre, qpresh, npresh, qlow, nlow, qtr, ntr,
     &     planetot, qmean, varcfit, npcfit,thex, they,
     $     cibar, tibar,
     $     cbar, tbar 
      SAVE / clevel2 /

      COMMON / EVENTI / DEXY
      SAVE / EVENTI /
      COMMON / GRUPPO / CLUS,NCL
      SAVE / GRUPPO /
      COMMON / GRUPPO2 / CLUS2,NCL2
      SAVE / GRUPPO2 /