;  
; Apply fine correction to make image stationary
; in SWRI calibrated eclipse images
; Shifts are in file fineshifts

pixX = 1024
pixY = 256
window,0,xsize=pixX,ysize=pixY
img = fltarr(pixX,pixY)
x=0
y=0

loadct,9
 
filenm=' '
listfile='./elist.cal.sft'
 
    close,13 & openr,13,listfile

    close,14 & openr,14,'fineshifts'

; Initial coordinates of limb used for x and y changes respectively

    ii=0 
    while ( not eof(13) ) do begin ;{
	img=fltarr(pixX,pixY)
        readf,13,filenm
	close,1 & openr,1,filenm
	readu,1,img
	readf,14,x,y
	print,filenm,x,y
	simg=shift(img,x,y)
	tv,simg/16.
; extension now will be .cal.sft.sft !
	str = string(filenm,'.sft')
	close,15 & openw,15,str & writeu,15,simg & close,15
        ii=ii+1
    endwhile ;} 
 
    close,14
    close,13

    stop

end