;+
;NAME:
; thm_ui_valid_dtype
;PURPOSE:
; get valid datatype names from thm_load_* routines, using the
; valid_names keyword and returns a list of data types that can be
; loaded for each instrument.
;CALLING SEQUENCE:
; datalist = thm_ui_valid_dtype(instrument, ilist, llist)
;INPUT:
; none
;OUTPUT:
; datalist = a list of the datatypes that can be loaded
; instrument = the instrument responsible for this datatype
; ilist = a list of the input instrument replicated for each datalist
;         element
; llist = the level of the data, some have 'l1', some have 'l2' some
;         have one for each
;HISTORY:
; 16-jan-2007, jmm, jimm@ssl.berkeley.edu
; 29-jan-2007, jmm, various changes, now station isn't returned, gmag
; and asi output are hard-wired, other changes will ensue when load
; routines are standardized.
; 4-feb-2007, jmm, Rewritten back to the old hard-wired version....
; 5-jul-2007, jmm, Added level information
; 11-apr-2008, jmm, now calls thm_data2load.pro, for 1 instrument
;$LastChangedBy: cgoethel $
;$LastChangedDate: 2008-07-08 08:41:22 -0700 (Tue, 08 Jul 2008) $
;$LastChangedRevision: 3261 $
;$URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/thmsoc/tags/tdas_8_00/idl/themis/thm_ui/thm_ui_valid_dtype.pro $
;-
Function thm_ui_valid_dtype, instr_in, ilist, llist
  

  dlist = '' & ilist = '' & llist = ''
  dtyp0 = strlowcase(strcompress(instr_in, /remove))
;    l10_names = thm_data2load(dtyp0[j], 'l10') ;may need this in the future,
;    should we want raw data to be loaded in the GUI
  l1_names = thm_data2load(dtyp0, 'l1')
  If(is_string(l1_names)) Then Begin
    dlist = [dlist, l1_names]
    ilist = [ilist, replicate(dtyp0, n_elements(l1_names))]
    llist = [llist, replicate('l1', n_elements(l1_names))]
  Endif 
  l2_names = thm_data2load(dtyp0, 'l2')
  If(is_string(l2_names)) Then Begin
    dlist = [dlist, l2_names]
    ilist = [ilist, replicate(dtyp0, n_elements(l2_names))]
    llist = [llist, replicate('l2', n_elements(l2_names))]
  Endif 
  If(n_elements(dlist) Gt 1) Then Begin
    dlist = dlist[1:*]
    ilist = ilist[1:*]
    llist = llist[1:*]
  Endif
  Return, dlist
End