Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/unpack_cbf.for

    r2437 r2441  
    1919      INTEGER*2 ITWOBYTES
    2020      INTEGER*4 IFOURBYTES
    21      
     21
    2222      E1 = CHAR(128)
    2323      E2 = CHAR(0)//CHAR(128)
    2424      E4 = CHAR(0)//CHAR(0)//CHAR(0)//CHAR(128)
    2525
    26       I = 1
     26      I = 0
    2727      J = 0
     28      BASEPIXEL = 0
    2829      DO WHILE ( I.LT.N )
    2930        C1 = CMPR(I)
     
    4344           END IF
    4445        END IF
    45 c        BASEPIXEL = 0
    4646        IF ( ISIZE .EQ. 1 ) THEN
    4747           IONEBYTE = ICHAR(CMPR(I))
     
    6161           BASEPIXEL = BASEPIXEL+IFOURBYTES
    6262        END IF
     63c        IF ( MOD(J,100000).EQ.0 ) PRINT *,I,J,BASEPIXEL
    6364        IMG(J) = BASEPIXEL
    6465        J = J+1
Note: See TracChangeset for help on using the changeset viewer.