Ignore:
Timestamp:
Jan 3, 2011 4:21:22 PM (12 years ago)
Author:
vondreele
Message:

remove unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/pack_f.for

    r178 r199  
    99
    1010      IMPLICIT NONE
    11       INTEGER*4 IPOS,ISIZE,BITDECODE(0:7),SETBITS(0:16),IN,N,M,BITNUM
    12       INTEGER*4 PIXEL,SPILLBITS,USEDBITS,VALIDS,WINDOW,TOTAL,IR
    13       INTEGER*4 IMG(0:M-1,0:M-1),NEXTINT,I     
     11      INTEGER*4 BITDECODE(0:7),SETBITS(0:16),IN,N,M,BITNUM
     12      INTEGER*4 PIXEL,SPILLBITS,USEDBITS,VALIDS,WINDOW,TOTAL
     13      INTEGER*4 IMG(0:M-1,0:M-1),NEXTINT
    1414      INTEGER*4 SPILL,ROW,COL,PIXNUM,MM1
    1515      INTEGER*2 TMP
Note: See TracChangeset for help on using the changeset viewer.