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 = 'listp' filenm=' ' close,13 & openr,13,lfilenm while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm img = readfits(filenm,hdr) xsz = fix(sxpar (hdr , 'NAXIS1')) ysz = fix(sxpar (hdr , 'NAXIS2')) expt = float(sxpar (hdr , 'SHUTTER')) lcvrv = fix(sxpar (hdr , 'LCVR-V')) lcvrt = float(sxpar (hdr , 'LCVR-T')) 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) sfimg = rebin(fimg, 678,678) print,filenm,' min,max,avg ',mn,mx, $ total((sfimg(384-50:384+49,384-50:384+49))) /( 100.*100.) print, 'exptime ', ' volts ' , ' temp ',expt,lcvrv,lcvrt print,' ' if ( dome ) then begin ;{ wset,0 & tv,bytscl(sfimg,min=10000.,max=18000.) endif;} endwhile ;} close,13 end