Changeset 2445

Timestamp:

Aug 23, 2016 10:08:46 AM (9 years ago)

Author:

vondreele

Message:

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

Location:

trunk

Files:

• binwin2.7/fellipse.pyd (modified) (previous)
• binwin2.7/histogram2d.pyd (modified) (previous)
• binwin2.7/histosigma2d.pyd (modified) (previous)
• binwin2.7/pack_f.pyd (modified) (previous)
• binwin2.7/polymask.pyd (modified) (previous)
• binwin2.7/pydiffax.pyd (modified) (previous)
• binwin2.7/pypowder.pyd (modified) (previous)
• binwin2.7/pyspg.pyd (modified) (previous)
• binwin2.7/pytexture.pyd (modified) (previous)
• binwin2.7/unpack_cbf.pyd (modified) (previous)
• binwin64-2.7/fellipse.pyd (modified) (previous)
• binwin64-2.7/histogram2d.pyd (modified) (previous)
• binwin64-2.7/histosigma2d.pyd (modified) (previous)
• binwin64-2.7/pack_f.pyd (modified) (previous)
• binwin64-2.7/polymask.pyd (modified) (previous)
• binwin64-2.7/pydiffax.pyd (modified) (previous)
• binwin64-2.7/pypowder.pyd (modified) (previous)
• binwin64-2.7/pyspg.pyd (modified) (previous)
• binwin64-2.7/pytexture.pyd (modified) (previous)
• binwin64-2.7/unpack_cbf.pyd (modified) (previous)
• fsource/pack_f.for (modified) (1 diff)
• fsource/unpack_cbf.for (modified) (1 diff)

trunk/fsource/pack_f.for ¶

@@ -15 +15 @@
       INTEGER*4 SPILL,ROW,COL,PIXNUM,MM1
       INTEGER*2 TMP
-      CHARACTER*(*) CMPR(0:N-1)
+      CHARACTER*1 CMPR(0:N-1)
       DATA BITDECODE /0,4,5,6,7,8,16,32/
       DATA SETBITS /Z'0000',Z'0001',Z'0003',Z'0007',

trunk/fsource/unpack_cbf.for ¶

@@ -10 +10 @@
       IMPLICIT NONE
       INTEGER*4 N,MXY
-      CHARACTER*(*) CMPR(0:N-1)
+      CHARACTER*1 CMPR(0:N-1)
       INTEGER*4 IMG(0:MXY-1),BASEPIXEL
       INTEGER*4 I,J,ISIZE