; return the filename for a single date and a range of indices
; datestr yymmdd
; indx0 integer
; n how many to find
; ok = 1 if all files are found
function fnsets,  datestr, indx0, n, ok

  ok = bytarr(n)
  fnarr = strarr(n)
  for i = 0, n-1 do begin
     fnarr[i] = fn1s(datestr, indx0 + i, count)
     ok[i] = count
  endfor
  return, fnarr
end