--- DarthVader/ToFLevel2/src/tofl2com.for	2006/07/06 09:03:28	1.2
+++ DarthVader/ToFLevel2/src/tofl2com.for	2006/08/10 06:32:04	1.3
@@ -618,14 +618,14 @@
          i = tof11_i
          xdummy=tof11(left,i,iadc)
          tof11(left,i,iadc) = tof11(left,i,iadc)*cos(theta13)
-         if (tof11(left,i,iadc).lt.1000) then
+         if (tof11(left,i,iadc).lt.4095) then
             xkorr=adcx11(left,i,1)*exp(-yhelp/adcx11(left,i,2))
             xkorr0=adcx11(left,i,1)
             adctof_c(ch11a(i),hb11a(i))=tof11(left,i,iadc)/xkorr
          endif
 
          tof11(right,i,iadc) = tof11(right,i,iadc)*cos(theta13)
-         if (tof11(right,i,iadc).lt.1000) then
+         if (tof11(right,i,iadc).lt.4095) then
             xkorr=adcx11(right,i,1)*exp(yhelp/adcx11(right,i,2))
             xkorr0=adcx11(right,i,1)
             adctof_c(ch11b(i),hb11b(i))=tof11(right,i,iadc)/xkorr
@@ -640,14 +640,14 @@
 
          i = tof12_i
          tof12(left,i,iadc) = tof12(left,i,iadc)*cos(theta13)
-         if (tof12(left,i,iadc).lt.1000) then
+         if (tof12(left,i,iadc).lt.4095) then
             xkorr=adcx12(left,i,1)*exp(-xhelp/adcx12(left,i,2))
             xkorr0=adcx12(left,i,1)
             adctof_c(ch12a(i),hb12a(i))=tof12(left,i,iadc)/xkorr
          endif
 
          tof12(right,i,iadc) = tof12(right,i,iadc)*cos(theta13)
-         if (tof12(right,i,iadc).lt.1000) then
+         if (tof12(right,i,iadc).lt.4095) then
             xkorr=adcx12(right,i,1)*exp(xhelp/adcx12(right,i,2))
             xkorr0=adcx12(right,i,1)
             adctof_c(ch12b(i),hb12b(i))=tof12(right,i,iadc)/xkorr
@@ -664,14 +664,14 @@
 
          i = tof21_i
          tof21(left,i,iadc) = tof21(left,i,iadc)*cos(theta13)
-         if (tof21(left,i,iadc).lt.1000) then
+         if (tof21(left,i,iadc).lt.4095) then
             xkorr=adcx21(left,i,1)*exp(-xhelp/adcx21(left,i,2))
             xkorr0=adcx21(left,i,1)
             adctof_c(ch21a(i),hb21a(i))=tof21(left,i,iadc)/xkorr
          endif
 
          tof21(right,i,iadc) = tof21(right,i,iadc)*cos(theta13)
-         if (tof21(right,i,iadc).lt.1000) then
+         if (tof21(right,i,iadc).lt.4095) then
             xkorr=adcx21(right,i,1)*exp(xhelp/adcx21(right,i,2))
             xkorr0=adcx21(right,i,1)
             adctof_c(ch21b(i),hb21b(i))=tof21(right,i,iadc)/xkorr
@@ -687,14 +687,14 @@
 
          i = tof22_i
          tof22(left,i,iadc) = tof22(left,i,iadc)*cos(theta13)
-         if (tof22(left,i,iadc).lt.1000) then
+         if (tof22(left,i,iadc).lt.4095) then
             xkorr=adcx22(left,i,1)*exp(-yhelp/adcx22(left,i,2))
             xkorr0=adcx22(left,i,1)
             adctof_c(ch22a(i),hb22a(i))=tof22(left,i,iadc)/xkorr
          endif
 
          tof22(right,i,iadc) = tof22(right,i,iadc)*cos(theta13)
-         if (tof22(right,i,iadc).lt.1000) then
+         if (tof22(right,i,iadc).lt.4095) then
             xkorr=adcx22(right,i,1)*exp(yhelp/adcx22(right,i,2))
             xkorr0=adcx22(right,i,1)
             adctof_c(ch22b(i),hb22b(i))=tof22(right,i,iadc)/xkorr
@@ -711,14 +711,14 @@
 
          i = tof31_i
          tof31(left,i,iadc) = tof31(left,i,iadc)*cos(theta13)
-         if (tof31(left,i,iadc).lt.1000) then
+         if (tof31(left,i,iadc).lt.4095) then
             xkorr=adcx31(left,i,1)*exp(-yhelp/adcx31(left,i,2))
             xkorr0=adcx31(left,i,1)
             adctof_c(ch31a(i),hb31a(i))=tof31(left,i,iadc)/xkorr
          endif
 
          tof31(right,i,iadc) = tof31(right,i,iadc)*cos(theta13)
-         if (tof31(right,i,iadc).lt.1000) then
+         if (tof31(right,i,iadc).lt.4095) then
             xkorr=adcx31(right,i,1)*exp(yhelp/adcx31(right,i,2))
             xkorr0=adcx31(right,i,1)
             adctof_c(ch31b(i),hb31b(i))=tof31(right,i,iadc)/xkorr
@@ -733,14 +733,14 @@
 
          i = tof32_i
          tof32(left,i,iadc) = tof32(left,i,iadc)*cos(theta13)
-         if (tof32(left,i,iadc).lt.1000) then
+         if (tof32(left,i,iadc).lt.4095) then
             xkorr=adcx32(left,i,1)*exp(-xhelp/adcx32(left,i,2))
             xkorr0=adcx32(left,i,1)
             adctof_c(ch32a(i),hb32a(i))=tof32(left,i,iadc)/xkorr
          endif
 
          tof32(right,i,iadc) = tof32(right,i,iadc)*cos(theta13)
-         if (tof32(right,i,iadc).lt.1000) then
+         if (tof32(right,i,iadc).lt.4095) then
             xkorr=adcx32(right,i,1)*exp(xhelp/adcx32(right,i,2))
             xkorr0=adcx32(right,i,1)
             adctof_c(ch32b(i),hb32b(i))=tof32(right,i,iadc)/xkorr