function chk_fem_week,wk,yr,times
;+
; NAME
; chk_fem_week
; PURPOSE
; To review a list of image times and return a vector of FEM
; days that correspond to those times. Created to deal with
; the FEM week vs. calendar week problem in working with SSCs
; and movies.
; CALLING SEQUENCE
; days=chk_fem_week(wk,yr,times)
; INPUT
; wk, week of the year, e.g., 35.
; yr, calendar year, e.g., 1992.
; times, vector of image times, any format.
; OUTPUT
; String array of FEM (i.e., orbit-based) days in format yyyymmdd.
; E.g., 19921206
; HISTORY
; 20-Mar-2008 LWA
;-
rd_fem,wk,yr,fem
tmorn=anytim(fem)
tnite=anytim(fem) + fem.night
for i=0,n_elements(times)-1 do begin
td=where(anytim(times(i)) gt tmorn and anytim(times(i)) lt tnite)
tz=anytim(fem(td),/ccsds)
daz=strmid(tz,0,4)+strmid(tz,5,2)+strmid(tz,8,2)
if n_elements(days) eq 0 then days=daz else days=[days,daz]
endfor
days=days(sort(days))
days=days(uniq(days))
return,days
end