xsz=2034 ysz=2034 if(n_elements(hdr) le 0 ) then hdr = intarr(3) if(n_elements(img) le 0 ) then img = intarr(xsz,ysz) dome = 1 if ( dome ) then begin ;{ window,xsize=678,ysize=678 endif ;} close,1 & close,13 mywin=0 fpos=lonarr(500) & ftmp=long(0) & ii=0 lfilenm = 'list' filenm=' ' close,13 & openr,13,lfilenm while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm openr,1,filenm & readu,1,hdr & readu,1,img & close,1 xsz = 2034 ysz = 2034 byteorder,img fimg = float(img) fimg = (fimg lt 0.) * ( fimg + 32768.+ 32768.) + (fimg ge 0.)*(fimg) mn = min(fimg(200:xsz-200,200:ysz-200),max=mx) print,filenm,' min,max ',mn,mx print,' ' ;; sfimg = rebin(fimg, 678,678) if ( dome ) then begin ;{ ;;wset,0 & tv,bytscl(sfimg,min=0.,max=mx*1.5) wset,0 & tv,bytscl(fimg,min=0.,max=mx*1.5),-678,-678 endif;} endwhile ;} close,13 end