PRO EMILOOK, file_pattern
;+
;
;	@(#)emilook.pro	1.1 09/22/96 LASCO IDL LIBRARY
;-

    ON_IOERROR, err

    SPAWN, 'ls ' + file_pattern , filenames
    len = N_ELEMENTS(filenames)
    std = FLTARR(len)
    mn = FLTARR(len)

    a = ASSOC(1, INTARR(64, 1024), 54)
    PRINT, 'FILENAME                 STDEV COL 15     MEAN ROW 512'
    FOR i=0, len-1 DO BEGIN
        OPENR, 1, filenames(i)
   	stats = FSTAT(1)
  	IF (stats.size NE 131126) THEN BEGIN
            CLOSE, 1
  	    PRINT, 'throw out file:', filenames(i), ' wrong file size.'
	ENDIF ELSE BEGIN
            img = a(0)
            CLOSE, 1
            sz = SIZE(img)
            std(i) = STDEV(img(15,*))
	    tmp = STDEV(img(25:*,512), mn_tmp)
	    mn(i) = mn_tmp
            PRINT, filenames(i), '    ', std(i), '    ', mn(i)
	ENDELSE
	ERR:
    END

    CLOSE, 1
    good = WHERE(std GT 0)

    !P.MULTI=[0,1,2]
    PLOT, std(good), /YNOZERO, YTITLE="!6STDEV img(15,*)", $
	TITLE="!6"+file_pattern
    PLOT, mn(good), /YNOZERO, YTITLE="!6MEAN img(25:*,512)", $
	TITLE="!6"+file_pattern

END