--- calo/unpacking/calunpack.for	2005/12/05 16:23:20	1.1.1.1
+++ calo/unpacking/calunpack.for	2006/06/29 07:50:54	1.2
@@ -1,10 +1,12 @@
 C
 C  Written by Emiliano Mocchiutti and Mirko Boezio
 C
-C     * Version: 3.4.06 *
+C     * Version: 3.4.07 *
 C
 C Changelog:
 C
+C 3.4.06 - 3.4.07: (2006-06-29) save CRC values in calselftrig(section,1) and  calselftrig(section,2) in case of CRC errors
+C
 C 3.4.05 - 3.4.06: (2005-01-12) section order wrong in CLEARSEC, fixed.
 C
 C 3.4.04 - 3.4.05: (2005-01-05) XE is section y odd not even, fixed.
@@ -784,6 +786,9 @@
 C
          call clearsec
 C
+         calselftrig(k,1) = check
+         calselftrig(k,2) = vect(length)
+c
          if (ke.eq.1.and.headcor.ne.2) then
             ic = 10
          elseif (headcor.eq.2) then