mvn_lpw_r_mask_old.pro (Documentation for /home/davin/idl/socware/)

; This procedure only defines the mask
;so that 8 and 16 bit numbers can be 
;quickly decomutated

pro mvn_lpw_r_mask,mask16,mask8,bin_c,index_arr,flip_8


;mask(number , the 16 bit word where index 0 is the LS bit)    
 
 mask16=[[0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,0], $ 
         [0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,1]]   ;2 x 16
for i=1,15 do begin       
mask16=[mask16,mask16]  ;4 x 16
mask16(2L^i:2L^(i+1)-1,15-i)=1
endfor          


 mask8=[[0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,0],[0,1]]   ;2 x 8
for i=1,7 do begin       
mask8=[mask8,mask8]  ;4 x 16
mask8(2^i:2^(i+1)-1,7-i)=1
endfor          



bin_c=2.^indgen(32)

index_arr=indgen(32)

; to flip the 8 values

flip_8=[7-indgen(8)+8,7-indgen(8)]

;flip_8=15-indgen(16)


end