--- calo/unpacking/calpedestal.for	2005/12/05 16:23:20	1.1
+++ calo/unpacking/calpedestal.for	2006/06/29 07:50:53	1.2
@@ -1,7 +1,9 @@
 C
 C  Written by Mirko Boezio and Emiliano Mocchiutti
 C
-C     * Version: 3.1.2 *
+C     * Version: 3.1.3 *
+C
+C     3.1.2 - 3.1.3: (2006-06-29) save in calped(section,1,1) and calped(section,1,2) the CRC values (transmitted and calculated) in case of CRC errors
 C
 C     3.1.1 - 3.1.2: (2005-12-02) recognize RAW mode command and exit with error 130.
 C
@@ -299,6 +301,8 @@
          enddo
          if (check.ne.vect(length)) then
             ERROR(contr) = 132
+            calped(k,1,1) = check
+            calped(k,1,2) = vect(length)
             goto 200
          endif
 C