;
;
;
print, 'Variables are
print, '    index1	- index for 13-NOV-92  20:28:12'
print, '    bimg1	- Raw compressed image for ^^ (BYTE)
print, '    img1	- Decomprsessed dark current subracted for ^^ (FIX)
print, '    diff1	- Decomprsessed dark/leak corrected image
print, '  '
print, '    limg	- Decomprsessed dark current subracted leak image (smooth 3) (FIX)
print, '  '
if (n_elements(img1) eq 0) then begin
    rd_sda, concat_dir(finddir('92_46a'), 'sfr921113.1952'), 6, index1, bimg1
    img1 = dark_sub(index1, bimg1)
    diff1 = leak_sub(index1, img1)
    ;
    limg = leak_sub(index1, /leak_only, leak_index=lindex)
end
;
if (n_elements(qdid_display) eq 0) then begin
    wdef, 0 & tvscl, img1 < 500
    wdef, 1 & tvscl, diff1 < 500
    wdef, 2 & tvscl, limg
    qdid_display = 1
end
;
wdef, 3

!p.multi = [0,1,2]
print, 'Smooth profile is of Leak image
plot, img1(*,108), tit = 'Profile for Line 108'
oplot, limg(*,108)
plot, diff1(*,108)
pause
;
plot, img1(173,*), tit = 'Profile for Colymn 173
oplot, limg(173,*)
plot, diff1(173,*)
;
!p.multi = 0
;
end