--- DarthVader/TrackerLevel2/inc/F77/level1.f 2006/05/19 13:15:53 1.1 +++ DarthVader/TrackerLevel2/inc/F77/level1.f 2006/08/04 08:18:06 1.2 @@ -40,8 +40,9 @@ ! dimension to clsignal array) real clsignal(maxlength) !signal values of all strips belonging to clusters - real cnev(nviews,nva1_view) !common noise of the event for a certain view and - ! VA1 + real cnev(nviews,nva1_view) !CN of the event for a certain view and VA1 + integer cnevflag(nviews,nva1_view) !CN flag + c$$$ common/level1general/good1,nev1,which_calib1,swcode1,crc1 c$$$ common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1 c$$$ common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart @@ -50,6 +51,6 @@ common/level1event/good1,nclstr1,view,ladder,maxs $ ,mult,dedx,indstart - $ ,indmax,totCLlength,clsignal,cnev + $ ,indmax,totCLlength,clsignal,cnev,cnevflag SAVE/level1event/