Changeset 2441 for trunk/fsource/unpack_cbf.for

Timestamp:

Aug 21, 2016 2:58:27 PM (6 years ago)

Author:

vondreele

Message:

fix bug in unpack_cbf.for, cleanup G2img_CF.py & reload win32 & win64 binaries

File:

• trunk/fsource/unpack_cbf.for (modified) (3 diffs)

trunk/fsource/unpack_cbf.for

@@ -19 +19 @@
       INTEGER*2 ITWOBYTES
       INTEGER*4 IFOURBYTES
-      
+
       E1 = CHAR(128)
       E2 = CHAR(0)//CHAR(128)
       E4 = CHAR(0)//CHAR(0)//CHAR(0)//CHAR(128)
 
-      I = 1
+      I = 0
       J = 0
+      BASEPIXEL = 0
       DO WHILE ( I.LT.N )
         C1 = CMPR(I)
@@ -43 +44 @@
            END IF
         END IF
-c        BASEPIXEL = 0
         IF ( ISIZE .EQ. 1 ) THEN
            IONEBYTE = ICHAR(CMPR(I))
@@ -61 +61 @@
            BASEPIXEL = BASEPIXEL+IFOURBYTES
         END IF
+c        IF ( MOD(J,100000).EQ.0 ) PRINT *,I,J,BASEPIXEL
         IMG(J) = BASEPIXEL
         J = J+1