Changeset 2445


Ignore:
Timestamp:
Aug 23, 2016 10:08:46 AM (5 years ago)
Author:
vondreele
Message:

fixes to pack_f.for & unpack_cbf.for; replace all binwin2.7 & binwin64-2.7 binaries

Location:
trunk
Files:
22 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/pack_f.for

    r1920 r2445  
    1515      INTEGER*4 SPILL,ROW,COL,PIXNUM,MM1
    1616      INTEGER*2 TMP
    17       CHARACTER*(*) CMPR(0:N-1)
     17      CHARACTER*1 CMPR(0:N-1)
    1818      DATA BITDECODE /0,4,5,6,7,8,16,32/
    1919      DATA SETBITS /Z'0000',Z'0001',Z'0003',Z'0007',
  • trunk/fsource/unpack_cbf.for

    r2444 r2445  
    1010      IMPLICIT NONE
    1111      INTEGER*4 N,MXY
    12       CHARACTER*(*) CMPR(0:N-1)
     12      CHARACTER*1 CMPR(0:N-1)
    1313      INTEGER*4 IMG(0:MXY-1),BASEPIXEL
    1414      INTEGER*4 I,J,ISIZE
Note: See TracChangeset for help on using the changeset viewer.