;  
; make a mean image from all 
; SWRI calibrated eclipse images

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

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

    ii=0 
    while ( not eof(13) ) do begin ;{
	img=fltarr(pixX,pixY)
        readf,13,filenm
	print,filenm
	close,1 & openr,1,filenm
	readu,1,img
	fimg = fimg + img
	tv,fimg/(16.*float(ii+1))
        ii=ii+1
    endwhile ;} 
 
    close,13
    fimg = fimg/float(ii)
    tv,fimg/16.
    close,1 & openw,1,'meanimg' & writeu,1,fimg & close,1

end