;+
; unpack_trace
; Datify-style hack to deal with unpacking TRACE images into datify-style flat fits images.
;
; Written quickly without much regard for style, Craig DeForest, 25-Feb-1999
;
; Principally called by DATIFY.PRO when it counters a TRACE-like file.
;-
pro unpack_trace,files,destdir

if not isvalid(destdir) then destdir='.'

for i=0,nlm(files) - 1 do begin

	read_trace,files(i),-1,idx,/nodata
	print,'READ_TRACE: ',fug(files(i)),' contains ',fug(nlm(idx)),' images',format='($,A,A,A,A,A)'
	for j=0,nlm(idx)-1 do begin
		print,'...'+fug(j),format='($,A)'
		delvarx,hdr,im
		read_trace,files(i),j,hdr,im,/image
		fixinate_trace,hdr
		zwritefits,destdir+'/'+datify_fname('tr'+fug(hdr.WAVELNTH)+'_',hdr.date_obs),im,hdr
	end
end
end