conv300to30.pro

;; converts 300meter data to 30meter data??  
;; in = 300m data file
;; out = new 30m data file
;; ns= input n samples
;; nl= input n lines
;; nb= n bands

pro conv300to30, in, out, ns, nl, nb

openr, un, /get, in
openw, oun, /get, out

data=fltarr(ns)


;rebin and could probably make this process MUCH faster
for i=0, nb-1 do begin
for j=0, nl-1 do begin
	readu, un, data
	for m=0, 9 do begin	;; write the same line 10 times
	for k=0, ns-1 do begin
		for l=0, 9 do begin	;; write the same sample 10 times
			writeu, oun, data(k)
		endfor
	endfor
	endfor
endfor
endfor

close, oun, un
free_lun, oun, un

end