Changeset 178 for trunk/fsource/pack_f.for

Timestamp:

Nov 19, 2010 12:48:49 PM (13 years ago)

Author:

vondreele

Message:

 

File:

• trunk/fsource/pack_f.for (modified) (1 diff)

trunk/fsource/pack_f.for

@@ -16 +16 @@
       CHARACTER*(*) CMPR(0:N-1)
       DATA BITDECODE /0,4,5,6,7,8,16,32/
-      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'/
+      DATA SETBITS /Z'0000',Z'0001',Z'0003',Z'0007',
+     1  Z'000F',Z'001F',Z'003F',Z'007F',Z'00FF',
+     1  Z'01FF',Z'03FF',Z'07FF',Z'0FFF',Z'1FFF',
+     1  Z'3FFF',Z'7FFF',Z'FFFF'/
 
       PIXEL = 0