; docformat = 'rst'
;
; NAME: 
;    ssoDiscovery_params
; PURPOSE:
;    Provide basic parameters for the ssoDiscovery tools
;
;+
; :Description:
;    Provide basic parameters for the ssoDiscovery tools
;
; :Categories:
;    Database, Asteroid
;
; :Returns: 
;
; :Params:
;    POPULATION: in, optional, type=string
;        SSO population to be plotted ('*', or any type/subtype from
;          http://vo.imcce.fr/webservices/skybot/?documentation)
;
; :Examples:
;
; :Uses:
;
; :Author:
;    B.Carry (OCA)
;
; :History:
;    Change History::
;      Written in October 2014, B. Carry (IMCCE)
;-
function ssoDiscovery_params, population
  COMPILE_OPT hidden, idl2
;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
;---  TAG ---    I -- Initialization And Input Verification              -----------------------;
;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
  if not keyword_set(population) then begin
    hPlot = [ 2.0, 22.]
    hComp = [12.0, 15.]
    return, {hPlot:hPlot, hComp:hComp}
  endif 

;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
;---  TAG ---   II -- Range for Power Law Estimates                      -----------------------;
;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
  case strTrim(population,2) of 

   ;--II.1.1-- Near-Earth Asteroids  ---------------------------------------------------------
    'NEA'    :     hComp = [12.0, 15.0]
      'Vulcanoid': hComp = [12.0, 15.0]
      'Atira'    : hComp = [17.0, 20.0]
      'Aten'     : hComp = [15.5, 17.0]
      'Apollo'   : hComp = [13.5, 15.0]
      'Amor'     : hComp = [12.0, 15.0]

   ;--II.1.2-- Main-Belt Asteroids  ----------------------------------------------------------
    'MC'      :    hComp = [12.5, 15.0]
    'Hungaria':    hComp = [12.0, 15.0]
    'MB'      :    hComp = [12.0, 15.0]
      'IMB'     :  hComp = [12.0, 14.5]
      'MMB'     :  hComp = [12.0, 14.5]
      'OMB'     :  hComp = [12.0, 14.5]
      'Cybele'  :  hComp = [12.5, 15.0]
      'Hilda'   :  hComp = [12.5, 14.5]

   ;--II.1.3-- Trojans and Centaurs  ---------------------------------------------------------
    'Trojan':      hComp = [ 9.0, 12.5]
    'Centaur':     hComp = [ 9.0, 12.5]

   ;--II.1.4-- Kuiper-Belt and Beyond  -------------------------------------------------------
    'KBO':         hComp = [ 4.5,  6.0]
      'Classical': hComp = [ 4.5,  6.0]
      'Plutino'  : hComp = [ 4.5,  6.0]
      'SDO'      : hComp = [ 4.5,  6.0]

  endcase



;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
;---  TAG ---  III -- Range for Magnitude Plots                          -----------------------;
;-----------------------------------------------------------------------------------------------;
;-----------------------------------------------------------------------------------------------;
  case strTrim(population,2) of 

   ;--II.1.1-- Near-Earth Asteroids  ---------------------------------------------------------
    'NEA'    :      hPlot = [ 9.0, 22.0]
      'Vulcanoid':  hPlot = [ 9.0, 22.0]
      'Atira'    :  hPlot = [16.5, 22.0]
      'Aten'     :  hPlot = [15.5, 22.0]
      'Apollo'   :  hPlot = [13.5, 22.0]
      'Amor'     :  hPlot = [ 9.0, 22.0]

   ;--II.1.2-- Main-Belt Asteroids  ----------------------------------------------------------
    'MC'      :    hPlot = [10.0, 22.0]
    'Hungaria':    hPlot = [12.0, 15.0]
    'MB'      :    hPlot = [ 3.0, 22.0]
      'IMB'     :  hPlot = [ 3.0, 22.0]
      'MMB'     :  hPlot = [ 3.0, 22.0]
      'OMB'     :  hPlot = [ 3.0, 22.0]
      'Cybele'  :  hPlot = [ 7.0, 22.0]
      'Hilda'   :  hPlot = [ 7.0, 22.0]

   ;--II.1.3-- Trojans and Centaurs  ---------------------------------------------------------
    'Trojan':      hPlot = [ 8.0, 22.0]
    'Centaur':     hPlot = [ 8.0, 22.0]

   ;--II.1.4-- Kuiper-Belt and Beyond  -------------------------------------------------------
    'KBO':         hPlot = [ 1.0, 15.0]
      'Classical': hPlot = [ 1.0, 15.0]
      'Plutino'  : hPlot = [ 1.0, 15.0]
      'SDO'      : hPlot = [ 1.0, 15.0]

  endcase


  return, {hPlot:hPlot, hComp:hComp}
end