pro eit_colors,table,r,g,b,_extra=extra
;
;+
;   Name: eit_colors
;
;   Purpose: load EIT color tables
;
;   Input Parameters:
;      table - EIT table number or associated wavelength
;
;   Output Parameters:
;      r,g,b - optional return RGB
;
;   Calling Examples:
;      eit_colors,0		; load the first EIT table (relative)
;      eit_colors,41		; load the first EIT table (absolute)
;      eit_colors,284,r,g,b     ; map wavelenght-> table, return RGB
;
;   Method:
;      call ssw_colors		; contains links to SSW color table files
;
;   History:
;      18-Feb-1996 (S.L.Freeland)
;      21-Feb-2007 Zarro (ADNET) - added _extra and check color table is a number
;
;-

if is_number(table) then table=fix(table)
waves=[171,195,284,304]
case 1 of 
   n_elements(table) eq 0: itable=0
   is_member(table(0),waves): itable=(where(table(0) eq waves))(0)+1
   else:itable=table(0)		; pass table through          (absolute)
endcase

ssw_colors,/eit,itable,r,g,b,_extra=extra

return
end