; IDL Version 5.0 (OSF alpha)
; Journal File for sxt_co@isass0.solar.isas.ac.jp
; Working directory: /home/sxt_co/idl
; Date: Mon Apr 19 16:40:47 1999
 
function sfd_diff, index, data, iearly, ilate, range=range
if n_elements(range) eq 0 then range = 200
diff = sfd_decomp(data(*,*,ilate))-sfd_decomp(data(*,*,iearly))
loadct,0
tv,bytscl(diff,min=-range,max=range)
return,diff
end