;+ ; Project : SOHO ; ; Name : EIT_QUALITY ; ; Purpose : flag problematic EIT file ; ; Category : synoptic gbo ; ; Syntax : IDL> flag=eit_quality(file) ; ; Inputs : FILE = EIT FITS file ; ; Outputs : 1 if good quality science data, 0 if problem with EIT files (camera err, engineering, etc) ; ; History : Written 20 Dec 2005, D. Zarro (EITI/GSFC) ; ; Contact : dzarro@solar.stanford.edu ;- function eit_quality,file np=n_elements(file) if np eq 0 then return,1b ;-- look for bad actors bad_signs=["camera_err='yes'","object='dark'","object='calibration'",$ "object='readout'","object='continous'","object='continuous'","object='lamp'"] sign=arr2str(bad_signs,delim='|') out=bytarr(np) for i=0,np-1 do begin chk=loc_file(file[i],/verb,err=err) if is_string(err) then continue read_eit,file[i],header=header,/nodata check=where(stregex(strcompress(header,/rem),sign,/bool,/fold),count) out[i]=count eq 0 endfor if np eq 1 then out=out[0] return,out end
Last revised: - Wed May 9 21:45:02 2007- F. Auchère