Changeset 199

Timestamp:

Jan 3, 2011 4:21:22 PM (13 years ago)

Author:

vondreele

Message:

remove unused variables

File:

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

trunk/fsource/pack_f.for

@@ -9 +9 @@
 
       IMPLICIT NONE
-      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      
+      INTEGER*4 BITDECODE(0:7),SETBITS(0:16),IN,N,M,BITNUM
+      INTEGER*4 PIXEL,SPILLBITS,USEDBITS,VALIDS,WINDOW,TOTAL
+      INTEGER*4 IMG(0:M-1,0:M-1),NEXTINT
       INTEGER*4 SPILL,ROW,COL,PIXNUM,MM1
       INTEGER*2 TMP