Changeset 176

Timestamp:

Nov 19, 2010 11:50:48 AM (12 years ago)

Author:

vondreele

Message:

fix to pack_f.for

File:

• trunk/fsource/pack_f.for (modified) (2 diffs)

trunk/fsource/pack_f.for

@@ -9 +9 @@
 
       IMPLICIT NONE
-      INTEGER*4 IPOS,ISIZE,BITDECODE(0:7),SETBITS(0:32),IN,N,M,BITNUM
+      INTEGER*4 IPOS,ISIZE,BITDECODE(0:7),SETBITS(0:16),IN,N,M,BITNUM
       INTEGER*4 PIXEL,SPILLBITS,USEDBITS,VALIDS,WINDOW,TOTAL,IR
       INTEGER*4 IMG(0:M-1,0:M-1),NEXTINT,I      
@@ -16 +16 @@
       CHARACTER*(*) CMPR(0:N-1)
       DATA BITDECODE /0,4,5,6,7,8,16,32/
-      DATA SETBITS /Z'00000000',Z'00000001',Z'00000003',Z'00000007',
-     1  Z'0000000F',Z'0000001F',Z'0000003F',Z'0000007F',Z'000000FF',
-     1  Z'000001FF',Z'000003FF',Z'000007FF',Z'00000FFF',Z'00001FFF',
-     1  Z'00003FFF',Z'00007FFF',Z'0000FFFF',Z'0001FFFF',Z'0003FFFF',
-     1  Z'0007FFFF',Z'000FFFFF',Z'001FFFFF',Z'003FFFFF',Z'007FFFFF',
-     1  Z'00FFFFFF',Z'01FFFFFF',Z'03FFFFFF',Z'07FFFFFF',Z'0FFFFFFF',
-     1  Z'1FFFFFFF',Z'3FFFFFFF',Z'7FFFFFFF',Z'FFFFFFFF'/
+      DATA SETBITS /Z'0000',Z'0001',Z'0003',Z'0007',Z'000F',Z'001F',
+     1  Z'003F',Z'007F',Z'00FF',Z'01FF',Z'03FF',Z'07FF',Z'0FFF',
+     1  Z'1FFF',Z'3FFF',Z'7FFF',Z'FFFF'/
 
       PIXEL = 0