pro spp_fld_sc_hk_191_load_l1, file, prefix = prefix, varformat = varformat

  if not keyword_set(prefix) then prefix = 'spp_fld_sc_hk_191_'
  
  cdf2tplot, /get_support_data, file, prefix = prefix, varformat = varformat
  
  sc_hk_191_names = tnames(prefix + '*')
  
  if sc_hk_191_names[0] NE '' then begin
    
    for i = 0, n_elements(sc_hk_191_names) - 1 do begin
      
      name = sc_hk_191_names[i]

      ytitle = name
      
      ytitle = ytitle.Remove(0, prefix.Strlen()-1)
      
      ytitle = ytitle.Replace('_','!C')

      options, name, 'ynozero', 1
      options, name, 'colors', [2]
      options, name, 'ytitle', ytitle

      options, name, 'psym_lim', 200      
      options, name, 'symsize', 0.5
      
    endfor
    
  endif
  
  get_data, prefix + 'sc_hk_subseconds', data = d_hk_ss
  
  for i = 0, 3 do begin
    
;    get_data, prefix + 'WHLSPD' + string(i,format = '(I1)'), data = d_whlspd
    
;    d_whlspd.x = d_whlspd.x + d_hk_ss.y / 256d
    
;    store_data, prefix + 'WHLSPD' + string(i,format = '(I1)'), data = d_whlspd
    
  endfor
  
  options, prefix + 'WHLSPD0', 'colors', 6 ; red
  options, prefix + 'WHLSPD1', 'colors', 4 ; green
  options, prefix + 'WHLSPD2', 'colors', 2 ; blue
  options, prefix + 'WHLSPD3', 'colors', 1 ; magenta

  options, prefix + 'WHLSPD0', 'labels', '0'
  options, prefix + 'WHLSPD1', 'labels', '  1'
  options, prefix + 'WHLSPD2', 'labels', '    2'
  options, prefix + 'WHLSPD3', 'labels', '      3'
  
  store_data, prefix + 'WHLSPD', data = tnames(prefix + 'WHLSPD?')

  options, prefix + 'WHLSPD', 'ytitle', 'SC_HK_191!CWHLSPD'
  options, prefix + 'WHLSPD', 'ysubtitle', '[Rad/sec]'
  options, prefix + 'WHLSPD', 'panel_size', 2
  options, prefix + 'WHLSPD', 'colors'

end